Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Отследить загрузку файла в WebBrouser   Найти похожие ветки 

 
dreams   (2004-03-31 23:39) [0]

Написал приложение использующее TWebBrouser все вроде работает но не могу отследить одну вещь : Когда щёлкаешь по ссылке и начинаеться загрузка файла ( exe \ rar и т.д ) как отследить загрузку и не дать запуститься стандартному диалогу загрузке файла ? Желательно при этом получив ссылку на закачеваемый файл.


 
easy ©   (2004-04-01 00:02) [1]

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
 const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
 Headers: OleVariant; var Cancel: WordBool);
begin
 if extractfileext(url)=".rar" then begin
   showmessage(URL);
   Cancel:=true;
 end;
end;



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

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.023 c
1-1083871797
Студент_
2004-05-06 23:29
2004.05.23
Свой Object Inspector


1-1084103079
Islander
2004-05-09 15:44
2004.05.23
Мигание формы при изменении Position


1-1084032461
Мыш
2004-05-08 20:07
2004.05.23
Отрисовка меню


6-1081331309
NorthMan
2004-04-07 13:48
2004.05.23
Народ, в сети гуляет пример реализации PING а в Delphi


1-1083765570
Sergo742
2004-05-05 17:59
2004.05.23
Некорректное удаление компонента