Witam. Mam problem bo niewiem jak uzyc socketow w BCB. Szukalem artykulow w necie ale nic interesujacego nie znalazlem. Mam takie oto fragmenty kodu :
//POLE EDIT DO WYSYLANIA
void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{
char * tab1 = new char[sizeof(Edit2 -> Text)];
String lol = Edit2 -> Text;
strcpy(tab1, lol.c_str());
Socket1 -> Socket -> SendText(tab1);
}
//TO CO ODBIERZEMY PAKUJEMY DO MEMO
void __fastcall TForm1::Socket1Read(TObject *Sender,
TCustomWinSocket *Socket)
{
Memo1 -> Lines -> Add(Socket->ReceiveText());
}
//PRZYCISK POLACZENIA
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Socket1 -> Host = Edit1 -> Text;
Socket1 -> Active = true;
Socket1 -> Open();
}
Pierwszy blad to stworzenie soketow bo wyskakuje blad. Co zle zrobilem ??