Witam.
Prosze o pomoc gdyz nie jestem zaawansowanym programista (raczej poczatkujacym i raczej nie programista ;-) ).
Chce zrobić prosty komunikator do przesylania tekstu miedzy komputerami.
Uzywam Delphi 6 Enterprise. Umiescilem na formularzu komponent client i serwer.
Tekst do wyslania wpisywany jest w Edit'a a odbierany pojawia sie w ListBoxie.
Aplikacja ma dzialac na tej zasadzie ze po wlaczeniu programu komponent client jest nieaktywny a serwer nasluchuje:
zdarzenie Event's :
with AThread.Connection do
begin
Listbox1.Items.Add(AThread.Connection.ReadLn(edSendText.Text))
end;
Gdy chcemy wyslac jakas wiadomosc do reszty osob wpisujemy w edit'a tekst i wciskamy przycisk WYSLIJ a w nim :
if not client.Connected then
server.Active:=false;
client.Host:=edit1.Text;
client.Connect;
with client do
begin
checkfordisconnect;
if connected then
begin
writeln (edSendText.Text);
listbox1.Items.Add(edSendText.Text);
client.Disconnect;
server.Active:=true;
end;
end;
Nie wiem gdzie zrobilem blad ale chcialem uzyskac efekt ze aplikacje po wlaczeniu nasluchuja a w momencie wcisniecia WYSLIJ dana aplikacja przelacza sie z serwera na clienta i nadaje.
Wszystko dziala ok. Po wlaczeniu 2 aplikacji obie nasluchuja. Przy wyslaniu tekstu z komputera pierwszego na drugim pojawia sie wiadomosc ale odwrotnie juz nie dziala-czyli wysylajac z drugiego komputera na pierwszym nie pojawia sie nic.
porty sa ustawione na 10001
Porsze o pomoc