Hi Leute,
ich habe ein Problem, wenn ich einen Text vom
TCP Server zum
TCP Client senden möchte. Von Client zum Server geht ohne Probleme. Immer wenn ich einen Text vom Server zum Client senden möchte, kommt die Fehlermeldung, die als Attachment angefügt habe. Hier der Source Code:
Delphi-Quellcode:
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
//Initialisierung des Objekts (ältere Delphi-Versionen)
Server := TServerSocket.Create(Form1);
Client := TClientSocket.Create(Form1);
Server.OnClientRead := ServerClientRead; //Nur bei älteren Versionen
//Server.OnClientWrite := ServerClientWrite; // Nur bei älteren Versionen
Client.OnRead := ServerRead; // Nur bei älteren Versionen
try
Server.Port := 10024;
Server.Open;
Client.Port := 10024;
Client.Host := '127.0.0.1';
//Client.Open;
Client.Active := True;
except
//Im Fehlerfall wieder freigeben (ältere Versionen)
Client.Free;
Server.Free;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Client.Free;
Server.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Client.Socket.SendText('Hallo!');
Server.Socket.SendText('selber Hallo!');
end;
procedure TForm1.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
MSG: String;
begin
//Der Text wird in der Variable MSG gespeichert
MSG := Socket.ReceiveText;
//Der Text wird einem MemoFeld hinzugefügt
Memo1.Lines.Add(MSG);
end;
procedure TForm1.ServerRead(Sender: TObject; Socket: TCustomWinSocket);
var
MSG: String;
begin
//Der Text wird in der Variable MSG gespeichert
MSG := Socket.ReceiveText;
//Der Text wird einem MemoFeld hinzugefügt
Memo1.Lines.Add(MSG);
end;
end.
Was hab ich falsch gemacht?
Könnt Ihr mir helfen?
Danke im voraus.
Gruß
xthing