那位大哥 给个delphi的SOCKET 程序的源码，可编译的 谢谢啦

来源：百度知道 编辑：UC知道 时间：2024/05/29 04:22:29
那位大哥 给个delphi的SOCKET 程序的源码，可编译的 谢谢啦
ClientSocket和ServerSocket通讯，通过ClientSocket向ServerSocket发信息

ServerSocket源码：
procedure TForm1.button1Click(Sender: TObject);
begin
serversocket1.Port:=9999;
try
socket1.Open;
except
showmessage('端口被占用！');
end;
procedure Tfrmor1.ServerSocketClientRead(Sender: TObject;Socket:TCustomWinSocket);
BEGIN
//收到客户端发来的信息，具体怎么操作自己写
//serversocket.ReceiveText这是受到的信息
END;
procedure TForm1.serverSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
//当客户端发生错误
end;

procedure Tform1.ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
//当客户端断开连接
edit1.text:='客户端断开连接';
end;

procedure TForm1.serverSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
//当客户端已经连接
end;

客户端源码：
ClientSocket.Host:=‘127.0.0.1’;
ClientSocket.Port:=9999；
ClientSocket.Op