|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
TChromium скачивание файла
Здравствуйте. Я делаю браузер и столкнулся с проблемой скачивания файла, процесс скачивания для меня ясен, но вот не могу получить ссылку на файл вот код
Код:
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 |