Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Free Pascal, Pascal ABC и другие _ Проект

Автор: Bokul 16.09.2006 23:07

Опишу, что мне надо:
надо, что бы при нажатию на комбинацию клавиш моя прога, которая раньше сидела в трее (можна даже без трея, просто чтобы она могла среагировать на нажатия клавиш. Вроде хук для этого надо ставить...), могла проанализировать код поточной Html страницы в браузере( Internet Explorer), вытянуть нужные ссылки, и скинуть в буфер обмена, реализованный в http://forum.pascal.net.ru/index.php?showtopic=12777 . Трей и хуки можно оставить на потом, а сейчас же хотелося бы разобраться с браузером. Основная сложность это узнать Html. Я знаю, что все просматриваемое в браузерах сохраняется на винд, но определить, где он сохраняет все эти данные невозможно, так как Internet Explorer постоянно генерирует новые папки в Temporary Internet Files - система безопасности.
Честно говоря, я просто не знаю куда тыкаться и что для этого надо знать. Может меня спасет WinApi? Покажите, пожалуйста, мне путь.

Автор: volvo 16.09.2006 23:12

Стой, стой...

Ты при нажатии клавиш хочешь получить ссылки из IE, со страницы, которая СЕЙЧАС там отображается? Или со страниц, которые БЫЛИ до этого, и еще не обработаны?

Автор: Bokul 16.09.2006 23:15

Цитата

со страницы, которая СЕЙЧАС там отображается?

Да!

Цитата

Ты при нажатии клавиш

Хотелось бы оставить это на потом, чтобы не запутаться вначале.

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Добавил потом:

Цитата

со страницы, которая СЕЙЧАС там отображается?

Чтобы не возникло путаницы уточню:
например, я зашел на сайт для скачки фильма, филь поделен на много частей. На каждую часть есть своя ссылка, так вот мне надо чтобы моя прога просто забирала все эти ссылки. Я уже сделал первую версию проги, но для ее работы мне надо было сохранять страницу на диск, а потом ей передавать путь к сохраненному файлу. Результат она сохраняет в вот таком виде ( теперь просто копирует в ClipBoard).

Цитата

http://www.filefactory.com/?f950a5
http://www.filefactory.com/?44316b
http://www.filefactory.com/?c30fe4
http://www.filefactory.com/?654ce4
http://www.filefactory.com/?8c073c
http://www.filefactory.com/?82f69b
http://www.filefactory.com/?8a85f1
http://www.filefactory.com/?762a1c
http://www.filefactory.com/?9815bb
http://www.filefactory.com/?531535
http://www.filefactory.com/?96f203
http://www.filefactory.com/?fcf974
http://www.filefactory.com/?8538b4
http://www.filefactory.com/?a051aa
http://www.filefactory.com/?d3c07a
http://www.filefactory.com/?d324af

Автор: volvo 17.09.2006 0:14

Ну, тогда...

FPC умеет работать с OLE? Умеет... Вот этот Дельфийский код выдирает все линки из страницы, переданной в objIE.Navigate... Как захватить текущую страницу IE написано в DRKB, если надо приведу код, получающий активные URL-ы ВСЕХ открытых на данный момент копий Internet Explorer... Переводишь код на FPC и вешаешь программу в Tray

var
  objIE:OleVariant;
procedure TForm1.Button11Click(Sender: TObject);
var i:integer;
begin
  try
    objIE := CreateOLEObject('InternetExplorer.Application');
    objIE.Visible := 0;
    objIE.Navigate( 'http://www.google.com/');
    while objIE.Busy do sleep(200);
    for i := 0 to objIE.document.links.length - 1 do
        Memo1.Lines.add(objIE.document.links.Item(i))
    finally
        objIE := unassigned;
    end;
end;

Автор: Bokul 17.09.2006 2:39

Volvo,я конечно извиняюсь, но я ничего не понял

Цитата

FPC умеет работать с OLE?

То есть я могу работать со структурой Html страницы, как бы работал, например, на JavaScript? .

Цитата

Переводишь код на FPC

Дельфи я не знаю и поэтому немогу перевести этот код для Fps...

Цитата

Вот этот Дельфийский код выдирает все линки из страницы, переданной в objIE.Navigate...

То есть в данном варианте я получу все линки, находящимся на http://www.google.com/?

Цитата

Как захватить текущую страницу IE написано в DRKB, если надо приведу код, получающий активные URL-ы ВСЕХ открытых на данный момент копий Internet Explorer...

