delphi 调用 tuxedo服务

Question

tuxedo8.1中给的例子C:\bea\tuxedo8.1\samples\atmi\simpapp 我已经正确编译了 在命令行里面也可以用的。
我现在的问题是怎么用delphi去调用那个simpcl函数（例子中的函数），我该怎么去引入DLL文件，怎么去调用tpinit tpcall等。
谁要是有正确的钱贴出来，谢谢！
在线等 给分100分！

Answer 1

DLL调用，那你直接external静态引用就行，只要dll有那个函数就没问题

Answer 2

如果是DLL调用，引用里面的函数就可以了，注意一下函数参数的调用顺序，一般是stdcall和cdcel

Answer 3

DLL调用我会 只是怎么去调服务，以前没有做过三层的

Answer 4

http://hi.baidu.com/xingfupingguo/blog/item/d350e7188fa408bc4bedbc55.html
如果调用的函数存在于DLL当中，那应该没什么问题，如果是服务函数，那可能有点麻烦了

Answer 5

重点不在DLL本身，重点在我该怎么去调用 那些tpcall tpinit怎么用，参数什么的 前提条件等

Answer 6

> psc
Service Name Routine Name Prog Name  Grp Name  ID    Machine  # Done Status
------------ ------------ ---------  --------  --    -------  ------ ------
TOUPPER      TOUPPER      simpserv.+ GROUP1     1     simple       4 AVAIL
> psr
Prog Name      Queue Name  Grp Name      ID RqDone Load Done Current Service
---------      ----------  --------      -- ------ --------- ---------------
BBL.exe        123456      simple         0      0         0 ( DEAD )
simpserv.exe   00001.00001 GROUP1         1      4       200 (  IDLE )
WSL.exe        00001.00100 GROUP1       100      0         0 ( DEAD )