Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2013.10.13;
Скачать: [xml.tar.bz2];

Вниз

Отменить сохранение файла в TWebBrowser   Найти похожие ветки 

 
BoRoda   (2010-03-28 03:25) [0]

Доброго времени суток!
При переходе на определённую ссылку TWebBrowser выдаёт диалог сохранения файла. Можно как-нибудь программно отменить сохранение? Чтоб в адресной строке осталась только прямая ссылка на файл.
Спасибо.


 
BoRoda   (2010-03-28 03:39) [1]

Опишу проблемку подробнее...
Есть страничка (именно страничка, а не ссылка на файл) в инете, при переходе на неё формируется файл и предлагается его сохранить. Если использую WebBrowser1.Navigate(<адрес страницы>) выскакивает тоже окно с предложением сохранить. Как сделать так, чтобы окно это не появлялось?
Мне нужно только ссылку на сам файл передать в Edit.


 
BoRoda   (2010-03-28 16:27) [2]

Нашел решение. Может и не совсем правильное, но работает! =)

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdHTTP1.Get("http://www.someurl.com/somescript.php?id=xxx&file=zip");
end;

procedure TForm1.IdHTTP1Redirect(Sender: TObject; var dest: String;
 var NumRedirect: Integer; var Handled: Boolean; var VMethod: String);
begin
  Edit1.Text:=dest;
end;

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
 AWorkCount: Int64);
begin
  IdHTTP1.Disconnect;
end;


 
BoRoda   (2010-03-28 16:29) [3]

Через TWebBrowser решения как я понял нет.



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2013.10.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.002 c
15-1367675679
картман
2013-05-04 17:54
2013.10.13
SetWindowText


2-1358943395
JohnKorsh
2013-01-23 16:16
2013.10.13
Редактор Арабского текста.


11-1248262717
tcler
2009-07-22 15:38
2013.10.13
tinifile и windows 7


15-1367353802
Юрий
2013-05-01 00:30
2013.10.13
С днем рождения ! 1 мая 2013 среда


15-1367591960
О-Сознание
2013-05-03 18:39
2013.10.13
Проблема с указателем.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский