[Lazarus] Lazarus Release 1.6.4

J├╝rgen Hestermann juergen.hestermann at gmx.de
Wed Mar 1 17:14:19 CET 2017

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;
   liResult, liOffset : LARGE_INTEGER;
   Res: HRESULT;
   //soFrom* constants are equal to STREAM_SEEK_* constants. Assume it here
   {$if FPC_FULLVERSION >= 30100}
   Res:=FSrcStream.Seek(QWord(liOffset), Origin, QWord(liResult));
   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"
   if Res <> S_OK then
     Raise Exception.Create('TOLEStream - Error while seeking: '+ErrorString(Res));

More information about the Lazarus mailing list