clientsocket组件的使用？

[eliuren]

请问clientsocket可以设置网络连接超时吗？怎么设置，最好能贴段原码？非常感谢！

[zhhuang2002]

好象不能设置

[eliuren]

郁闷，哪为高手帮帮我！

[bitcom]

没试过，看看帮助！！！

[hiflower]

不行吧，只能通过 OnError 事件来捕捉

[halfdream]

如果你使用非阻塞方式,你可以OPEN后在一定时间内如果无OnConnected,
则是连接超时.

如果是阻塞方式,超时处理较麻烦一些..

[eliuren]

to hiflower(花) :那样处理的话，如果一但服务器端断开或网络连接异常的话，程序运行很慢，几乎会死掉
to halfdream(哈欠) :我用的是阻塞式的，说说你的处理方法，最好帖出原代码！

谢谢各位！

[eliuren]

看不懂

[killme2008]

楼上的楼上能不能翻译一下

[eliuren]

怎么没人回答？

[hiflower]

Specifies whether the client socket reads and writes information asynchronously over the socket connection.

type TClientType = (ctNonBlocking, ctBlocking);
property ClientType: TClientType;

Description

Set ClientType to ctNonBlocking to enable the client socket to respond to asynchronous reading and writing events. When ClientType is ctNonBlocking, execution is not blocked by reading and writing over the socket connection. OnRead or OnWrite events occur when the socket needs to read or write over the connection.

Set ClientType to ctBlocking to force all reading and writing to occur synchronously. It is a good idea to include the client socket object in a thread if the ClientType is ctBlocking, so that I/O does not block all execution within the client application.

When ClientType is ctBlocking, use a TWinSocketStream object for reading and writing. TWinSocketStream prevents the application from hanging indefinitely if a problem occurs while reading or writing. It also can wait for the socket connection to indicate its readiness for reading.

Use a non-blocking socket when the socket needs to synchronize reading and writing with server sockets.

[eliuren]

郁闷

[FSU]

通过OnError 事件，用try..except..

[eliuren]

to FSU(洋葱面) ：这样太慢了

[XXSingle]

目前我也只用OnError 事件中的try..except..慢是慢了点，
不过至少程序不会死...

[2312]

我是这样做的：
连接写到Timer1里面，用OnError 事件中的try..except..配合使用，这样就不会死机了


你可以用Timer计时，超过一定时间就是超时，而在这段时间里你可以反复连接，也包括异常处理

[2312]

还是给你贴处理吧


procedure TF_main.Timer1Timer(Sender: TObject);
begin
if not ClientSocket1.Active then
begin
clientsocket1.Host:=strseraddr;
ClientSocket1.Active:=true;
ClientSocket1.Socket.Lock;
end
else
begin
ClientSocket1.Socket.SendText(strSockType+','+strIP+','+strSockValue+',');
Timer1.Enabled:=false;
end;
end;

procedure TF_main.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
try
if errorcode=0
then
begin
..........
end;
except
....
end;
end;

[邹工]

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

begin
// TErrorEvent = (eeGeneral, eeSend, eeReceive,
// eeConnect, eeDisconnect, eeAccept, eeLookup);
case ErrorEvent of
eeGeneral:memo1.Lines.Add('eeGeneral');
eeSend:memo1.Lines.Add('eeSend');
eeReceive:memo1.Lines.Add('eeReceive');
eeConnect:memo1.Lines.Add('连接超时[eeConnect]');
eeDisconnect:memo1.Lines.Add('eeDisconnect');
eeAccept:memo1.Lines.Add('eeAccept');
eeLookup:memo1.Lines.Add('eeLookup');
end;

errorCode:=0;
end;

[Wally_wu]

if not CheckSocketAvail then
raise Exception.Create('Remote connection not available');