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