TClientSocket的错误处理(33分)

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-30

• #1

procedure ClientSocket1Error(Sender:TObject;Socket:TCustomWinSocket;
ErrorEvent:TErrorEvent;varErrorCode:integer);
begin
ErrorCode:=0;//当出现错误是老是会弹出一个确认框Socket ErrorCode=0
　　　　　　　//请问要怎么写代码才能忽略错误，不跳出确认框
end;

 

B

bsense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-30

• #2

abort

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-30

• #3

procedure ClientSocket1Error(Sender:TObject;Socket:TCustomWinSocket;
ErrorEvent:TErrorEvent;varErrorCode:integer);
begin
ErrorCode:=0；
abort;//这样么？不行！
end;

 

K

kfp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-04-30

• #4

procedure ClientSocket1Error(Sender:TObject;Socket:TCustomWinSocket;
ErrorEvent:TErrorEvent;varErrorCode:integer);
begin
try
ErrorCode:=0;//这个怎么样
except
end;
end;

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-03

• #5

楼上的早就试过了
不行,还是弹出提示错误

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-05

• #6

这个问题一直没解决，晕

 

G

gzbxmcx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-05

• #7

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin

Abort;

end;
这样....分拿来...呵呵..

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-06

• #8

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin

tag:=0;
Abort;

end;
//我还需要设置一个变量，测试过再给你

 

月

月满C楼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-06

• #9

错误还是跳了出来