Forum > General

Problem converting for Delphi code for dealing with 64bit file dates

(1/1)

vfclists:

This is a follow up to http://forum.lazarus.freepascal.org/index.php/topic,8902.0.html.

The TULargeInteger used by Lazarus does not appear to support the record members for the LowPart and HighPart. What are the Lazarus equivalents?


--- Code: ---function TVersionInfo.GetFileDate: int64;
var
  LargeInteger: TULargeInteger;
begin
  if (Valid) and (FFileInfo <> nil) then
  begin
    LargeInteger.LowPart := FFileInfo.dwFileDateLS;
    LargeInteger.HighPart := FFileInfo.dwFileDateMS;
    Result := LargeInteger.QuadPart;
  end else
    Result := 0;
end;
--- End code ---

   

marcov:
(I don't see the relation to the other report?)

Anyway, it is hard to reproduce without a complete compilable program (preferably a simple console app without lazarus dependancies) to reproduce.

vfclists:
It is another part of the same unit and  I have attached the project here.
I haven't gotten round to doing console only apps yet, the form is the application default form.


--- Quote from: marcov on March 14, 2010, 10:18:15 pm ---(I don't see the relation to the other report?)

Anyway, it is hard to reproduce without a complete compilable program (preferably a simple console app without lazarus dependancies) to reproduce.

--- End quote ---

marcov:
(T)ULARGE_INTEGER has been changed to the native 64-bit type QWORD  (unsigned 64-bit). I assume to fix a different kind of usage in headers. (but it is there since SVN rev 1).

"LARGE_INTEGER" still works with lowpart and highpart.


Navigation

[0] Message Index

Go to full version