Hallo
Ich hab ein kleines Problem mit meinem Chat. Es funktioniert soweit ja alles, dass problem liegt nur daran, dass beide Personen im Chat nur einmal etwas senden können, danach kommt dann die Meldung "'Es konnte keine Verbindung zum Server hergestellt werden." (siehe code)! Woran liegt das?
Hier noch mein Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| procedure TForm1.BsendenClick(Sender: TObject);
var eingabe,senden:string;
begin
eingabe:=edit2.text;
name:=edit1.Text;
edit1.Enabled:=false;
Memo1.Lines.Add(name+': '+eingabe);
memo1.Lines.Add(' ');
senden:=name+': '+eingabe;
with idTCPClient1 do
try
Connect(1000);
WriteLn(senden);
except
ShowMessage('Es konnte keine Verbindung zum Server hergestellt werden.');
end;
end;
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var ausgabe:string;
begin
ausgabe := AThread.Connection.ReadLn();
memo1.Lines.Add(ausgabe);
memo1.Lines.Add(' ');
end; |
Ich hoffe ihr könnt mir helfen und danke im vorraus!
