[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;
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}
   Result:=liResult.LowPart;
   if Res <> S_OK then
     Raise Exception.Create('TOLEStream - Error while seeking: '+ErrorString(Res));
end;
------------------------------------------



More information about the Lazarus mailing list