tcp client/server

[Mr.Dollar2k3]

soo das iss die source aber nicht voll ständig ich hab mal client und server für dich raus gepickt

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Standardkürzel "Strg + A"
  HotKey1.Modifiers := [hkCtrl];
  // Umschalt- und Alt-Taste nicht zulassen
  HotKey1.InvalidKeys := [hcShift, hcAlt];


//  Server:=TServerSocket.Create(Form1);
//  Client:= TClientSocket.Create(Form1);
  Memo1.Text:= '';
  Memo2.Text:= '';
  label3.Visible:= False;
  try

    Server.Port:=10024;
    Server.Open;

    //Client.Port:=10024;
    //Client.Host:='127.0.0.1';
    //Client.Open;
  except
    //Im Fehlerfall wieder freigeben (ältere versionen)
    Client.Free;
    Server.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var MSGClient: string;
begin
 MSGClient:= Memo2.Text;
 Client.Socket.SendText('DU@Server >> '+ MSGClient);
 Memo2.Text:=('DU@Server >> '+ MSGClient);


 end;



procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  Var MSG: String;
  begin
   Server.OnClientRead:=ServerClientRead;
  MSG:=Socket.ReceiveText;
  Memo1.Lines.Add('Server@DU << '+ MSG);
  end;

in diesen beispiel verbind det sich server und client und mann kann nachrichten verschicken

zur zeit arbeite ich noch an einen datentransfer aber der code isss richtig