TZipmaster & dynamische Zuweisung von Ereignissen

[Moony]

Hallo zusammen,

ich bin dabei ein Zip file zu entpacken. Das funktioniert alles soweit, aber wenn ich die Ereignisse während der Laufzeit zuweisen will gibts probleme:

Ich habe in meiner Fortschrittsform folgende Funktionen deklariert:

Delphi-Quellcode:

type
  TfmMsg = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Group: TGroupBox;
    Progress: TGauge;
    GroupBox2: TGroupBox;
    sBtnAbort: TSpeedButton;
    procedure sBtnAbortClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure ShowProgress(State: String);
    procedure UpdateProgress(Steps, State: String; MaxValue: integer);
    procedure OnProgress(Sender : TObject; ProgrType: ProgressType; Filename: String; FileSize: Integer);
  end;

var fmMsg: TfmMsg;

Irgendwo im Hauptsource weise ich das OnProgress-Ereignis dem Zipmaster zu, da ich diesen dynamisch erstelle.

  Zipmaster.OnProgress := fmMsg.OnProgress; An dieser stelle bekomme ich beim Kompillieren die Meldung:

Zitat:

Inkompatible Typen: 'Int64' und 'Integer'

Was ist da jetzt falsch dran?

Gruß, Moony

[nahpets]

Hallo,

weiß nicht, aber ändere den malprocedure OnProgress(Sender : TObject; ProgrType: ProgressType; Filename: String; FileSize: Integer); inprocedure OnProgress(Sender : TObject; ProgrType: ProgressType; Filename: String; FileSize: Int64); Integer dürfte für FileSize bei den heutigen Systemen zu klein sein (geht ja "nur" bis 2 GB).

[Moony]

Stimmt, warum ich da Integer hingesetzt habe weiß ich nicht mehr. In der Definition der Hilfe steht ja Cardinal drin.

Danke & Gruß, Moony

[Bernhard Geyer]

Zitat von Moony:

Stimmt, warum ich da Integer hingesetzt habe weiß ich nicht mehr. In der Definition der Hilfe steht ja Cardinal drin.

Kannst dem Hersteller ja schreiben das die Dokumentation hier noch veraltet ist