[Delphi] Pomocyyy :-(

Witam, mam problem a mianowicie:
Gdzies w kodzie mam procedure wysylajaca (w zaleznosci czy program dziala jako serwer czy jako klient) zmienne. Cos takiego:

If RSerwer.Checked = True Then
Serwer.Socket.Connections[0].SendText('AA');
If RKlient.Checked = True Then
Client.Socket.SendText('AA');

Zaraz po tym:

If RKlient.Checked = True Then
Begin
If RKol.Checked = True Then
Client.Socket.SendText('BB');
If RKrzyz.Checked = True Then
Client.Socket.SendText('BB');
End;
If RSerwer.Checked = True Then
Begin
If RKol.Checked = True Then
Serwer.Socket.Connections[0].SendText('BB');
If RKrzyz.Checked = True Then
Serwer.Socket.Connections[0].SendText('BB');
End;

Problem tkwi w tym ze serwer, lub klient odbiera to jako AABB

--------------------
GG: 4206396

---

Procedura jest poprawna i w rzeczywistości istotnie wysyłanym tekstem będzie 'AABB'. Wczytaj sie dokładnie w procedurkę, linia po linii :cheesy:8)

Terminator

I`ll be back ...

Wczytywalem sie w ta procedurke i mam juz jej dosyc ;) Wiec jezeli wiesz to napisz co jest nie tak :D
Z gory dzieki.

--------------------
GG: 4206396

cytat:Oskar_ napisał:

Wczytywalem sie w ta procedurke i mam juz jej dosyc ;) Wiec jezeli wiesz to napisz co jest nie tak :D
Z gory dzieki.

--------------------
GG: 4206396

Człowieku,przecież piszesz tak:

If RSerwer.Checked = True Then Serwer.Socket.Connections[0].SendText('AA'); If RKlient.Checked = True Then Client.Socket.SendText('AA');

Tłumacze ten kodzik - jeżeli aplikacja jest serwerem,bądź klientem to wyślij tekst 'AA' wg. zmiennych.

Zasady są po to,aby je łamać... :crowd:

E-mail: patryknusbaum@interia.pl
GG: 5478429

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl