“客户端发送一段文本，然后收到服务器端的应答文本”，谁有例子啊？

Question

客户端的界面是：
两个文本框用来填写server的IP和端口号，三个按钮：“连接”、“发送”、“断开”，一个文本框填写发送的文本（如：aaa），一个文本框显示接受到的服务器应答文本（如：bbb)可以将代码发到
谢谢！

Answer 1

转篇文章给你.是发送聊天信息的.不过你改一下把就可以了.
使用TCP/IP协议实现聊天程序    
  使用TCP/IP协议实现聊天程序 
TCP/IP协议的传输即面向点到点的传输方式！1.创建应用程序。选择“NEW”菜单下的“Application”选项，创建一个普通的应用程序。2.创建所需控件。首先在控件栏的Win32页中选择ImageList控件和CoolBar控件，再从Win32栏选择ToolBar控件放置到CoolBar控件上。用鼠标右键单击“ImageList”控件，在弹出的菜单中选择“ImageList Editer...”选项，弹出“ImageList Editer”对话框，单击“Add...”按钮，选择5幅位图。在对象管理器Object Inspector中将ToolBar控件的Image属性设为“ImageList1”，用鼠标右键单击“ToolBar”控件，选“New Button”选项，总共创建5个ToolButton，在 对象管理器中将5个ToolButton的ImageIndex属性分别设置为0，1，2，3，4。此时ImageList控件中的5幅位图将会分别显示在Toolbutton上，将5个ToolButton控件的ShowHint属性全都设置为“ture”，并将它们的Hint属性分别设置为“监听”、“连接”、“断开连接”、“更改你的昵称”和“退出聊天程序”。然后在窗体中放置一个Edit控件、Memo控件、StatusBar控件和一个Label控件。将Label控件的Caption属性设置为“输入框”。最后，也是最关键的，在控件栏的Internet页中选择SeverSocket控件和ClientSocket控件放置在窗体中，将SeverSocket控件和ClientSocket控件的Port属性设置为“1100”。SeverSocket控件是基于TCP/IP协议传输的服务器方的控件，它的主要作用是用来监听其它基于TCP/IP传输计算机的连接请求，并在收到连接请求时建立连接，进行数据传输，ClientSocket控件是基于TCP/IP传输的客户方的控件，它的主要作用是向监听TCP/IP传输的服务器发出连接请求，在收到服务器的允许连接的响应后，建立连接，并传输数据，之所以在窗体中同时创建ServerSocket和ClientSocket控件，是因为应用程序既可作为服务器,又可作为客户端使用。3.Serversocket和ClientSocket之间的连接首先设置两个全局变量：NickName:string;b_Client:boolean;其中NickName用于放聊天人的名称，b_Client用于表明应用程序是否作为客户端进行数据传输。在窗体Form1的Oncreate事件中初始化变量，代码如下：procedure TForm1.FormCreate(Sender:TObject);beginNickName:+="我的昵称";b_Client:=ture;end;双击ToolButton1，编写服务器监听代码如下：procedure TForm1.Toolbutton1Click(Sender:TObject);beginClientSocket1.close;ServerSocket1.open;StatusBar1.SimpleText:='开始监听’；end;双击ToolButton2,编写客户的申请连接，代码如下：procedure TForm1.ToolButton2Click(Sender:TObject);var s:string;beginif Clientsocket1.Active thenClientSocket1.close;if InputQuery('连接到计算机','要连接的计算机名称或IP地址：',s) thenif Length(s)>0 thenwith ClientSocket1 dobeginHost:=s;open;end;end;在对象管理器中，双击ClientSocket事件页的OnConnecting事件，编写处理客户等待连接请求，代码如下：procedure TForm1.ClientSocket1Connecting(Sender:TObject;Socket:TCustomWinSocket);beginStatusBar1.SimpleText:='等待来自'+Socket.RemoteAddress+'的连接允许响应...';end;在对象管理器中，双击SeverSocket事件页的OnAccept事件，处理服务器响应连接事件，代码如下：procedure TForm1.SeverSocket1Accept(Sender:TObject;Socket:TCustomWinSocket);beginb_Client:=false;StatusBar1.SimpleText:='连接到'+Socket.RemoteAddress;end;在对象管理器中，双击ClientSocket事件页的OnConnect事件，OnConnect事件在连接成功时被调用，代码如下：procedure TForm1.ClientSocket1Connect(Sender:TObject;Socket:TCustomWinSocket);beginb_Client:=ture;StatusBar1.SimpleText:='连接成功';end;4.ServerSocket和ClientSocket之间的数据传输聊天的内容是通过Edit控件输入并在敲回车键后显示在Memo控件中，再传输到与之连接的计算机中。Edit的OnKeyDown事件代码如下：procedure TForm1.Edit1KeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);beginif Key=VK_Return thenbeginMemo1.Lines.Add(NickName+':'+Edit1.Text0;if b_Client thenClientSocket1.Socket.SendText(Memo1.Lines[Memo1.lines.Count-1])elseServerSocket1.Socket.Connections[0].SendText(Memo1.Lines[Memo1.lines.Count-1]);end;end;在ServerSocket控件的onread事件中编写服务器接收到数据后的动作，代码如下：procedure TForm1.ServerSocket1ClientRead(Sender:TObject;Socket:TCustomWinSocket);beginMemo1.lines.Add(Socket.ReceiveText);end;在ClientSocket控件的onread事件中编写客户端接收到数据后的动作，代码如下：procedure TForm1.ClientSocket1Read(Sender:TObject;Socket:TCustomWinSocket);beginMemo1.lines.Add(Socket.ReceiveText);end;5.断开Serversocket和ClientSocket之间的连接双击ToolButton3,编写客户端断开的处理过程，代码如下：procedure TForm1.ToolButton3Click(Sender:TObject);beginClientSocket1.close;StatusBar1.SimpleText:='断开连接';end;编写服务器响应客户端断开的处理过程，代码如下：procedure TForm1.ServerSocket1ClientDisconnect(Sender:TObject;Socket:TCustomWinSocket);　beginSeverSocket1.close;StatusBar1.SimpleText:='断开连接';end;6.更改聊天者的昵称双击Toolbutton4,编写更改昵称代码如下：procedure TForm1.ToolButton4Click(sender:TObject);vars:string;beginif InputQuery('更改昵称','你的新昵称',s) thenif Length(s)>0 thenNickName:=s;end;7.退出应用程序双击Toolbutton5，编写退出应用程序代码如下：procedure TForm1.ToolButton5Click(sender:TObject);ClientSocket1.close;ServerSocket1.close;Form1.close;end;8.保存并运行应用程序最好在网上运行该程序，如果没联网，但你的计算机支持TCP/IP协议（可以通过网络邻居安装TCP/IP协议），你可以在你的计算机上从“我的电脑”中运行该应用程序的两个实例。运行后，将一个聊天程序作为服务器监听，另一个聊天程序作为客户与服务器连接并聊天。局域网中同样可以运行！！！　
 

