IdHTTP problem

[A-M-X]

Huhu!!

Hab da folgende Probleme:

wie unterbreche ich WÄHREND des downloads ein IdHTTP?
und wie gebe ich diese datei dann frei und kann sie DANN löschen

BZW --->>> Mein Programm löscht die gedownloadete datei , dass der Benutzer keine Probleme hat , diese von Hand zu löschen

Zum downloaden so

Delphi-Quellcode:

  Button1.Enabled := false;
  Edit1.Enabled := false;
  Edit2.Enabled := false;
  Button2.Enabled := true;
  Ziel := Edit2.text;
  Datei:=TFileStream.create(Ziel,fmCreate);
  IdHttp1.Get(Edit1.Text,Datei);
  Datei.Free;

zum löschen so:

Delphi-Quellcode:

function DeleteFile(const AFile: string): boolean;
var
 sh: SHFileOpStruct;
begin
 ZeroMemory(@sh, sizeof(sh));
 with sh do
   begin
   Wnd := Application.Handle;
   wFunc := fo_Delete;
   pFrom := PChar(AFile +#0);
   fFlags := fof_Silent or fof_NoConfirmation;
   end;
 result := SHFileOperation(sh) = 0;
end;

  Datei.Free;
  Button1.Enabled := true;
  Edit1.Enabled := true;
  Edit2.Enabled := true;
  Button2.Enabled := false;
  DeleteFile(Ziel);

Aber wie gehts richtig?

[marabu]

Hallo.

Du kannst einen Download mit der Indy HTTP Client-Komponente im Ereignis OnWork() abbrechen, indem du eine stumme Exception wirfst:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
  ...
  private
    Canceled: boolean;
  ...
  end;

procedure TDemoForm.CancelClick(Sender: TObject);
begin
  Canceled := true;
end;

procedure TDemoForm.HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  if Canceled then 
    Abort;
end;

procedure TDemoForm.DownloadClick(Sender: TObject);
var
  fs: TFileStream;
  fn: TFileName;
begin
  fn := 'c:\daten\abort.txt';
  fs := TFileStream.Create(fn, fmCreate);
  Canceled := false;
  try
    HTTP.Get('http://www.amazon.de', fs);
  except
  end;
  fs.Free; // Datei freigeben
  if Canceled then
    DeleteFile(fn);
end;

Grüße vom marabu

[A-M-X]

super!!

funktioniert perfekt! vielen dank

[xZise]

Auch wenns ein bisschen her ist: Aber welche Exception muss ich beim Abrruch abfangen? Weil ich wollte bei allen anderen Exception eine Fehlermeldung anzeigen lassen...