Проект, FreePascal Опции

[Bokul]

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

Сообщение отредактировано: Bokul - 18.09.2006 7:41

[Bokul]

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

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

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

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

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

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

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

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

Надо! Надо! Надо!

[volvo]

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

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

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

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

Надо! Надо! Надо!

Ну, если надо, то вот тебе версия для 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-контролы, а в консоль... Я чуть попозже попробую, скажу что получилось