Цитата:
|
Сообщение от zNk
3. Когда TClientSocket пытается соединится к серву которого нет, то сокет выводит ошибку на экран, как предотвратить выведение этих ошибок вообще??? Try Except не помогает  |
procedure TForm1.Server1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode:=0; // И твоё сообщение об ошибке исчезнет
end;