Здравствуйте. Я делаю браузер и столкнулся с проблемой скачивания файла, процесс скачивания для меня ясен, но вот не могу получить ссылку на файл вот код
Код:
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