S
sunjguang
Unregistered / Unconfirmed
GUEST, unregistred user!
我调用vc的dll，函数为：function Readxx(CertLen
Integer;Cert:string):integer;s
tdcall;external'SSK.DLL' name 'Readxx';
调用过程为：
var
ptr : pinteger;
Rootl:string;
begin
RootLen:=0;//私有变量
setlength(Rootl,1000);
ptr:=@RootLen;
ret:=Readxx(ptr,Rootl);
end;
调用的时候老是有异常出现，说指针无效，我刚学delphi大家给看看是哪个地方不对.
Integer;Cert:string):integer;stdcall;external'SSK.DLL' name 'Readxx';
调用过程为：
var
ptr : pinteger;
Rootl:string;
begin
RootLen:=0;//私有变量
setlength(Rootl,1000);
ptr:=@RootLen;
ret:=Readxx(ptr,Rootl);
end;
调用的时候老是有异常出现，说指针无效，我刚学delphi大家给看看是哪个地方不对.