Delph7 und 7Zip.dll Fehler beim Dateidatum auslesen

[Lemmy]

Hallo,

ich "versuche" die 7Zip.dll in Delphi 7 zu verwenden. Dafür verwende ich den Wrapper von Henri Gourvest (https://code.google.com/p/d7zip/). Grundsätzlich funktioniert das Teil, allerdings versuche ich aktuell das Datum der Zip-Items auszulesen. Die DLL stellt dafür folgende Methode bereit:

    function GetProperty(index: Cardinal; propID: PROPID; var value: OleVariant): HRESULT; stdcall;
aber eigentlich kommt da kein OleVariant zurück, sondern ein PROPVARIANT.

Unter XE4 ist das kein Problem:

Delphi-Quellcode:

var  LastAcc: PROPVARIANT;
  varOle: OleVariant;
begin
  if Assigned(FInArchiv) then
  begin
    FInArchiv.InArchive.GetProperty(AIndex, kpidLastWriteTime,varOle);
      LastAcc := PROPVARIANT(VarOle);
      result := FileTimeToDateTime(LastAcc.filetime);
...

Allerdings führt der Code unter Delphi 7 bei der Zuweisung an "result" zu einem Fehler:

Ungültiger Variant-Typ

Callstack:

Delphi-Quellcode:

main thread ($e8c):
0046b52d +0b5 Project1.exe Variants         TranslateResult
0046b6d0 +004 Project1.exe Variants         VarResultCheck
0046ba71 +071 Project1.exe Variants         VarClearDeep
0046ba89 +00d Project1.exe Variants         @VarClear
0046ba91 +001 Project1.exe Variants         @VarClr
004af547 +093 Project1.exe pp7Zip   264 +11 TPP7Zip.GetItemLastAccess

d.h. der Fehler tritt beim Aufräumen auf. Setze ich ein VarClar vor die Result-Zuweisung schepperts dann halt da...

Hat jemand eine Idee wie ich das unter D7 zum Laufen bringe?

GRüße

[Lemmy]

Tach,

habe das jetzt in Delphi 7 so hin bekommen:

Delphi-Quellcode:

function TPP7Zip.GetItemLastAccess(AIndex: Cardinal): TDateTime;
var  LastAcc: PROPVARIANT;
  varOle: OleVariant;
  dtResult: TDateTime;
begin
  if Assigned(FInArchiv) then
  begin
    FInArchiv.InArchive.GetProperty(AIndex, kpidLastWriteTime,varOle);
      LastAcc := PROPVARIANT(VarOle);
      {$IFDEF VER150}
      TVarData(VarOle).VType := varEmpty;
      {$ENDIF}
      result := FileTimeToDateTime(LastAcc.filetime);