Форум: "WinAPI";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Вниздень добрый всем. подскажите пожалуюста как бы мне перехватить Найти похожие ветки
← →
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]Точнее архив на этой странице дохлый.
← →
Opuhshii (2002-10-12 21:17) [9]MSDN - купи на болванках и не мучайся... ;)))
как добавить новый IE? дык почитай о выше упомянутых интерфейсах(нет под рукой ни дельфи ни msdn"a ),... а вообще такие вещи делать надо не на клиенте... imho гимору много... пусть все юзеры ходють через твою проксю,.. все проблемы твои будут решены,. ;)
← →
Novichek (2002-10-13 15:28) [10]Шо вы тут мне сказки расказываете, я только вчера поэтой ссылке себе win_api.hlp скачал!!!
← →
TankMan (2002-10-14 03:56) [11]>>Novichek
Ну блин.. ты зайди по ссылке и посмотри - я зашел просто броузером и он мне выдал ошибку 404.
← →
Th (2002-10-14 17:31) [12]Там есть ссылка правильная на страничке. Вот она:
http://soobcha.ru/rushelp/winapihelp.zip
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.022 c