Skip to content

ncLins.pas - Compile Error on Android Platform #29

@HuichanKIM

Description

@HuichanKIM

Good Job. Thank you.

I have Modified two point on Delphi 12 Athens ...

  1. 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;

  2. Need Escape Block ...
    {$IFDEF MSWINDOWS}
    procedure TConnectThread.ProcessEvent; <-- Escape from MSWINDOWS Block ...
    ...
    {$ENDIF}

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions