基于mts的asp对象的注册问题。急

蝈蝈俊 2000-06-10 11:18:00
我做了一个基于mts的asp对象(参照李维的书),在我的机子上(有delphi5)注册成功(用delphi5自带的注册工具)。可以使用。但公司的web上没有delphi ,我应如何注册???

regsvc32 也无法完成注册。


...全文
184 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
kxy 2000-06-10
  • 打赏
  • 举报
回复
stdole2.tlb
stdvcl40.dll
蝈蝈俊 2000-06-10
  • 打赏
  • 举报
回复
要拷出去除了*.dll还有那个??????????

蝈蝈俊 2000-06-10
  • 打赏
  • 举报
回复
2000我已经可以了,nt4 如何装???
kxy 2000-06-10
  • 打赏
  • 举报
回复
在NT中启动MTS的expore然后New Package 然后New Component .
hcat1999 2000-06-10
  • 打赏
  • 举报
回复
然后在MTS设置
hcat1999 2000-06-10
  • 打赏
  • 举报
回复
生成DLL拷贝到winnt或system32目录,然后regsvc32看看
蝈蝈俊 2000-06-10
  • 打赏
  • 举报
回复
NT 下 我装了 不可以,算了,今天就给分吧
kxy 2000-06-10
  • 打赏
  • 举报
回复
给分:)
wdh 2000-06-10
  • 打赏
  • 举报
回复
nt的option pack中带有mts
蝈蝈俊 2000-06-10
  • 打赏
  • 举报
回复
用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.
蝈蝈俊 2000-06-10
  • 打赏
  • 举报
回复
nt 是否要另装mts????
那里有的下载????

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