при нажатии на кнопку выполняется вот такой код
Код:
if CheckBox1.Checked=True then begin
ClientSocket1.Host:='comp1';
ClientSocket1.Open;
ClientSocket1.Close;
end;
if CheckBox2.Checked=True then begin
ClientSocket1.Host:='comp2';
ClientSocket1.Open;
ClientSocket1.Close;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText('s');
ClientSocket1.Close;
end;
выскакивает ошибка asynchronous socket error 10049, а если между условиями добавить showmessage, то все норм. подскажите в чем проблема?