Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
11. Aug 2003
*patsch* Jetzt wo ich den Source sehe... :oops: Könnten wir das auf die momentane Wetterlage schieben?
Mir wäre es lieber, wenn TStreamProgressAdapter einen Prozentwert zurückliefert. Dann ist das ganze universeller.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
10. Aug 2003
So ganz bin ich noch nicht dahintergestiegen. Es sieht jetzt so aus:
for i := 0 to lvFiles.Items.Count - 1 do
begin
Filename := lvFiles.Items.Item.Caption;
if lvFiles.Items.Item.SubItems = 'unverschlüsselt' then
begin
try
ProgressAdapter := TStreamProgressAdapter.Create(TFileStream.Create(FileName, fmOpenReadWrite));
try
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
10. Aug 2003
Danke. Dann habe ich es ja gerade im richtigen Moment wieder hervor geholt.
Wie komme ich in OnProgress an die Werte dran und wie weise ich das Ereignis einer Ver- / Entschlüsselung zu?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
10. Aug 2003
So Code etwas überarbeitet. Es geht aber immer noch nicht, so wie ich will.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
9. Aug 2003
So eine Konstruktion hilft auch nicht:
procedure BlowFishThread.Execute;
var
Header: TFileHeader;
begin
setlength(FIndexArray, length(FIndexArray)+1);
FIndexArray := FIndex;
setlength(FPositionArray, length(FPositionArray)+1);
EncryptBlowFish;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
9. Aug 2003
So ich habe es jetzt geschaft, aber nicht so richtig. Ich benutze jetzt ein TThread-Objekt.
procedure BlowFishThread.EncryptBlowFish;
var
BlowFish: TCipherManager;
begin
BlowFish := TCiphermanager.Create(nil);
with BlowFish do
begin
try
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
9. Aug 2003
Mein Lösungsversuch:
Ich vergebe beim Erstellen im Thread die Tag-Eigenschaft. In OnProgress ist sie aber immer 0.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
9. Aug 2003
Folgendes: In einer Liste habe ich verschiedene Dateien zum Verschlüsseln. Für jede Datei wird jetzt ein Thread mit BeginThread gestartet. In diesem Thread wird jetzt dynamisch die Cipher-Komponente erzeugt und dem OnProgress Ereignis eine Prozedur zugewiesen. In einer zweiten Spalte eines Listview soll nur der Fortschrit separat für jede Datei angezeigt werden. Wie teile ich OnProgress jetzt mit...