On Wed, 1 Mar 2017 17:14:19 +0100
Jürgen Hestermann via Lazarus <lazarus@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
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus
