Also nochmal von vorn,
Wenn ich den Button drücke, wird die Meldung abgesetzt.
Wenn ich neue Informationen in Edit1 und Memo1 eingebe und den Button drücke
passiert nichts. Wiederhole ich dieses, geht es wieder!
Warum?
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
s: String;
begin
ClientSocket1.Open;
s := String.Format(
'<event>'#10'<address>%s</address>'#10'<message>%s</message>'#10'</event>',
[Edit1.Text,Memo1.Text]);
ClientSocket1.Socket.SendText(s);
ClientSocket1.Close;
Edit1.Clear;
Memo1.Clear;
end;