странные веши творятся с TClientSocket

← →
ilka (2003-08-07 16:17) [0]

почемут не посылается сообшение
вот код
ClientSocket:=TClientSocket.Create(nil);
//заполняем все остальное

// ХХХ
ClientSocket.Socket.SendText("hello");

если поставить вместо XXX Sleep(1000); все равно неработает
однако если поставить вместо XXX ShowMessage то заработает
если посылать по нажатию другой кнопки то работает
если вызвать програмно функцию нажатия кнокки_посылки то не работает
как устранить данный эффект?

← →
Polevi (2003-08-07 16:24) [1]

попробуй в обработчике OnWrite

← →
ilka (2003-08-07 16:32) [2]

ClientSocket.OnWrite прога вылетает

← →
panov (2003-08-07 16:59) [3]

//заполняем все остальное

Вот здесь-то и скрывается самое интересное.

← →
ilka (2003-08-07 17:02) [4]

ClientSocket:=TClientSocket.Create(nil); ClientSocket.Active:=false; ClientSocket.Address:="127.0.0.1"; ClientSocket.ClientType:=ctNonBlocking; ClientSocket.Port:=777; ClientSocket.Tag:=0; if not ClientSocket.Active then ClientSocket.Active:=true; //ХХХ СlientSocket.Socket.SendText("hello");

← →
Digitman (2003-08-07 17:06) [5]

либо вместо //ХХХ делай

while not ClientSocket.Active do
Application.ProcessMessages

либо перед

ClientSocket.Active:=true;

делай ClientSocket.ClientType := ctBlocking;

← →
ilka (2003-08-07 17:24) [6]

Digitman огромное спасибо

странные веши творятся с TClientSocket Найти похожие ветки