不知道如何通过身份验证

Question

做一个客户端向一个服务器发送消息并接收服务器返回的消息
有正确的userID和password
那位高手可以指教一二 啊！

Answer 1

服务器端接受并反馈回客户端信息
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  tmpstr:string;
  jj:integer
begin
  tmpstr :=Socket.ReceiveText;
 //1******************************************************************************
  if tmpstr ='消息内容：'  then
  begin
      serverSocket1.Socket.Connections[jj].SendText('发送到客户端的信息'); 
  end;
end;
-----------------------------------------------------------
客户端向服务器发送信息 ClientSocket1.Socket.SendText('消息内容:'+Edit1.Text);
-------------------------------------------------------------
客户端读取服务器发送信息
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  tmpstr:string;  // tmpstr 为临时接收服务器端字符串变量
begin
  tmpstr:=socket.ReceiveText;
  // ***************************************************************************
  if tmpstr ='消息内容：' then
  begin
     
  end;
end;

Answer 2

太感谢你回复我了!
如果我没理解错，你的程序是告诉了我一个消息发送的简单代码
但，我想连接的服务器要求身份验证，正确的用户名和密码我有，只是，我如果仅仅将它们SendText给服务器，服务器并不接受，我跟踪过数据交换过程，服务器只是返回了一个确认包，而并没有接受我的身份