Mam problem. A mianowicie piszę komunikatora i nawet jeśli użyję procedury do odbioru wiadomości przez serwer, którą znalazłem na forum to nie działa :-/
To jest procedura do wysłania:
procedure TForm1.btnwyslijClick(Sender: TObject);
begin
IdTCPClient1.WriteLn('jakis string');
end;
A to do odbioru:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
S : string;
begin
S := AThread.Connection.ReadLn();
if S = 'jakis string' then
Memo.Lines.Add(S);
end;
No i cała rzecz w tym, że wysłana wadomość się nie wyświetla. Co można z tym zrobić żeby działało?