这句话怎么理解啊IdTCPClient1.IOHandler.CheckForDataOnSource(250);

guofeng526 2009-06-05 11:34:13

这句话怎么理解呀，还是上次的那个问题》。。这个意思是，一次全部接收所有，然后分次读取吗，谢了啊。。
http://topic.csdn.net/u/20090602/14/26a53006-6c69-46da-aa63-41ab724a9a11.html
这个是原来的提问，大家踊跃发言..热烈欢迎...

...全文

363 7 打赏收藏转发到动态举报

写回复

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

guofeng526 2009-06-09

打赏
举报

回复

555 。。都没有人理我》。。

guofeng526 2009-06-06

打赏
举报

回复

回复妖哥：
这个是我在vc下实现的时候遇到了很到的问题：首先我将数据接收到 char m_szBuffer[4096] ;
收到的数据是这个样子的 : 20090605002.jpg（有一个换行符...等等）64位整形数据（没有任何标记）图像文件的内容
我想把图片读到图片文件中，我该怎么处理呢？
首先我就不知道怎么读出那个文件长度。因为这个被存在这样的字符数组中，应该怎么读出来呢？按字节读取吗？需要转换吗？
还有一个问题： socket通讯的时候，总是用 char buffer[]这种类型的东西来收发数据吗，，发什么类型的文件，或者数据信息，都是用这个的吗、、、？谢谢你啦，感觉你比较厉害，呵呵

guofeng526 2009-06-05

打赏
举报

回复

这个好像用到了indy10，请大家多多帮忙

yuyuhaso 2009-06-05

打赏
举报

回复

嗯嗯
忽然觉得楼上二位的头像很般配，GXGX啊

ccrun.com 2009-06-05

打赏
举报

回复

int64是64位的整形
在VC中用__int64

guofeng526 2009-06-05

打赏
举报

回复

回复：yuyuhaso
可以再问下， int64 类型是什么类型吗？
在 VC 里面应该怎么读呢...

yuyuhaso 2009-06-05

打赏
举报

回复

IdTCPClient1.IOHandler.CheckForDataOnSource(250);
IdTCPClient1的监听端口每隔250MS检查一下是否有数据到达

TIdTCPClient中文乱码问题我在进行indy10.5.7这个版本进行idTCPClient及idTCPServer进行编程时同样汉字收发时会产生乱码，我在单元的里引用了 HTTPApp 单元，在发的时候这样写IdTCPClient.IOHandler.WriteLn(HTTPEncode(edtMsg.Text)); 在收的时候这样写HTTPDecode(IdTCPClient.IOHandler.ReadLn); 就可以用汉字进行通讯了

偶有一老掉牙鸡，时间经常走不准，搞得偶好几次误时。火来了，偶上网找了下资料，做了这工具。既可从互联网授时服务器上获取时间，也可以从局域网授时主机上获取时间，来校对本鸡，也可为局域网内其他鸡授时。当本工具授时时，获取时间的演示代码如下： procedure TForm1.Button4Click(Sender: TObject); var vii,vij:Integer; vdt:TDatetime; begin self.IdTCPClient1.Host := '127.0.0.1'; // 局域网内提供授时服务的主机IP地址 self.IdTCPClient1.Port := 1301; // 授时服务器的端口 self.IdTCPClient1.Connect(); vii := self.IdTCPClient1.ReadInteger(); viJ := self.IdTCPClient1.ReadInteger(); vdt := (vii + vij / 100000000) / 1000; label1.Caption := datetimetostr(vdt); self.IdTCPClient1.Disconnect; end;

indy 10 idtcpclient ， indy 10.x 的tcpclient 使用IdTCPClient.IOHandler.Write 发送，代码中解决了，如何使用 IdTCPClient 发送之后，接收回消息包。

delphi 基于IdTcpServer和IdTcpClient的通讯实例，包括客户端和服务端，　　procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread); 　　begin 　　 Memo1.Lines.Text:='来自主机' AThread.Connection.Socket.Binding.PeerIP '的连接请求已被接纳'; 　　 AThread.Connection.WriteLn('Ariel:欢迎连接本服务器，竭诚为您服务'); 　　end; 　　procedure TForm1.IdTCPServer1Disconnect(AThread: TIdPeerThread); 　　begin 　　Memo1.Lines.Text:='来自主机' AThread.Connection.Socket.Binding.PeerIP '已断开连接'; 　　StatusBar1.Panels[0].Text:='连接已断开'; 　　end; 　　procedure TForm1.IdTCPServer1ListenException(AThread: TIdListenerThread; 　　 AException: Exception); 　　begin 　　StatusBar1.Panels[1].Text:='正在连接.....'; 　　end;

Delphi7 基于IdTcpserver和IdTcpClient的通讯程序

网络通信/分布式开发

1,593

社区成员

32,964

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章