[Mr.Frales]

Все привет!

У меня такая задача ... нужно из запущенного браузера перехватить открывающийся URL-адрес. То есть сайт который я запускаю нужно помести в мою программу, проверить, а затем если всё хорошо продолжить загрузку или отклонить загрузку...

Желательно с примером ... а то тяжеловато...
Зарание спасибо!!!

[Konrad]

Сообщение от Mr.Frales

Все привет!

У меня такая задача ... нужно из запущенного браузера перехватить открывающийся URL-адрес. То есть сайт который я запускаю нужно помести в мою программу, проверить, а затем если всё хорошо продолжить загрузку или отклонить загрузку...

Желательно с примером ... а то тяжеловато...
Зарание спасибо!!!

Снифер тебе в помощь.

[Mr.Frales]

А можно по подробнее и с примерчиком ... я понимаю что много-го хочу но это оч. надо ...

[Mr.Frales]

Неужели никто не поможет ....

[Admin]

Сообщение от Mr.Frales

Неужели никто не поможет ....

Есть нечто типа этого, как вариант:

Код:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WinInet, ExtCtrls, ComCtrls, DDEMan, Registry,
  WinSock, DateUtils, ShellApi;

...

function Get_URL(Servicio: string): string;
var
 Client_DDE: TDDEClientConv;
 temp: PChar;
begin
 Result:='';
 Client_DDE:=TDDEClientConv.Create(nil);
 with Client_DDE do
  begin
   SetLink(Servicio,'WWW_GetWindowInfo');
   temp:=RequestData('0xFFFFFFFF');
   Result:=StrPas(temp);
   StrDispose(temp); // предотвращаем утечку памяти
   CloseLink;
  end;
 Client_DDE.Free;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
 names: TListItem;
 s,urlall,url_op_sk: string;
begin
 try
  url_ex:=Get_URL('IExplore'); // Internet Explorer
  url_op:=Get_URL('Opera');    // Opera
  url_moz:=Get_URL('Firefox'); // Mozilla Firefox

  // проверка на "about:blank"
  if pos('about:blank',url_ex)<>0
  then Exit;
  if pos('about:blank',url_op)<>0
  then Exit;
  if pos('about:blank',url_moz)<>0
  then Exit;

...

[Mr.Frales]

Как вариант можно но это не для всех браузеров и оно не всё перехватывает ... через сниффер идея хорошая как говорил Konrad... только как это грамотно оформить ...