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;
------------------------------------------
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus
