200分求腾讯RTX应用的DELPHI例子 ( 积分: 200 )

如题.我的MAIL:zuoc@163.com

//基于 RTX 3.61 应用.
procedure Tmain_fm.SendMsgRtx(ReceieNo, Content: string); {Rtx消息传送}
var
RTXObj: variant;
RTXParams: variant;
RETCode: variant;
begin
RTXObj := CreateOleObject('RTXServer.RTXObj');
RTXParams := CreateOleObject('RTXServer.Collection');

RTXObj.name := 'SYSTOOLS';

RTXParams.Add('SENDER', 'system');
RTXParams.Add('SDKPASSWORD', 'system');

RTXParams.Add('RECVUSERS', ReceieNo);
RTXParams.Add('IMMSG', Content);

try
RETCode := RTXObj.Call2(8194, RTXParams);
except
//Application.MessageBox('错误', 'tips', MB_OK);
end;

RTXObj := UnAssigned;
RTXParams := UnAssigned;

end;

多用一下操作系统里的API函数吧。

盒子里局域网聊天的源码，应该对你有帮助！