Answer 2

用 ServerSocket 和 ClientSocket 可很容易做unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    btnConnectToServer: TButton;
    btnServerListen: TButton;
    btnSendToServer: TButton;
    Edit1: TEdit;
    btnDisconnectFromServer: TButton;
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure btnServerListenClick(Sender: TObject);
    procedure btnConnectToServerClick(Sender: TObject);
    procedure btnSendToServerClick(Sender: TObject);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure btnDisconnectFromServerClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
//  showMessage(ServerSocket1.Socket.Connections[0].ReceiveText);
//  ServerSocket1.Socket.Connections[0].SendText('dddd');
  ShowMessage( Socket.ReceiveText);
  Socket.SendText('xxx');
end;procedure TForm1.btnServerListenClick(Sender: TObject);
begin
  ServerSocket1.Open;
end;procedure TForm1.btnConnectToServerClick(Sender: TObject);
begin
  ClientSocket1.Open;
end;procedure TForm1.btnSendToServerClick(Sender: TObject);
begin
  ClientSocket1.Socket.SendText(Edit1.Text);
end;procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Caption:=Socket.ReceiveText;
end;procedure TForm1.btnDisconnectFromServerClick(Sender: TObject);
begin
  ClientSocket1.Close;
end;end.

Answer 3

