Idhttp wie an den Dateinamen kommen ?

[stOrM]

Die Rückgabe vom Header parsen...?!
Experts Exchange

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MemStream: TMemoryStream;
  FileStream: TFileStream;
begin
  MemStream := TMemoryStream.Create;
  try
    IdHTTP1.Get('http://www.deadlybossmods.com/download.php?id=1', MemStream);
    MemStream.Position := 0;
    FileStream := TFileStream.Create(FileName, fmCreate);
    try
      MemStream.SaveToStream(FileStream);
    finally
      FileStream.Free;
    end;
  finally
    MemStream.Free;
  end;
end;
 
procedure TForm1.IdHTTP1HeadersAvailable(Sender: TObject;
  AHeaders: TIdHeaderList; var VContinue: Boolean);
var
  ContentDisposition: string;
begin
  ContentDisposition := AHeaders.Values['Content-Disposition'];
  ContentDisposition := Copy(ContentDisposition, 1 + Pos(';', ContentDisposition), MaxInt);
  ContentDisposition := StringReplace(ContentDisposition, 'filename=', '', [rfIgnoreCase]);
  ContentDisposition := StringReplace(ContentDisposition, '"', '', [rfReplaceAll]);
  FileName := ContentDisposition;
end;
 
end.