D
djjsl
Unregistered / Unconfirmed
GUEST, unregistred user!
各位老大,在下用的delphi写了一个ole automation的组件,继承了Idispatch接口。
这个组件有个功能是读注册表,如下:
function TTeleNote.GetInfoFromReg(var url:TURL):boolean;
var reg:TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
result := true;
try
if reg.OpenKey('/Software/aa/aa',false) then
begin
url.url := reg.ReadString('url');
url.password := reg.ReadString('password');
url.inputno := reg.ReadString('inputno');
result := true;
end;
finally
reg.CloseKey;
reg.Free;
end;
end;
我先用了delphi写的一个客户端程序来调用组件,执行没有任何问题。
接着用asp来调用组件,却发现try的过程中出现问题。
请问这时什么原因?我是一步一步返回值来确定问题所在的,请问有没有
直接调试脚本和组件的方法?
这个组件有个功能是读注册表,如下:
function TTeleNote.GetInfoFromReg(var url:TURL):boolean;
var reg:TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
result := true;
try
if reg.OpenKey('/Software/aa/aa',false) then
begin
url.url := reg.ReadString('url');
url.password := reg.ReadString('password');
url.inputno := reg.ReadString('inputno');
result := true;
end;
finally
reg.CloseKey;
reg.Free;
end;
end;
我先用了delphi写的一个客户端程序来调用组件,执行没有任何问题。
接着用asp来调用组件,却发现try的过程中出现问题。
请问这时什么原因?我是一步一步返回值来确定问题所在的,请问有没有
直接调试脚本和组件的方法?