Die Sache ist wirklich sehr einfach.
Delphi-Quellcode:
type
TForm1 =
class(TForm, IDECProgress)
procedure ButtonClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
private
FAction: Integer;
procedure Process(
const Min,Max,Pos: Int64);
stdcall;
end;
procedure TForm1.ButtonClick(Sender: TObject);
begin
if FAction = 0
then
try
Inc(FAction);
Button.Caption := '
Abort';
try
with TCipher_Blowfish.Create
do
try
Init(...);
EncodeFile(FileName, FileName, Self);
finally
Free;
end;
except
on E:
Exception do
if E
is EAbort
then ShowMessage('
aborted by User')
else reraise;
end;
finally
FAction := 0;
Button.Caption := '
Start';
end else Inc(FAction);
end;
procedure TForm1.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose := FAction = 0;
if not CanClose
then Inc(FAction);
end;
procedure TForm1.Process(
const Min,Max,Pos: Int64);
begin
Application.ProcessMessages;
if FAction > 1
then Abort;
end;
Wenn FAction == 0 ist dann kann der Anwender beim KLick auf Button eine Datei verschlüsseln. In diesem Moment wird FAction == 1 sein. Über die .Process() Methode, quasi eine Callback, ruft nun der Cipher periodisch auf. Darin wird Application.ProcessMessages; aufgrufen, der User kann also den Button nochmals drücken, dessen Caption zeigt ja Abort an. Drück er nochmals drauf dann landet man im .OnClick() auf Grund der Anfrag if FAction = 0 then eben nicht in der Verschlüsselung sondern beim Inc(FAction). Aus FAction == 1 wird dann FAction > 1. Sobald nun FAction > 1 ist wird in der .Process() Callback eine
Exception ausgelösst, eben Abort eine stille
Exception. Da der Cipher intern dieses .Process() aufruft und wir dadrinnen eine
Exception auslössen wird Cipher.EncodeFile() verlassen, abgebrochen. Man landet dann im finally end Block und von dort im except end Block in dem wir auf EAbort gezielt reagieren.
So sollte man mit Schutzblöcken und gezielter Exceptionbehandlung in Delphi arbeiten.
In OnCloseQuery fragen wir noch ab ob gerade FAction = 0 ist, also keine Aktion gerade läuft. Wenn nicht dann lösen wir auch hier einen Abort indirekt aus. Der Benutzer muß dann meistens 2 mal den Closebutton der Titelzeile klicken.
Ziemlich simpel die Sache, oder ?
Wenn du jetzt statt dem TForm ein TThread benutzt dann müsste nur FAction entfernt werden und .Process() kein Application.ProcessMessages drinnen stehen. Dafür aber
if Terminated then Abort;
.
Gruß Hagen