procedure TMainForm.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ClientSocket.Active := false;
end;提示错误后,发现ClientSocket.active还是等于true,为什么?怎么解决啊?我是在发送数据后提示10038错误后遇到的这种情况。无论怎么改,发现ClientSocket.active还是等于true!
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ClientSocket.Active := false;
end;提示错误后,发现ClientSocket.active还是等于true,为什么?怎么解决啊?我是在发送数据后提示10038错误后遇到的这种情况。无论怎么改,发现ClientSocket.active还是等于true!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货