A
aq100
Unregistered / Unconfirmed
GUEST, unregistred user!
大家都知道用ServerSocket,ClientSocket控件去写程序，可是有谁用winsocket api 写过
tcp/ip协议方面的程序呢？俺搜索了好久也没找到答案，网上也有些零碎的解答，可是都太
模糊啦。以下是我写的client端的大致框架，还缺数据接收和server端的断开消息，还望大
家踊跃参加发言，共同探讨一下这个历史长期遗留问题。（最好连服务端一起讨论）
var
xl_socket:Tsocket;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
socket的初始化，创建，连接（已搞定）
end;
procedure TForm1.Button2Click(Sender: TObject);
socket发送数据（已搞定）
end;
**********************************************
** 请补充数据接收部分和 **
**********************************************
** 如何得到server断开的消息 **
**********************************************
程序搞定的话，可发给参与和解答者相关源码
（高手如慷慨大方的话，发个winsocket api写的client和server那就感激不尽啦）
email:riceworm@sohu.com
tcp/ip协议方面的程序呢？俺搜索了好久也没找到答案，网上也有些零碎的解答，可是都太
模糊啦。以下是我写的client端的大致框架，还缺数据接收和server端的断开消息，还望大
家踊跃参加发言，共同探讨一下这个历史长期遗留问题。（最好连服务端一起讨论）
var
xl_socket:Tsocket;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
socket的初始化，创建，连接（已搞定）
end;
procedure TForm1.Button2Click(Sender: TObject);
socket发送数据（已搞定）
end;
**********************************************
** 请补充数据接收部分和 **
**********************************************
** 如何得到server断开的消息 **
**********************************************
程序搞定的话，可发给参与和解答者相关源码
（高手如慷慨大方的话，发个winsocket api写的client和server那就感激不尽啦）
email:riceworm@sohu.com
]