Надо! Надо! Надо! !mol1.gif

Автор: volvo 17.09.2006 2:54

Цитата(Bokul @ 16.09.2006 22:39)

То есть я могу работать со структурой Html страницы, как бы работал, например, на JavaScript?

Я не знаю, я в JavaScript не силен

Цитата(Bokul @ 16.09.2006 22:39)

То есть в данном варианте я получу все линки, находящимся на http://www.google.com/?

Ага... Список всех линков, которые там содержатся...

Цитата(Bokul @ 16.09.2006 22:39)

Надо! Надо! Надо! !mol1.gif

Ну, если надо, то вот тебе версия для FPC... Запусти несколько окон IE (лучше - чтоб они были с разными страничками, для проверки работоспособности), и запусти это:

{$mode DELPHI}
uses windows;

function EnumIEChildProc(AHandle: hWnd; AnObject: TObject): BOOL; stdcall;
var theClassName: string;
    Text: array [0..255] of Char;
begin
  Result := True;
  SetLength(theClassName, 256);
  GetClassName(AHandle, PChar(theClassName), 255);
  if Pos('Edit', theClassName) > 0 then
  begin
    SendMessage(AHandle, WM_GETTEXT, SizeOf(Text), Longint(@Text));
    if text<>'' then writeln(Text);
  end;
end;

function IEWindowEnumProc(AHandle: hWnd; AnObject: TObject): BOOL; stdcall;
var theClassName: string;
    Text: array [0..255] of Char;
begin
  Result := True;
  SetLength(theClassName, 256);
  GetClassName(AHandle, PChar(theClassName), 255);
  if Pos('IEFrame', theClassName) > 0 then EnumChildWindows(AHandle, @EnumIEChildProc, longInt(0))
end;

begin
  EnumWindows(@IEWindowEnumProc, LongInt(0));
end.

Насчет переноса Дельфи-кода под FPC, скорее всего должно откомпилироваться без изменений, только вывод делать не на VCL-контролы, а в консоль... Я чуть попозже попробую, скажу что получилось

Автор: Bokul 17.09.2006 3:58

Цитата

Запусти несколько окон IE (лучше - чтоб они были с разными страничками, для проверки работоспособности), и запусти это:

Запустить, то я запустил, даже получил правильный результат, но разобраться во всем этом

.
Как все это работает, понять одному мне, наверное, не под силам...
Ух, вопросов выше крыши... Давайте по порядку:
Что делает функция?

Цитата

function EnumIEChildProc(AHandle: hWnd; AnObject: TObject): BOOL;

Цитата

stdcall;

А это нужно, чтобы потом можна было вызывать функцию, как параметр?

Цитата

GetClassName(AHandle, PChar(theClassName), 255);

Тут мы, наверное, получаем класс окна... а вот какого окна и что такое клас для меня осталось загадкой... AHandle тоже константа? На что она указывает?

Цитата

if Pos('Edit', theClassName) > 0 then

Что мы определяем с его помощю 'Edit'?

Цитата

SendMessage(AHandle, WM_GETTEXT, SizeOf(Text), Longint(@Text));

А эта функция и является основной, да? С ее помощью мы наверное и получаем адрес поточной страницы?
Кому мы посылаем сообщения? Самому себе? WM_GETTEXT - неужели тоже константа? Даже в могущественном msdn не написано, какие другие значения могут быть на его месте. Longint знаю есть такой тип переменной, но чтобы функция... Ну а загадочный знак '@' ,вообще выше моего понимания.

Цитата

Я чуть попозже попробую, скажу что получилось

Будем ждать.

P.S Volvo, надеюсь у тебя хватет терпения, чтобы не послать меня подальше...

Автор: Bokul 17.09.2006 5:45

А, теперь я понял сам принцип, но только принцип - детали остаются тайной, работы проги:
С помощью EnumWindows мы проходим все родительские окна, если они проходят проверку if Pos('IEFrame', theClassName) ( так мы проверяем является ли это окно окном IE?), мы проходим через все дочерние окна с помощью EnumChildWindows и снова выполняем проверку if Pos('Edit', theClassName) > 0 then ( а что этим проверяется...), при успешной проверке, выполняем это
SendMessage(AHandle, WM_GETTEXT, SizeOf(Text), Longint(@Text));
if text<>'' then writeln(Text);

Правильно? Если да, то это не совсем то, что нужно. Мне надо найти только поточное окно IE, а не все.