Print Page - FPC/Lazarus compilation issues

Hi Danijel,

Please add following fixes to eleminate compilation problems under FPC/Lazarus

1. FpcApi.inc

Please change declaration of this functions:

function WSA_GetSockName(s: TSocket; var name: TSockAddr): Integer;
function WSA_GetPeerName(s: TSocket; var name: TSockAddr): Integer;

to

function WSA_GetSockName(s: TSocket; var name: TSockAddr; PreferIP4:Boolean): Integer;
function WSA_GetPeerName(s: TSocket; var name: TSockAddr; PreferIP4:Boolean): Integer;

PreferIP4 parameter must be added because it's used while calling this functions from rtcSynApi.pas

2. rtcTypes.pas

Please change

Code:

{$IFDEF UNICODE}
  // @exclude
  RtcBinWideChar = Word;
  // Unicode String
  RtcWideString = String;
  // Unicode character
  RtcWideChar = Char;
{$ELSE}
  // @exclude
  RtcBinWideChar = Word;
  // Unicode String
  RtcWideString = WideString;
  // Unicode character
  RtcWideChar = WideChar;
{$ENDIF}

Code:

{$IFDEF UNICODE}
  // @exclude
  RtcBinWideChar = Word;
  // Unicode String
  RtcWideString = String;
  // Unicode character
  RtcWideChar = Char;
{$ELSE}
  {$IF DEFINED(FPC) AND DEFINED(VER3)} // FPC 3.0 have unicode support
  // @exclude
  RtcBinWideChar = Word;
  // Unicode String
  RtcWideString = String;
  // Unicode character
  RtcWideChar = Char;
  {$ELSE}
  // @exclude
  RtcBinWideChar = Word;
  // Unicode String
  RtcWideString = WideString;
  // Unicode character
  RtcWideChar = WideChar;
  {$ENDIF}
{$ENDIF}

This changes needed to eleminate hundreds warnings like Implicit string type conversion with potential data loss from "WideString" to "AnsiString", AnsiString to WideString, UnicodeString to AnsiString and so on.

3. rtcInfo.pas->function GetTickTime:Cardinal;

Change

Result := fpTimes(b)*10;

to

Result := Cardinal(fpTimes(b)*10);

This change eleminate Range error exception on start of app.

After this changes RTC compiles in Lazarus 1.6.4 and FPC 3.0.2 and Quick Start\Lazarus_Server demo works on both Windows64 and Linux64.

And one final note:

In Quick Start\Lazarus_Server demo please add RtcHttpServer.StopListenNow(); in form's OnClose. Without this line access violation occurs on closing demo app.

RTC Forums

Subscription => Support => Topic started by: Max Terentiev on June 04, 2017, 01:38:01 PM