有谁用dephi开发过给腾讯RTX发送消息?

Question

有谁用dephi开发过给腾讯RTX发送消息,请给个例子。要delphi的实例.

Answer 1

他有开发包的,可以在rtx.qq.com上下载，服务器的开发包里应该就有实例，例子是VB的，所有支持COM的语言都可以用，你找下吧很简单，有接口

Answer 2

Dim RootObj As RTXSAPIRootObj '声明一个RTXSAPIRootObj变量 Private Sub Command1_Click()On Error Resume Next
' 如需要发隐式链接,格式如: [腾讯|http://www.qq.com] 
RootObj.SendNotify txtReceivers.Text, txtTitle.Text, CInt(txtTime.Text), txtContent.Text '发送消息提醒，停留时间为0表示一直停留直到用户关闭
If (Err.Number <> 0) Then 
txtResult.Text = "Error # " & Err.Number & Chr(13) & Err.Description
Else
MsgBox "发送成功" 
End If End SubPrivate Sub Form_Load()Set RootObj = CreateObject("RTXSAPIRootObj.RTXSAPIRootObj") ' 创建根对象
RootObj.ServerIP = txtIP.Text '设置服务器IP
RootObj.ServerPort = txtPort.Text ' 设置服务器端口，默认为8006End Sub 
delphi的很简单，引入类型库，拖几个控件RootObj.ServerIP = txtIP.Text '设置服务器IP
RootObj.ServerPort = txtPort.Text ' 设置服务器端口，默认为8006try
  RootObj.SendNotify( txtReceivers.Text, txtTitle.Text, CInt(txtTime.Text), txtContent.Text );'发送消息提醒，停留时间为0表示一直停留直到用户关闭
except
  on e:exception do begin
    showmessage('error:'+e.message);
  end;
end;
大概就这个样子，有啥问题，支持看他SDK就行，基本都能解决

Answer 3

我写过一个类似于QQ的聊天软件，是用DELPHI写的，用INDY实现。你可以参考下。

Answer 4

RootObj.ServerIP = txtIP.Text '设置服务器IP
RootObj.ServerPort = txtPort.Text ' 设置服务器端口，默认为8006try
  RootObj.SendNotify( pchar(txtReceivers.Text), pchar(txtTitle.Text), IntToStr(txtTime.Text), pchar(txtContent.Text) );'发送消息提醒，停留时间为0表示一直停留直到用户关闭
except
  on e:exception do begin
    showmessage('error:'+e.message);
  end;
end;
类型写错了，前面

Answer 5

但是我注册不进去APIObject.dll,说缺少.tlb文件

Answer 6

关注，也一直想研究下这个东西。呵呵不知你的注册方式是否正确project-->input type library-->ApIObject (你要注册的library)-->install-->into new package