Форум: "Прочее";
Текущий архив: 2009.10.25;
Скачать: [xml.tar.bz2];

Вниз

Как получить историю посещения браузеров?   Найти похожие ветки 

← →
@!!ex ©   (2009-08-21 12:24) [0]

Основных. IE, Chrome, Opera, FF...
Есть какой-то унифицированный интерфейс или придеться для каждого браузера отдельно писать?

---

← →
Rouse_ ©   (2009-08-21 12:38) [1]

Ну для IE можно использовать вот такой код:

////////////////////////////////////////////////////////////////////////////////
//
//  ****************************************************************************
//  * Unit Name : IEHistory
//  * Purpose   : Демо отображения истории браузера
//  * Author    : Александр (Rouse_) Багель
//  * Copyright : © Fangorn Wizards Lab 1998 - 2007
//  * Version   : 1.00
//  * Home Page : http://rouse.drkb.ru
//  ****************************************************************************
//

program IEHistory;

{$APPTYPE CONSOLE}

uses
 Windows,
 ActiveX;

const
 IID_IUrlHistoryStg2: TGUID = "{AFA0DC11-C313-11d0-831A-00C04FD5AE38}";
 CLSID_CUrlHistory: TGUID = "{3C374A40-BAE4-11CF-BF7D-00AA006946EE}";

type
 TSTATURL = record
   cbSize: DWORD;               // Размер структуры
   pwcsUrl: PWChar;             // То, что было посещено
   pwcsTitle: PWChar;           // Заголовок
   ftLastVisited: FILETIME;     // Время последнего визита
   ftLastUpdated: FILETIME;     // Время последнего обновления
   ftExpires: FILETIME;         // Дата устаревания
   dwFlags: DWORD;              // Флаги STATURL_QUERYFLAG_ISCACHED или STATURL_QUERYFLAG_TOPLEVEL
 end;

 IEnumSTATURL = interface(IUnknown)
   ["{3C374A42-BAE4-11CF-BF7D-00AA006946EE}"]
   function Next(celt: Integer; out elt; pceltFetched: PLongint): HRESULT; stdcall;
   function Skip(celt: Longint): HRESULT; stdcall;
   function Reset: HResult; stdcall;
   function Clone(out ppenum: IEnumSTATURL): HResult; stdcall;
   function SetFilter(poszFilter: PWideChar; dwFlags: DWORD): HResult; stdcall;
 end;

 IUrlHistoryStg = interface(IUnknown)
   ["{3C374A41-BAE4-11CF-BF7D-00AA006946EE}"]
   function AddUrl(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer): HResult; stdcall;
   function DeleteUrl(pocsUrl: PWideChar; dwFlags: Integer): HResult; stdcall;
   function QueryUrl(pocsUrl: PWideChar; dwFlags: Integer; var lpSTATURL: TSTATURL): HResult; stdcall;
   function BindToObject(pocsUrl: PWideChar; var riid: TIID; out ppvOut: Pointer): HResult; stdcall;
   function EnumUrls(out ppenum: IEnumSTATURL): HResult; stdcall;
 end;

 function Translate(Value: String): String;
 begin
   SetLength(Result, Length(Value));
   AnsiToOem(@Value[1], @Result[1]);
 end;

var
 History: IUrlHistoryStg;
 Enum: IEnumSTATURL;
 Url: TSTATURL;
 uFetched: ULONG;
begin
 if Succeeded(CoInitialize(nil)) then
 try
   if Succeeded(CoCreateInstance(CLSID_CUrlHistory, nil,
     CLSCTX_INPROC_SERVER, IID_IUrlHistoryStg2, History)) then
   try
     // тест удаления записи из истории
     //History.DeleteUrl("http://mail.ru", 0);
     if Succeeded(History.EnumUrls(Enum)) then
       while Succeeded(Enum.Next(1, Url, @uFetched)) do
       begin
         if uFetched = 0 then Break;
         if Length(Url.pwcsTitle) = 0 then
           Writeln(Translate("Заголовок отсутствует."))
         else
           Writeln(Translate(Url.pwcsTitle));
         Write(">> ");
         Writeln(Url.pwcsUrl);
       end;
   finally
     History := nil;
   end;
 finally
   CoUninitialize;
 end;

 Readln;
end.

---

← →
Игорь Шевченко ©   (2009-08-21 12:38) [2]

для IE - pasco

---

← →
@!!ex ©   (2009-08-21 12:51) [3]

О! спасибо!!
А для других браузеров нету чего-то подобного?

---

← →
Rouse_ ©   (2009-08-21 13:18) [4]

Для мозилы посмотри тут: http://forum.mozilla-russia.org/viewtopic.php?id=27017

---

← →
@!!ex ©   (2009-08-21 13:36) [5]

> [4] Rouse_ ©   (21.08.09 13:18)

Спасибо.
С COM я еще более менее умею работать...
А что делает первая строчка скрипта??

---

← →
Rouse_ ©   (2009-08-21 13:40) [6]

> А что делает первая строчка скрипта??

А фиг знает :) Я в мозиловских интерфейсах ни в зуб ногой :)

---

Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2009.10.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.04 c