Вопрос TClientSocket

[D61C76h]

При подключении к серверу необходимо сразу же отправить сообщение.

//Подключение к серверу
ClientSocket1.Port := StrToInt(edPort.Text);
ClientSocket1.Address := edIP.Text;
ClientSocket1.Open;
//Отправка номера команды
ClientSocket1.Socket.SendText(IntToStr(RadioGroup3.ItemIndex));

Но сервер не принимает эту команду, т.е. обработчик ServerSocket1ClientRead не реагирует.
Подскажите что не так????

[veniside]

а сокет вобще подключается хоть куда-то? Что SendText() возвращает?

[D61C76h]

SendText возвращает 0. Я просто не могу найти толковую справку или описание по этим компонентам. Может что то подскажете?

[D61C76h]

Мне не понятно почему оно не работает. Если

ClientSocket1.Socket.SendText(IntToStr(RadioGroup3.ItemIndex));

вставить в отдельный обработчик нажатия кнопки (какой то другой кнопки, а не той по нажатию которой происходит подключение и сразу же отправка сообщения), то все работает нормально. То есть проблема именно в том что я отправляю сообщение сразу же после подключения и в том же обработчике, я так понял. Но почему так неясно.

[Пепел Феникса]

а событие OnConnect для кого?
а то вы еще не подключились но уже пытаетесь отправить текст.

[veniside]

Справка по F1 или тут:

http://docwiki.embarcadero.com/VCL/e....TClientSocket
http://docwiki.embarcadero.com/VCL/e....TServerSocket

ЗЫ. Ух ты, там ещё ОнКоннект() надо ждать... а если перевести сокет в блокирующий режим (ClientType = ctBlocking), не проще будет отлаживать?

[D61C76h]

Все работает))) Спасибо))) Использовал событие OnConnect.