Guten Tag.
Also, folgendes Problem:
Ich habe vor, einen kleinen Chat zu programmieren, weil ich denke, dass man sich damit wunderbar in die ganze
Materie des Netzwerkprogrammierens hineinversetzen kann.
Nur hängt es zur Zeit daran, dass mein Client einfach abschmiert.
Ich meine, die Verbindung zwischen idTCPClient und idTCPServer klappt schon ganz gut.
Naja..wie schon gesagt, das Problem liegt daran, dass man etwas im Client schreibt, dass dann an den Server übertragen wird, allerdings, wenn der Server es zurückübertragen will, dann hängt der Client sich auf.
Server:
Delphi-Quellcode:
procedure TForm1.TCPServerExecute(AThread: TIdPeerThread);
var Text: string;
begin
with AThread.Connection do
begin
Memo1.Lines.Add(ReadLn);
text := ReadLn;
WriteLn(Text);
disconnect;
end;
end;
Client:
Delphi-Quellcode:
procedure TForm1.BSendenClick(Sender: TObject);
begin
with TCPClient do begin
connect;
try
WriteLn(EText.Text);
Memo1.Lines.Add(ReadLn);
finally
disconnect;
end;
end;
end;
Ich hoffe ihr könnt mir helfen, ihr seid immerhin hier die Pro´s
:edit:
Memo1.Lines.Add(ReadLn);
Dort beschwert sich Delphi zumindest und sagt mir im Client garnichts mehr.
Ich schätze mal, ich hab da irgendwo ne endlosschleife weil er nicht disconnected, kann das hinhaun?
:/edit: