S
steven_qwh
Unregistered / Unconfirmed
GUEST, unregistred user!
我引用了一个VC的com组件。将DLL文件通过import type library导入的类型库中。我在程序中引用这个组件。代码如下
procedure TForm1.Button1Click(Sender: TObject);
begin
if IApplication.InitSDK('') < 0 then Showmessage('Init Fails')
else Showmessage('Init Succeed');
end;
但是问题是如果使用方法InitSDK时候。如果参数使用''的话。会报一个异常access violation at address 78002320 in module 'MSVCRT.dll'.Read of address 00000000.
如果参数使用不为空的的话一切正常。不知道问题出在什么地方。
这个方法的声明如下：
function TIApplication.InitSDK(const strLicense: WideString): Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IApplication.InitSDK('') < 0 then Showmessage('Init Fails')
else Showmessage('Init Succeed');
end;
但是问题是如果使用方法InitSDK时候。如果参数使用''的话。会报一个异常access violation at address 78002320 in module 'MSVCRT.dll'.Read of address 00000000.
如果参数使用不为空的的话一切正常。不知道问题出在什么地方。
这个方法的声明如下：
function TIApplication.InitSDK(const strLicense: WideString): Integer;