-
Notifications
You must be signed in to change notification settings - Fork 55
Open
Description
Good Job. Thank you.
I have Modified two point on Delphi 12 Athens ...
-
Need TypeCast ...
function TncLine.GetReceiveTimeout: Integer;
var
Opt: DWord;
OptSize: Integer;
begin
OptSize := SizeOf(Opt);
{$IFDEF MSWINDOWS}
Check(GetSockOpt(FHandle, SOL_SOCKET, SO_RCVTIMEO, PAnsiChar(@opt), OptSize));
{$ELSE}
Check(GetSockOpt(FHandle, SOL_SOCKET, SO_RCVTIMEO, Opt, socklen_t(OptSize))); <-- TypeCast by socklen_t
{$ENDIF}
Result := Opt;
end; -
Need Escape Block ...
{$IFDEF MSWINDOWS}
procedure TConnectThread.ProcessEvent; <-- Escape from MSWINDOWS Block ...
...
{$ENDIF}
Metadata
Metadata
Assignees
Labels
No labels