[Mitiay]

Ребят помогите пожалуйста!нужен код для отслежки юрл в бренд маузере!например открываем odnoklassniki.ru/games и вылетает сообщение "иди на кухню!" )

[Alegun]

Скачайте себе drkb, там есть всё

Код:

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Get_URL('IExplore') = 'odnoklassniki.ru/games' then ShowMessage('иди на кухню!');
end;

[Mitiay]

Ругается на temp:= RequestData('0xFFFFFFFF');

Код:

var
  Form1: TForm1;
  temp,url:widestring;
implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
DdeClientConv1.SetLink('Firefox','WWW_Getwindowinfo');
Temp:= DdeClientConv1.RequestData('0xFFFFFFFF');
delete(Temp,1,pos('"',temp));
   url:=copy(temp,1,pos('"',temp)-1);
   showmessage(url);
end;

Вот рабочий код!Но как сравнивать url если он открыт то...

[Alegun]

Сообщение от Mitiay

...как сравнивать url если он открыт то...

У вас пример с if..then перед глазами, смотрите после обработки сайта что в url лежит и точно такое же под сравнение подставляйте

[Mitiay]

if url = 'http://www.odnoklassniki.ru/' then ShowMessage('иди на кухню!'); ну это я понял!Теперь вопрос допустим откроется ссылка mail.ru/games/gameid11119999 как сделать чтоб сообщение вылезало при открытии mail.ru/games то есть чтоб не задавать конкретную ссылку.Например чтоб делал фильтр url если есть такое значение то ...

[M.A.D.M.A.N.]

Сообщение от Mitiay

if url = 'http://www.odnoklassniki.ru/' then ShowMessage('иди на кухню!'); ну это я понял!Теперь вопрос допустим откроется ссылка mail.ru/games/gameid11119999 как сделать чтоб сообщение вылезало при открытии mail.ru/games то есть чтоб не задавать конкретную ссылку.Например чтоб делал фильтр url если есть такое значение то ...

Код:

if pos('mail.ru', url) <> 0 then showessage('иди туда же')

[Mitiay]

как несколько url?И еще одна проблема!Допустим если браузер открыт и запускаем проеэкт он видит.Если сначало запустить проэкт а потом браузер то он не видит(таймер).

[Mitiay]

С запуском браузера разобрался!Как несколько юрл отслеживать?

[Alegun]

Сообщение от Mitiay

...Как несколько юрл отслеживать?

Код:

if (pos('mail.ru', url) <> 0) or
   (pos('odnoklassniki.ru', url1) <> 0)
   then showessage('иди туда же');

[Mitiay]

Сообщение от Alegun

Код:

if (pos('mail.ru', url) <> 0) or
   (pos('odnoklassniki.ru', url1) <> 0)
   then showessage('иди туда же');

Не рабоатет!Добавил переменную он не видит второй адрес!

[Alegun]

Сообщение от Mitiay

...Добавил переменную он не видит второй адрес!

Смотрите что у вас в добавленной переменной содержится - возможно вы её забыли наполнить инфой из браузера

[Mitiay]

Сообщение от Alegun

Смотрите что у вас в добавленной переменной содержится - возможно вы её забыли наполнить инфой из браузера

temp,url1:widestring;

[Mitiay]

Сообщение от Mitiay

temp,url1:widestring;

С этим разобрался НО работает только на firefox и IE, опера не хочет!!Подскажие что делать?