高分求SOCKET阻塞式源码(300分)

  • 主题发起人 主题发起人 yqwanwan
  • 开始时间 开始时间
Y

yqwanwan

Unregistered / Unconfirmed
GUEST, unregistred user!
高分求scoket阻塞式源码 要求可用
我急用有的话请发yqwanwan@163.com

晕怎么只能送300分 如果需要我可开新帖送分
谢谢了先!
 
帮帮忙 我急用
 
不要这么小气呀 真的急用
 
不知道你想解决什么问题?
 
俺要连别人的程序(别人的程序不能动) 要求我必须用Socket阻塞方式工作
我只需要用ClientSocket连通它的程序进行数据收发即可
 
self.ClientSocket1.Host := '192.168.0.1';
self.ClientSocket1.Port := 6299;
self.ClientSocket1.ClientType := ctBlocking;
self.ClientSocket1.Open;
self.ClientSocket1.Socket.SendText('asdfasdf');
while self.ClientSocket1.Socket.ReceiveLength = 0 do ;
showmessage(self.ClientSocket1.Socket.ReceiveText);
self.ClientSocket1.Close;
 
改一下,来点反应,呵呵
self.ClientSocket1.Host := '192.168.0.1';
self.ClientSocket1.Port := 6299;
self.ClientSocket1.ClientType := ctBlocking;
self.ClientSocket1.Open;
self.ClientSocket1.Socket.SendText('asdfasdf');
while self.ClientSocket1.Socket.ReceiveLength = 0 do
Application.ProcessMessages;
showmessage(self.ClientSocket1.Socket.ReceiveText);
self.ClientSocket1.Close;
 
看一下這個:
TWinSocketStream

WaitForData
 
那你就直接连!~用SOCKET API写吧!
 
borland的网站上有多线程,Socket例子,非常经典,自己找找。
 
我用 Socket API 写了一个UDP阻塞式的转送文件的列子.你要的话可以到 ICBChat 上找我
 
多人接受答案了。
 
后退
顶部