[Lazarus] Lazarus Release 1.6.4

Mattias Gaertner nc-gaertnma at netcologne.de
Wed Mar 1 19:00:50 CET 2017


On Wed, 1 Mar 2017 17:14:19 +0100
J├╝rgen Hestermann via Lazarus <lazarus at lists.lazarus-ide.org> wrote:

> Am 2017-03-01 um 14:05 schrieb Mattias Gaertner via Lazarus:
> > The Lazarus team is glad to announce the release of Lazarus 1.6.4. This
> > is a bugfix release.
> >
> >  
> I just downloaded this new version for Windows 32 and tried to install packages (LCLextension 0.6 and VirtualTreeView 5.5.3)
> but always get an error on this function in OLEUTILS:
> 
> ------------------------------------------
> function TOLEStream.Seek(Offset: Integer; Origin: Word): Integer;
> var
>    liResult, liOffset : LARGE_INTEGER;
>    Res: HRESULT;
> begin
>    //soFrom* constants are equal to STREAM_SEEK_* constants. Assume it here
>    liOffset.LowPart:=Offset;
>    liOffset.HighPart:=0;
>    {$if FPC_FULLVERSION >= 30100}
>    Res:=FSrcStream.Seek(QWord(liOffset), Origin, QWord(liResult));
>    {$else}
>    Res:=FSrcStream.Seek(Int64(liOffset), Origin, Int64(liResult)); <------   oleutils.pas(110,64) Error: Call by var for arg no. 3 has to match exactly: Got "Int64" expected "QWord"
>    {$endif}

Yes, this is caused by one of the two changes pf 3.0.2. See
http://wiki.lazarus.freepascal.org/User_Changes_3.0.2#Classes

Mattias


More information about the Lazarus mailing list