Serwer nie odbiera wiadomości od klienta

0

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?

0

Hmm... A wysyłasz wiadomość "jakis string"??

0

Nie no równie dobrze może być to:

procedure TForm1.btnwyslijClick(Sender: TObject);
var
 wadomosc : String;
begin
  wiadomosc := edtWiad.Text;
  IdTCPClient1.WriteLn(wiadomosc);
end;


procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  S : string;
begin
  S := AThread.Connection.ReadLn();
  Memo.Lines.Add(S);
end;

Co bym tam nie dał to serwer nie odbiera. (albo klient nie wysyła, bo to też możliwe, ale wydaje mi się, że to raczej w serwerze tkwi błąd)

0

Ups, sorry, nie zauważyłem tego wysyłania na sztywno, mea culpa.

0

Dobra, jakoś sobie z tym poradziłem i działa.
Ale mam drugie pytanie: jak teraz zrobić żeby można było wysyłać wiadomości w drugą stronę (z serwera do klienta)?
Chodzi o to żebym na serwerze mógł tak samo jak na kliencie wpisać w Memo tekst i wysłać go po kliknięciu przycisku na klienta. Można tak zrobić używając IdTCPServer? Czy będę musiał jakoś w wątki się bawić?

1 użytkowników online, w tym zalogowanych: 0, gości: 1