type strout=packed record
errtxet:pchar;
out:pchar;
end;
var
mystrout:strout;
function getybjgbm:strout;stdcall; external 'CxybClient.dll';
function reg(ybjgbm,yybm,bz,czymc,scrj,sftsmz:pchar):strout;stdcall;external 'CxybClient.dll';
调用:
mystrout:=getybjgbm;
mystrout:=reg('100001','1000010001','0',pchar(frmlogin.name),pchar(formatdatetime('yyyy-mm-dd',frmmain.MyDate)),'0');
type Strout =packed record
errtxet: string;
out1: String;
end;
var
mystrout:strout;
定义:
function getybjgbm:strout;stdcall; external 'CxybClient.dll';
function reg(ybjgbm,yybm,bz,czymc,scrj,sftsmz:string):strout;stdcall; external 'CxybClient.dll';
调用:
mystrout:=getybjgbm;
mystrout:=reg('100001','1000010001','0',frmlogin.name,formatdatetime('yyyy-mm-dd',frmmain.MyDate),'0');