P
panchenglin
Unregistered / Unconfirmed
GUEST, unregistred user!
请教关于TTimeVal类和TFDSet类的说明和用法。肯定会给分！！！
{自定义函数: 判断是否可以读数据}
function TXSocket.CanRead(aTimeOut: Integer): integer;
var
FDSet : TFDSet;
TimeVal : TTimeVal;
begin
TimeVal.tv_sec := aTimeout div 1000;
TimeVal.tv_usec := (aTimeout mod 1000) * 1000;
FD_ZERO(FDSet);
FD_SET(m_Socket, FDSet);
result := select(0, @FDSet, nil, nil, @TimeVal);// 若返回0则说明读数据超时
end;
{自定义函数: 判断是否可以读数据}
function TXSocket.CanRead(aTimeOut: Integer): integer;
var
FDSet : TFDSet;
TimeVal : TTimeVal;
begin
TimeVal.tv_sec := aTimeout div 1000;
TimeVal.tv_usec := (aTimeout mod 1000) * 1000;
FD_ZERO(FDSet);
FD_SET(m_Socket, FDSet);
result := select(0, @FDSet, nil, nil, @TimeVal);// 若返回0则说明读数据超时
end;