Отследить загрузку файла в WebBrouser [D6, Win2k, WinXP]
dreams © (2004-03-31 23:39:00)
Написал приложение использующее TWebBrouser все вроде работает
но не могу отследить одну вещь : Когда щёлкаешь по ссылке и
начинаеться загрузка файла ( exe \ rar и т.д ) как отследить
загрузку и не дать запуститься стандартному диалогу загрузке файла
? Желательно при этом получив ссылку на закачеваемый файл.
easy (2004-04-01 00:02:00) [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;
Наверх 
ЧАТ |
Орешник |
|
