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

在Delphi里面怎么调用自己用Pro*c写的数据库服务？最好详细一点，包括Client端需要加入哪些库

gz

GZ

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1444223

procedure TForm1.Button1Click(Sender: TObject);
var
reqbuf,rcvbuf Char;
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;

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

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

我写了一个笔记。
http://www.delphibbs.com/keylife/iblog_show.asp?xid=2498
你看一下有没有帮助

学习！！

学习学习再学习