[JunkieBeat]

Здравствуйте. Я делаю браузер и столкнулся с проблемой скачивания файла, процесс скачивания для меня ясен, но вот не могу получить ссылку на файл вот код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm2.DownloadFile(Sender: TObject; const browser: ICefBrowser;   const mimeType, fileName: ustring; contentLength: Int64;   var handler: ICefDownloadHandler; out Result: Boolean); var   Stream:TMemoryStream;   IdHTTP1:TIdHTTP; begin   if dlgSave1.Execute then   begin       Stream:=TMemoryStream.Create;       IdHTTP1:=TIdHTTP.Create(Self);     try         IdHTTP1.Get(fileName,Stream);         Stream.SaveToFile(dlgSave1.FileName);     except         on e:Exception do         Stream.Free;     end;   end; end;

проблема в том что в это событие не приходит ссылка на файл а только имя, как получить полную ссылку на файл? Может надо какой запрос отправить или что? Может другое событие надо,в котором будет идти уже ссылка, но я такого события не нашел.
скачиваю вот с этого адреса
http://zaycev.net/pages/28419/2841961.shtml

[Mrak]

збс, бэкапили форум что-ли, где мое сообщение. напишу еще раз

нужна прямая ссылка

например http://rghost.ru/download/52556759/0...x_144137a2.jpg
а не http://rghost.ru/52556759/image.png

[JunkieBeat]

Это я понимаю, я не знаю как её получить,может её можно как то собрать? или отправить запрос на сервер сайта? Если да,то как собрать этот запрос?

[PhoeniX]

А погуглить?
Вот тут есть пример:

Код:

1 2 3 4 5 6 7 8 9 10

procedure TMainForm.crmGetDownloadHandler(Sender: TObject;   const browser: ICefBrowser; const mimeType, fileName: ustring;   contentLength: Int64; var handler: ICefDownloadHandler; out Result: Boolean); begin   SaveDialog.FileName := fileName;   if SaveDialog.Execute then     handler := TCefStreamDownloadHandler.Create(       TFileStream.Create(SaveDialog.FileName, fmCreate), true);   Result := True; end;