Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Подружится с файрволом 
:(
    Опции темы
Pavelbej
Дата 17.7.2007, 11:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6
Использую данный код для получения ссылки из запущенного браузера. Но файрволл (Comodo Firewall Pro) все время ругается что одна программа (моя) хочет изменить другую, и что это может быть троян.

Код

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;


Можно как-то избавится от ругательств файрвола, и чтобы другие файрволы тоже не бунтовали?
PM MAIL   Вверх
MetalFan
Дата 17.7.2007, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
а если как-то так?
Код

uses
...
  MSHTML_TLB, SHDocVw_TLB;
...

procedure GetURLs;
 var
  ShellWindow: IShellWindows;
  WB: IWebbrowser2;
  spDisp: IDispatch;
  IDoc1: IHTMLDocument2;
  k: Integer;
 begin
  ShellWindow := CoShellWindows.Create;
  for k := 0 to ShellWindow.Count do
  begin
    spDisp := ShellWindow.Item(k);
    if spDisp = nil then Continue;
    spDisp.QueryInterface(iWebBrowser2, WB);
    if WB <> nil then
    begin
      WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
      if iDoc1 <> nil then
      begin
        //WB := ShellWindow.Item(k) as IWebbrowser2; ?
        //WB.Refresh;
        ShowMessage( WB.LocationURL );
      end;
    end;
  end;


Это сообщение отредактировал(а) MetalFan - 17.7.2007, 17:48


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Pavelbej
Дата 17.7.2007, 17:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6
А что добавлять в uses?
Не распознает IShellWindows, IWebbrowser2 ...
PM MAIL   Вверх
MetalFan
Дата 17.7.2007, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
ой, сорь, забыл)
Код

  uses
    MSHTML_TLB, SHDocVw_TLB;



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Pavelbej
Дата 18.7.2007, 13:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6
File not found MSHTML_TLB
File not found SHDocVw_TLB

Извини, но что это и где их взять?
PM MAIL   Вверх
W4FhLF
Дата 18.7.2007, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121
Pavelbej, у тебя проинсталирован компонент TWebBrowser? (Component > Import  ActiveX Controls > MS Internet Controls)
У MetalFan видимо 6ой делфи. Если у тебя выше 6го, то добавь в uses эти файлы без постфикса TLB



--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
Pavelbej
Дата 18.7.2007, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6
Наконец запустилась программа, но из Mozilla ссылки не берет, а при запуске IExplorer выскакивает ошибка.
Код из первого поста выдирал ссылки из Mozilla, IExplorer, Firefox, Opera.
PM MAIL   Вверх
Yanis
Дата 21.7.2007, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Если брандмауэр  ругается на использование DDE, то это наверное его проблемы smile

Добавлено через 2 минуты и 35 секунд
Pavelbej
И с чего ты вообще решил, что пользователь захочет это дружбы между твоей прогой и брандмауэром?
Надо будет, юзер сам добавит программу в исключения.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Pavelbej
Дата 21.7.2007, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6
Yanis,  самое интересное что я добавил программу в "разрешенные", но всеравно ругается. Других файрволов у меня нет.
PM MAIL   Вверх
Rennigth
Дата 23.7.2007, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Pavelbej, Имхо. Проблемы файрвола а не твоей программы.


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
MetalFan
Дата 23.7.2007, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
мне кажется дело в том, что счас файроволы шибко умные пошли... отрубать надо в них контроль компонентов и проч... типа проверок, когда одна программа "роется" в памяти другой и проч...


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Pavelbej
Дата 24.7.2007, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6
Ну что же,  спасибо всем! Успокоили.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0547 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.