день добрый всем. подскажите пожалуюста как бы мне перехватить

← →
pavel-ak (2002-10-11 12:28) [0]

подскажите пожалуюста как бы мне перехватить запрос в Internet
explorer"е на сохранение файла. Надо чтобы отсюда можно скачивать, а отсюда нельзя(как узнать адрес/домен и имя скачиваемого файла)

← →
Opuhshii © (2002-10-11 13:38) [1]

можно...

используй интерфейсы
IShellWindows, IWebBrowser2, DWebBrowserEvents2
и/или классы
TInternetExplorer, TShellWindows

читай MSDN,...

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SHDOCvw; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private IE:array of TInternetExplorer; SW:IShellWindows; public procedure aStart(Sender: TObject); end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.aStart(Sender: TObject); begin showmessagefmt("goto %s",[TInternetExplorer(Sender).LocationURL]); end; procedure TForm1.FormCreate(Sender: TObject); var I:Integer; begin SW:=CoShellWindows.Create; SetLength(IE,SW.Count); for I:=0 to SW.Count-1 do begin IE[I]:=TInternetExplorer.Create(self); IE[I].ConnectTo(SW.Item(I) as IWebBrowser2); IE[I].OnDownloadBegin:=aStart; end; end; end.
соответственно,.. добавь чтоб добавить в массив новый IE при создании оного,..

← →
Opuhshii © (2002-10-11 13:41) [2]

,.. а вам сообственно зачем????

← →
pavel-ak (2002-10-11 14:29) [3]

огромное спасибо Opuhshii, хоть кто то откликнулся, но
я с TInternetExplorer никогда не встречался.
поэтому попрошу объяснить поподробнее "соответственно,.. добавь чтоб добавить в массив новый IE при создании оного,.."
чего то нехватает, т.к. он это событие не перехватывает это событие.

а нужно мне это для того чтобы юзвери не качали чего попало с сайтов к которым у них есть доступ.

(если я глупо объясняю то, нужно так же как это делает любой download-менеджер типа Reget"а или slashreg"а, то есть саму закачку блатную мне нафиг не надо, а вот закачивать или нет ...)

Всем спасибо.

← →
pavel-ak (2002-10-11 14:38) [4]

To Opuhshii, извени , торможу - перехватывает он линки от IE код ВАШ работает ровно. но если я правильно понял надо обновлять массив как-то ????

Кстати насчёт MSDN по микросовту ползать это меня сильно утомило,
не подскажете-ли где всять путную доку по WinAPI желательно на русском, или всё равно в WinAPI таких решений ненайти.

Ещё раз .... огромное спасибо!

← →
Novichek © (2002-10-11 18:43) [5]

http://delphi.mastak.ru/cgi-bin/download.pl?get=1031236892&n=2

← →
TankMan © (2002-10-12 00:55) [6]

А мне пишет - файл не найден... :(

← →
Xemax © (2002-10-12 16:14) [7]

12/10/01 04:10:20 334 INF Соединяемся с интернетом напрямую
12/10/01 04:10:20 335 STA Переход в состояние [Запрос]
12/10/01 04:10:20 336 INF Соединяемся с soobcha.ru (212.45.5.243:80)
12/10/01 04:10:20 337 OUT GET /~rushelp/winapihelp.zip HTTP/1.0
12/10/01 04:10:20 338 OUT User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows 98)
12/10/01 04:10:20 339 OUT Accept: */*
12/10/01 04:10:20 340 OUT Range: bytes=0-
12/10/01 04:10:20 341 OUT Referer: http://delphi.mastak.ru/cgi-bin/download.pl?get=1031236892&n=2
12/10/01 04:10:20 342 OUT Host: soobcha.ru
12/10/01 04:10:21 343 IN HTTP/1.1 404 Not Found12/10/01 04:10:21 344 IN Date: Sat, 12 Oct 2002 12:10:18 GMT
12/10/01 04:10:21 345 IN Server: Apache/1.3.26 (Unix) PHP/4.2.1 mod_log_bytes/0.3 FrontPage/5.0.2.2510
12/10/01 04:10:21 346 IN X-Powered-By: PHP/4.2.1
12/10/01 04:10:21 347 IN Expires: Thu, 19 Nov 1981 08:52:00 GMT
12/10/01 04:10:21 348 IN Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
12/10/01 04:10:21 349 IN Pragma: no-cache
12/10/01 04:10:21 350 IN Content-Type: text/html; charset=windows-1251
12/10/01 04:10:21 351 IN Set-Cookie: session-id=ed6b1131b3163f728fc2272e32fd8140; path=/
12/10/01 04:10:21 352 IN Connection: Close

http://delphi.mastak.ru/cgi-bin/download.pl?get=1031236892&n=2 - дохлая ссылка!

← →
Xemax © (2002-10-12 16:16) [8]

Точнее архив на этой странице дохлый.

MSDN - купи на болванках и не мучайся... ;)))
как добавить новый IE? дык почитай о выше упомянутых интерфейсах(нет под рукой ни дельфи ни msdn"a ),... а вообще такие вещи делать надо не на клиенте... imho гимору много... пусть все юзеры ходють через твою проксю,.. все проблемы твои будут решены,. ;)

Шо вы тут мне сказки расказываете, я только вчера поэтой ссылке себе win_api.hlp скачал!!!

>>Novichek
Ну блин.. ты зайди по ссылке и посмотри - я зашел просто броузером и он мне выдал ошибку 404.

Там есть ссылка правильная на страничке. Вот она:

http://soobcha.ru/rushelp/winapihelp.zip

день добрый всем. подскажите пожалуюста как бы мне перехватить Найти похожие ветки