基于mts的asp对象的注册问题。急
我做了一个基于mts的asp对象(参照李维的书),在我的机子上(有delphi5)注册成功(用delphi5自带的注册工具)。可以使用。但公司的web上没有delphi ,我应如何注册???
regsvc32 也无法完成注册。
问题点数:50、回复次数:11Top
1 楼hcat1999(阿猫)回复于 2000-06-10 12:41:00 得分 20
生成DLL拷贝到winnt或system32目录,然后regsvc32看看Top
2 楼hcat1999(阿猫)回复于 2000-06-10 12:42:00 得分 0
然后在MTS设置Top
3 楼kxy(手举穿肠毒药,怀抱刮骨钢刀)回复于 2000-06-10 12:52:00 得分 20
在NT中启动MTS的expore然后New Package 然后New Component .Top
4 楼ghj1976(蝈蝈俊.net)回复于 2000-06-10 12:53:00 得分 0
2000我已经可以了,nt4 如何装???Top
5 楼ghj1976(蝈蝈俊.net)回复于 2000-06-10 12:55:00 得分 0
要拷出去除了*.dll还有那个??????????
Top
6 楼kxy(手举穿肠毒药,怀抱刮骨钢刀)回复于 2000-06-10 12:58:00 得分 0
stdole2.tlb
stdvcl40.dllTop
7 楼ghj1976(蝈蝈俊.net)回复于 2000-06-10 13:03:00 得分 0
nt 是否要另装mts????
那里有的下载????Top
8 楼ghj1976(蝈蝈俊.net)回复于 2000-06-10 13:46:00 得分 0
用delphi 我要创建一个内部变量,但没有string 类型的 只有一个istrings 类型的。
即:
unit Unit1;
interface
uses
ComObj, ActiveX, AspTlb, Project2_TLB, StdVcl;
type
TMTSFILE = class(TASPMTSObject, IMTSFILE)
protected
procedure GETTEXT; safecall;
function Get_text: IStrings; safecall;
procedure Set_text(const Value: IStrings); safecall;
end;
implementation
uses ComServ;
var
ss : string;
procedure TMTSFILE.GETTEXT;
VAR
f : textfile;
s : string;
begin
ss := '';
assignfile(f,'c:/guo.txt');
reset(f);
WHILE not seekeof(f) do BEGIN
read(f,s);
ss := ss + s;
END;
closefile(f) ;
end;
function TMTSFILE.Get_text: IStrings;
begin
Get_text := ss;
end;
procedure TMTSFILE.Set_text(const Value: IStrings);
begin
GETTEXT;
end;
initialization
TAutoObjectFactory.Create(ComServer, TMTSFILE, Class_MTSFILE,
ciMultiInstance, tmApartment);
end.Top
9 楼wdh(王子翩)回复于 2000-06-10 17:17:00 得分 10
nt的option pack中带有mtsTop
10 楼kxy(手举穿肠毒药,怀抱刮骨钢刀)回复于 2000-06-10 20:10:00 得分 0
给分:)Top
11 楼ghj1976(蝈蝈俊.net)回复于 2000-06-10 20:17:00 得分 0
NT 下 我装了 不可以,算了,今天就给分吧Top




