Za każdym razem jak zadaję pytanie to mój post jest wyp... wywalany przez ort!. Bardzo bym pragnął żeby <ort>chodź </ort>raz napisał dlaczego. Treść ostatniego wygladała następująco :
???????????????????????
Mam problem i mimo przykładu w examplach nie moge zauważyć gdzie robię błąd. Może ktoś z was swym biegłym okiem go dostrzeże?
Stworzyłem dwie aplikacje. Serwer z komponentem SocketServer i klienta z SocketClient. Po nacisnieciu w kliencie buttona "polacz" chcialem zeby dany tekst zostal wyslany do serwera i wyswietlony w edicie. I w koncu dzieje sie tak ale dopiero po drugim przycisnieciu buttona. Czyli po pierwszym kliknieciu brak reakcji, po drugim edit rzeczywiscie "dostaje" to co powinien.
Fragment kodu z klienta:
/////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::polaczClick(TObject *Sender)
{
ClientSocket->Port=1025;
ClientSocket->Host="127.0.0.1";
if (ClientSocket->Active==false) ClientSocket->Active=true;
ClientSocket->Socket->SendText("tekst");
}
//////////////////////////////////////////////////////////////////////////
Fragment kodu z serwera:
/////////////////////////////////////////////////////////////////////////
void __fastcall TForm1::ServerSocketClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
Edit1->Text=Socket->ReceiveText();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ServerSocket->Active=true;
}
////////////////////////////////////////////////////////////////////////////
?????????????????????????????????????????????????????????????/
Czy takie pytanie już na forum było? To proszę mi takie znaleźć i juz nigdy nie zajrze na to strone.
Czy szykalem w innych zrodlach? Jasne ze szukalem, poza tym jest przyklad w examplach CHAT ktory ogladalem juz ze wszystkich stron i nie widze roznicy.
A moze moj nick jest brzydki? :|