Как узнать имя файла???

[Shurik Hacker]

Дана ссылка http://www.openproj.ru/index.php?m=d...a=do_get&t=941
Необходимо средствами Delphi узнать имя скачиваемого файла по этой ссылке (в этом случае pwgen.zip).

[Квэнди]

object IdHTTP1: TIdHTTP
MaxLineAction = maException
AllowCookies = True
HandleRedirects = True
ProxyParams.BasicAuthentication = False
ProxyParams.ProxyPort = 0
Request.ContentLength = -1
Request.ContentRangeEnd = 0
Request.ContentRangeStart = 0
Request.Accept = 'text/html, */*'
Request.BasicAuthentication = False
Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
HTTPOptions = [hoForceEncodeParams]
OnRedirect = IdHTTP1Redirect
Left = 152
Top = 96
end


unit Unit26;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP;

type
TForm26 = class(TForm)
IdHTTP1: TIdHTTP;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure IdHTTP1Redirect(Sender: TObject; var dest: string;
var NumRedirect: Integer; var Handled: Boolean;
var VMethod: TIdHTTPMethod);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form26: TForm26;

implementation

{$R *.dfm}

procedure TForm26.Button1Click(Sender: TObject);
var f:textfile;
begin
IdHTTP1.get('http://www.openproj.ru/index.php?m=download&a=do_get&t=941 ');
end;

procedure TForm26.IdHTTP1Redirect(Sender: TObject; var dest: string;
var NumRedirect: Integer; var Handled: Boolean; var VMethod: TIdHTTPMethod);
begin
showmessage(dest);
end;

end.

[Квэнди]

недостаток тот, что файл все равно скачается

[Shurik Hacker]

Cпасибо за помощь!!!

А на счёт...

Сообщение от Квэнди

недостаток тот, что файл все равно скачается

Я изменил твой код так

Заменил
IdHTTP1.get('http://www.openproj.ru/index.php?m=download&a=do_get&t=941 ');

На

IdHTTP1.Options('http://www.openproj.ru/index.php?m=download&a=do_get&t=941 ');

Сходу выдаёт нужное имя и без скачивания файла!!!