关于如何屏蔽socket错误的问题

Question

用delphi的socket控件进行编程时，用exe运行时，有时总提示api socket的底层错误：
“address of XXXXXX api error (100XX)”,请问如何屏蔽掉它，我在socket的错误事件中，加入了errorcode:=0也不行啊

Answer 1

在Application.OnException事件中写：
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := AppException;
end;procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
  if Pos('api error (100XX)', E.message) > 0 then
    showmessage ('Error');
end;