帮忙看下为什么下面的代码不能在腾讯通SKD里发送即时消息呢？

[Dreamnest]

procedure TForm1.Button2Click(Sender: TObject);
var
RTXObj, IMObj, PropObj: variant;
CMD_SendIM: integer;

begin
RTXObj := CreateOleObject('RTXClient.RTXAPI');
IMObj := RTXObj.GetObject('RTXPlugin.IM');
CMD_SendIM := 1;

PropObj := RTXObj.GetObject('Property');

PropObj.Value('RTXUser') := 1001;
PropObj.Value('ServerAddress') := '127.0.0.1';
PropObj.Value('ServerPort') := 8000;
PropObj.Value('Text') := 'this is a test!';

try
RTXObj.Call(CMD_SendIM, PropObj);
except
Application.MessageBox('错误','tips',MB_OK) ;
end;

RTXObj := UnAssigned;
IMObj := UnAssigned;
PropObj := UnAssigned;

end;

[WuChenCan]

检查一下SKD的接口有没有弄错。顶一下。。

[Dreamnest]

没有人做过这方面的吗？

[meiZiNick]

接分是王道！