急,很简单的3层 ( 积分: 100 )

N

niit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-27

• #1

利用SocketConnedction 来触发自己写的程序!
利用接口来处理,需要得到一个返回值
定义:
function TGG_WorkServer.FindMaoMao(Const AMachineIP: widestring; var AMsg, AMaoData: OleVariant): OleVariant;
begin
.....
AMaoData := 1; //在调用过程中就要提示无效的被呼叫方
end;


客户端
SocketServer.AppServer.FindMaomao('192.168.0.127', vRStr, vRInt)

各位高手高手帮帮忙,看错在哪里,该怎么改呢?

 

N

niit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-27

• #2

利用SocketConnedction 来触发自己写的程序!
利用接口来处理,需要得到一个返回值
定义:
function TGG_WorkServer.FindMaoMao(Const AMachineIP: widestring; var AMsg, AMaoData: OleVariant): OleVariant;
begin
.....
AMaoData := 1; //在调用过程中就要提示无效的被呼叫方
end;


客户端
SocketServer.AppServer.FindMaomao('192.168.0.127', vRStr, vRInt)

各位高手高手帮帮忙,看错在哪里,该怎么改呢?

 

N

niit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-27

• #3

就是怎么处理返回值呢?
利用Out, Var ?

 

荷

荷塘新月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-27

• #4

将function TGG_WorkServer.FindMaoMao(Const AMachineIP: widestring; var AMsg, AMaoData: OleVariant): OleVariant;
改为
procedure TGG_WorkServer.FindMaoMao(Const AMachineIP: widestring; var AMsg, AMaoData: OleVariant); safecall;

 

N

niit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-28

• #5

那我还有一个返回值怎么办?
我这样的处理方法哪里有问题吗?

 

N

niit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-28

• #6

各位高手,给小弟点意见吧!