Ich versuche gerade, eine Dateiverschlüsselung mit dem TCipherManager von
hier zu implementieren. Funktioniert ganz gut, ist recht simpel etc. Nun wollte ich eine ProgressBar, bzw eine Gauge einbauen, und habe mal geraten, dass dazu die onProgress-Eigenschaft des CipherManagers benutzt werden soll. Mein Versuch sieht so aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| Procedure TForm1.Progress;
Begin
Form1.Gauge1.AddProgress(1);
End;
Procedure TForm1.Encode(Source, Dest, password: String);
Var Cipher: TCipherManager;
Begin
Cipher := TCipherManager.Create(Nil);
Cipher.InitKey(password, Nil);
Cipher.Algorithm := 'Blowfish';
Cipher.OnProgress := Progress;
Cipher.EncodeFile(Source, Dest);
Cipher.Free;
End; |
Leider funktioniert das nicht: "Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'" sagt er zu der Zeile onProgress := Progress; bei den Schweizern hab ich von Luckie folgenden Versuch gesehen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure MyProgress;
begin
Listview1.Items[x],Subitems[0].Text := y%;
end;
function Thread
begin
TCipher.OnProgress := myProgress;
end; |
Wobei ich keinen Zusammenhang kenne, also weiß ich z.B. nicht, was das y% bedeuten soll
Aber gut.
Nun gibt's da wohl 2 Fragen: Ist die onProgress-Eigenschaft überhaupt was ich suche, und wenn ja: Wie benutze ich sie korrekt?
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.
raziel
Ich hab hier in dem Form über 2000 Beiträge von denen 90,3% On Topic sind, und du behandelst mich wie einen Anfänger, nur weil ich diese blöde Deklaration übersehen habe! Fehlt nur, dass du mir noch den Crashkurs von Christian S. vorschlägst.