to  hiflower(花)
您上面提供的程序，在delphi7中调试不出来，:(  ,按F9没有反应。
能否将client和server分别写成两个程序，该怎么实现，请不吝赐教。

Answer 4

DELPHI自带了例子的.你也可以看看那个.

Answer 5

Delphi 7 没有 ServerSocket ClientSocket 这两个控件吗？
把它们放到窗体上就行了啊。
分两个程序就是:///////////////////////
////// server  ////////
//////////////////////
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    btnServerListen: TButton;
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure btnServerListenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
//  showMessage(ServerSocket1.Socket.Connections[0].ReceiveText);
//  ServerSocket1.Socket.Connections[0].SendText('dddd');
  ShowMessage( Socket.ReceiveText);
  Socket.SendText('xxx');
end;procedure TForm1.btnServerListenClick(Sender: TObject);
begin
  ServerSocket1.Open;
end;end.///////////////////////
////// Client  ////////
//////////////////////
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    btnConnectToServer: TButton;
    btnSendToServer: TButton;
    Edit1: TEdit;
    btnDisconnectFromServer: TButton;
    procedure btnConnectToServerClick(Sender: TObject);
    procedure btnSendToServerClick(Sender: TObject);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure btnDisconnectFromServerClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnConnectToServerClick(Sender: TObject);
begin
  ClientSocket1.Open;
end;procedure TForm1.btnSendToServerClick(Sender: TObject);
begin
  ClientSocket1.Socket.SendText(Edit1.Text);
end;procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Caption:=Socket.ReceiveText;
end;procedure TForm1.btnDisconnectFromServerClick(Sender: TObject);
begin
  ClientSocket1.Close;
end;end.

Answer 6

收不到服务器端发来的"xxx"如何设置server的IP地址和端口号啊？

Answer 7

//客户端uses
  ScktComp;    //加入Socket单元
   .
   .
   .var
  ClientSocket: TClientSocket;     //也可放控件
   .
   .
   .
   
procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket := TClientSocket;
  with ClientSocket do
  begin
    ClientType := ctNonBlocking;
    OnRead := Read;               //事件指定
  end;
end;procedure TForm1.Read(Sender: TObject; Socket: TCustomWinSocket);
begin
  edtRec := Socket.ReceiveText;
end;procedure TForm1.btnConnectClick(Sender: TObject);  //'连接'按钮
begin
  with ClientSocket do
  begin
    Host := Trim(edtIP);                  //edtIP--Edit框
    Port := StrToIntDef(edtPort, 8045);   //edtPort--Edit框
    try
      Open;
    except
      ShowMessage('连接失败!');
    end;
  end;   procedure TForm1.btnSendClick(Sender: TObject);  //'发送'按钮
begin
  ClientSocket.Socket.SendText('A text from Client');
end;procedure TForm1.btnCloseClick(Sender: TObject);  //'断开'按钮
begin
  ClientSocket.Close;
end;
//服务端uses
  ScktComp;var
  ServerSocket: TServerSocket;procedure TForm1.FormCreate(Sender: TObject);
begin
  ServerSocket := TSErverSocket.Create(nil);
  with ServerSocket do
  begin
    Port := StrToIntDef(dtPort, 8045);
    ServerType := stNonBlocking;
    OnClientRead := ClientRead;
  end;
end;procedure TForm1.Read(Sender: TObject; Socket: TCustomWinSocket);
begin
  Socket.SendText('Return from Server');
end;

Answer 8

Serve端不用设IP, 端口号和Client一致

Answer 9

利用CLIENT发送过来使用的
SOCKET 作出应答
SOCKET.SENTTEXT('OK');

Answer 10

我给你个用indy做的类似的例子，留下你的email