procedure TForm1.Button1Click(Sender: TObject);
LongInt ): Pointer; stdcall;
var
SndBuf : PTFbfr;
RcvBuf :PTFbfr;
ret :integer;
lBillCount :longint;
fRecNum :single;
fDeposit:single;
lNumLong:longint;
BILLCOUNT,RECNUM,DEPOSIT,NUMLONG :FLDIDD32;
SvcName:array[1..20] of char;
Ilen: LongInt;
Olen: PLongInt;
lFlag :longint;
Tpinfo: PTTpinit;
begin
tuxputenv('WSNADDR=//wsy:6060');
Tpinfo :=nil;
ret := tpinit(Tpinfo);
if (ret < 0) then
原载于:联动北方
全文:http://bbs.landingbj.com/t-0-248696-1.html