Question

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

那位大哥 给个delphi的SOCKET 程序的源码，可编译的 谢谢啦
ClientSocket和ServerSocket通讯，通过ClientSocket向ServerSocket发信息

若以下回答无法解决问题，邀请你更新回答

Answer 1

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.Open;
//发送信息到服务器端
procedure TfrmClientMain.tbSendClick(Sender: TObject);
begin
ClientSocket.Socket.SendText(Edit1.Text);
end;
//接受服务器端的回复
procedure TfrmClientMain.ClientSocketRead(Sender: TObject;Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;
procedure TfrmClientMain.ClientSocket1Connecting(Sender: TObject;Socket: TCustomWinSocket);
begin
edit1.text := '正在连接到服务器... ' ;
end;
procedure TfrmClientMain.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
//当断开与服务器端的连接时发生
end;

procedure TfrmClientMain.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer);
begin
//当与服务器端的连接发生错误时
StatusBar.Panels[0].Text := '与服务器端的连接发生错误';
end;

网上有很多关于这方面的资料，你可以去找些自己看一下，比我在这里说的要详细的多，由于百度回答有字符的限制，具体怎么操作你自己琢磨下吧

Answer 2

这位大哥！我也想要个delphi的SOCKET 程序的源码，大哥有么？小弟最近在学习这个，不知道从何入手。。。
能发份给我吗？87660113@qq.com
谢谢