Hi, народ у меня следующая проблема. Я тут решил попробовать поработать с сокетами, но тут то и возникла моя проблема. Приведу простейший код:

client

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ClientSocket1->Active=true;
}
//---------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ClientSocket1->Socket->SendText(Edit1->Text);
}

server

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ServerSocket1->Active=true;
}
//----------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
Form1->Caption="Клиент подсоединился";
}
//---------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
Edit1->Text=Socket->ReceiveText();
}

Сервак запускается без проблем, но при попытке клиента приконнектиться к хосту вылазит следующая ошибка:

"No address specified!"

Подскажите, что я не правильно сделал.


Заранее спасибо!

Код

void __fastcall TForm1::Button1Click(TObject *Sender) { ClientSocket1->Host="127.0.0.1"; //АЙПИ адрес ClientSocket1->Active=true; } //--------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { ClientSocket1->Socket->SendText(Edit1->Text); }

а к какому IP адресу он присойденяется??? Надо указать адрес, или в Properties -ах поставь или при конекте...

Спасибо, что подсказал!

Еще лучше указывать порт!
Соответственно на сервере он тоже должен быть указан!