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