[Lazarus] Indy & WinCE

[Antonio Fortuny]

Hi All.

For those who are interested in the paches I've made so far, check on 
the attached file.

The Folder "D:\Programmes\LazPk\Indy10_5_8\Lib\" is the one which has 
been changed.
the folder "D:\Packages\Indy10SVN\Lib\" is the one dosnloaded from the 
Indy SVN server

Antonio.
-------------- next part --------------

Left file: D:\Programmes\LazPk\Indy10_5_8\Lib\Core\IdRegisterCore.pas
Right file: D:\Packages\Indy10SVN\Lib\Core\IdRegisterCore.pas
272c272
<    ,TIdTraceRoute
---
>    ,TIdTraceRoute*



Left file: D:\Programmes\LazPk\Indy10_5_8\Lib\Protocols\IdIMAP4.pas
Right file: D:\Packages\Indy10SVN\Lib\Protocols\IdIMAP4.pas
902c902
<     {Retrieve a specific individual part of a message where part is an integer or sub-part like '2.3'...}
---
>     {Retrieve a specific individual part of a message to a stream (part/sub-part like '2' or '2.3')...}
904,907c903,905
<           //var ABuffer: {$IFDEF DOTNET}TIdBytes{$ELSE}PByte{$ENDIF};
<           var ABuffer: PByte;
<           var ABufferLength: Integer; AContentTransferEncoding: string = 'text'): Boolean; overload;  {Do not Localize}
<     {Retrieve a specific individual part of a message to a stream (part/sub-part like '2' or '2.3')...}
---
>           ADestStream: TStream; AContentTransferEncoding: string = 'text'): Boolean; overload;    {Do not Localize}
>     {Retrieve a specific individual part of a message where part is an integer or sub-part like '2.3'...}
908,909c907,908
<           ADestStream: TStream; AContentTransferEncoding: string = 'text'): Boolean; overload;    {Do not Localize}
---
>           var ABuffer: {$IFDEF DOTNET}TIdBytes{$ELSE}PByte{$ENDIF};
>           var ABufferLength: Integer; AContentTransferEncoding: string = 'text'): Boolean; overload;  {Do not Localize}
912,913c910,911
<           //var ABuffer: {$IFDEF DOTNET}TIdBytes{$ELSE}PByte{$ENDIF};
<           var ABuffer: PByte;
---
>           var ABuffer: {$IFDEF DOTNET}TIdBytes{$ELSE}PByte{$ENDIF};
3207,3213d3204
< function TIdIMAP4.RetrievePart(const AMsgNum: Integer; const APartNum: string;
<   var ABuffer: PByte;
<   var ABufferLength: Integer; AContentTransferEncoding: string): Boolean;
< begin
<   Result := False
< end;
< 
3218,3219c3208,3209
<   //LDummy1: {$IFDEF DOTNET}TIdBytes{$ELSE}PByte{$ENDIF};
<   LDummy1: PByte;
---
>   LDummy1: {$IFDEF DOTNET}TIdBytes{$ELSE}PByte{$ENDIF};
3231,3232c3220,3221
<   //var ABuffer: {$IFDEF DOTNET}TIdBytes{$ELSE}PByte{$ENDIF};
<   var ABuffer: PByte;
---
>   var ABuffer: {$IFDEF DOTNET}TIdBytes{$ELSE}PByte{$ENDIF};
3240,3246c3229,3235
< //function TIdIMAP4.RetrievePart(const AMsgNum: Integer; const APartNum: string;
< //  var ABuffer: {$IFDEF DOTNET}TIdBytes{$ELSE}PByte{$ENDIF};
< //  var ABufferLength: Integer; AContentTransferEncoding: string): Boolean;
< //begin
< //  IsNumberValid(AMsgNum);
< //  Result := InternalRetrievePart(AMsgNum, APartNum, False, False, nil, ABuffer, ABufferLength, '', AContentTransferEncoding);  {Do not Localize}
< //end;
---
> function TIdIMAP4.RetrievePart(const AMsgNum: Integer; const APartNum: string;
>   var ABuffer: {$IFDEF DOTNET}TIdBytes{$ELSE}PByte{$ENDIF};
>   var ABufferLength: Integer; AContentTransferEncoding: string): Boolean;
> begin
>   IsNumberValid(AMsgNum);
>   Result := InternalRetrievePart(AMsgNum, APartNum, False, False, nil, ABuffer, ABufferLength, '', AContentTransferEncoding);  {Do not Localize}
> end;
3960c3949
< function TIdIMAP4.InternalRetrieveHeaders(AMsgList: TIdMessageCollection; ACount: LongInt): Boolean;
---
> function TIdIMAP4.InternalRetrieveHeaders(AMsgList: TIdMessageCollection; ACount: Integer): Boolean;



Left file: D:\Programmes\LazPk\Indy10_5_8\Lib\System\IdStackWindows.pas
Right file: D:\Packages\Indy10SVN\Lib\System\IdStackWindows.pas
1685,1686c1685
<   //if AEnabled and (Win32MajorVersion >= 5) then
<   if AEnabled then
---
>   if AEnabled and (Win32MajorVersion >= 5) then


Left file: D:\Programmes\LazPk\Indy10_5_8\Lib\System\IdWinsock2.pas
Right file: D:\Packages\Indy10SVN\Lib\System\IdWinsock2.pas
6282,6283d6281
< 
< {$IFNDEF WINCE}
6326d6323
< {$endif}