急求delphi程序加入能通过网络能发送字符串信息的功能!

Question

急求delphi程序加入能通过网络能发送字符串信息的功能，发邮件太慢，而且IdSMTP1连接的时候容易失去响应，请问高手还有其它办法没，只要能发送字符串信息就可以了

Answer 1

参考下DELPHI6下的DEMO 的IDTCPCLIENT 部分..该处有源码IdTCPClient 是目前我认为发字符串的最简方法.

Answer 2

发送用TcpClient控件,例如:
  TcpClient.RemoteHost := '192.168.1.111';//对方IP
  TcpClient.RemotePort := '8080';//对方端口
  if TcpClient.Connect then
     TcpClient.Sendln('你要发关的字符串')
  else
     showmessage('网络连接失败!');

Answer 3

4楼说的方法可以实现哦，当然delphi还有很多控件都可以实现，如intenet下的ClientSocket和ServerSocket，当然程序要通讯时这两个得配套使用，代码基本和上面一样；还一种方法就是不使用控件，直接使用套接字，小弟也是刚学，建议楼主多看些socket网络编程的资料：if WSAStartup(2, TempWSAData)=1 then  //2表示启用winsock2
       exit;
     if TcpFlag then  //判断是否用TCP
       AcceptSock[0]:=Socket(AF_INET,SOCK_STREAM,0)  //创建套接字，使用TCp方式通讯
     else
       AcceptSock[0]:=Socket(AF_INET,SOCK_DGRAM,0);  //创建套接字，使用UDP方式通讯，按数据报
     if AcceptSock[0]=SOCKET_ERROR then
       exit;
如果作为服务器，那接下就是绑定bind和监听listen;如果作为客户端则只需链接connet即可；至于如何实现，楼主就多去看看这方面的资料吧