怎么在Delphi里面调用Tuxedo服务(100分)

  • 主题发起人 zhujianzhou
  • 开始时间
Z

zhujianzhou

Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi里面怎么调用自己用Pro*c写的数据库服务?最好详细一点,包括Client端需要加入哪些库
 
B

battfly

Unregistered / Unconfirmed
GUEST, unregistred user!
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1444223
 

崔占东

Unregistered / Unconfirmed
GUEST, unregistred user!

procedure TForm1.Button1Click(Sender: TObject);
var
reqbuf,rcvbuf :pChar;
ret :integer;
lenf:LongInt;
temp:array [0..50] of char;
Size:Byte;
begin
ret:= tpinit(nil);
if ret<0 then
begin
//showmessage('tpinit failed');
Edit2.text:= 'tpinit failed';
exit;
end;
reqbuf := tpalloc('STRING', '', 1024);
if reqbuf=nil then
begin
Edit2.text:='tpalloc failed';
exit;
end;
rcvbuf := tpalloc('FML','',32000);
if rcvbuf=nil then
begin
Edit2.text:='tpalloc rcvbuf failed';
exit;
end;
Size := Edit1.GetTextLen;
Inc(Size);
Edit1.GetTextBuf(reqbuf,Size);
lenf:=0;
ret := tpcall('InqueryCustomer', reqbuf, 0, rcvbuf, lenf, 0);
if (ret<0) then
begin
Edit2.text:='tpcall failed';
exit;
end ;
StringGrid1.Cells[0,1]:='1';
lenf:=0;
temp:='';
Fget(rcvbuf,41062,0,temp,lenf);
//FCUSTOMERID
StringGrid1.Cells[1,1]:=temp;
lenf:=0;
temp:='';
Fget(rcvbuf,41061,0,temp,lenf);
//FUSERNAME
StringGrid1.Cells[2,1]:=temp;
lenf:=0;
temp:='';
Fget(rcvbuf,41063,0,temp,lenf);
//FADDRESS
StringGrid1.Cells[3,1]:=temp;
lenf:=0;
temp:='';
Fget(rcvbuf,41064,0,temp,lenf);
//FSTATUS
StringGrid1.Cells[4,1]:=temp;
lenf:=0;
temp:='';
Fget(rcvbuf,41065,0,temp,lenf);
//FSTARTDATE
StringGrid1.Cells[5,1]:=temp;
lenf:=0;
temp:='';
Fget(rcvbuf,41066,0,temp,lenf);
//FPREPAYMENT
StringGrid1.Cells[6,1]:=temp;
lenf:=0;
temp:='';
Fget(rcvbuf,41067,0,temp,lenf);
//FREMARK
StringGrid1.Cells[7,1]:=temp;
lenf:=0;
temp:='0';
Fget(rcvbuf,41074,0,temp,lenf);
//FERRONO
Edit2.text:=abouterro(temp);
tpfree(reqbuf);
tpfree(rcvbuf) ;
tpterm;
 
I

iamshrek

Unregistered / Unconfirmed
GUEST, unregistred user!
我也有类似的问题!!!!
我引用tuxedo中客户端的例子,是用c语言写的一个程序simpcl.exe
输入小写字母 在屏幕上返回大写字母
现在我要用delphi做一个客户端 包括控件text1,text2,cmdbutton,
在text1中输入小写字母 按确定 在text2中返回simpcl.exe的结果
我应该怎样做呢?
先谢谢各位
 

任我行_zq

Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi调用tuxedo的服务按照固定的调用格式来,应该是容易的。
但是delphi不能用于写tuxedo的服务,说明在国外delphi并不是主流语言,晕。
 

任我行_zq

Unregistered / Unconfirmed
GUEST, unregistred user!
我写了一个笔记。
http://www.delphibbs.com/keylife/iblog_show.asp?xid=2498
你看一下有没有帮助
 
W

wind28

Unregistered / Unconfirmed
GUEST, unregistred user!
学习!!
 
G

g179246

Unregistered / Unconfirmed
GUEST, unregistred user!
学习学习再学习
 
顶部