Показать сообщение отдельно
  #1  
Старый 29.07.2009, 21:49
qwwwq qwwwq вне форума
Прохожий
 
Регистрация: 12.01.2009
Сообщения: 47
Репутация: 10
По умолчанию Ошибка TClientSocket

есть компонент TClientSocket если в адрес сервера и порт указан правльно то все нормально обрабатывается, если же адрес либо порт неправльно указан то выдается ошибка виндовса. Я по событию OnError сделал обработчик, но он у меня после все равно выдает ошибку виндосовскую.
Делаю элементарно:
Код:
procedure TForm1.Button1Click(Sender: TObject);
Var
 ip:string;
 port:integer;
begin
 ip:=sMaskEdit1.Text;
 port:=strtoint(Edit1.Text);
 ClientSocket1.Address:=ip;
 ClientSocket1.Port:=port;
ClientSocket1.Active := true;
end;
Что не так?
И как определить клиенту что текст до сервера дошел?
Ответить с цитированием