Компонент TChromium, Windows 8, DelphiXE3

[mur3ick]

Качаем, устанавливаем... http://tortoisesvn.net/downloads
Создаем гденибудь папку DCEF3 ...
В папке DCEF3 правой кнопкой мыши и выбирай пункт SVN Checout и добавляем ссылку для скачивания http://dcef3.googlecode.com/svn/trunk/ ...
После закачки компонента... Запускаем делфи...
Я добавил все пути в Tools->Options->library->Library path...
До папки DSEF3 , и до всех вложенных в нее папки...
Теперь в делфи откроем файл DSEF3\packages\DCEF_XE3.dpk ...
Build->OK->Compile->OK->Install->OK ...
Закрываем проект .bpl не сохраняя...
Из папки DSEF3 коприууем все...
Создаем новый проект, и в папку с проесктом , а именно в папку с файлом ехе, кидаем копированное из папки DSEF3 ...
Кидаем на форму компонент TChromium...
Кликаем на форме два раза и пишем код простой...

Chromium1.Load('2ip.ru');

За пускаем проект, все пашет...
1 вопросик... на общей форме, с компонентом хромиум, не работает скин альфа контрол, на кнопках и панели работает скин...
2 вопрос... гдето читал что узер агент можно изменить... Как реализовать?

[Delphi_ProGer]

2 вопрос... гдето читал что узер агент можно изменить... Как реализовать?

uses ...ceflib;
CefUserAgent:=''; // думаю, что присваивать юзерагент нужно лучше перед инициализацией браузера

[mur3ick]

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

uses ...ceflib;
CefUserAgent:=''; // думаю, что присваивать юзерагент нужно лучше перед инициализацией браузера

Спасибо за ответ...
А поподробнее? куда сие ткнуть?

CefUserAgent:='';

а то все ошибку выдает...

[bulldog5293]

да хоть куда, можно и в OnCreate, можно и по кнопке

[mur3ick]

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

да хоть куда, можно и в OnCreate, можно и по кнопке

подчеркивает как ошибка... неописанная переменная... наверное....

[Delphi_ProGer]

ceflib подключили?

[mur3ick]

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

ceflib подключили?

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cefvcl, ceflib;

type
  TForm2 = class(TForm)
    Chromium1: TChromium;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
Chromium1.Load('http://tools.mydiv.net/myip/');
end;

end.

пример...

[mur3ick]

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

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cefvcl, ceflib;

type
  TForm2 = class(TForm)
    Chromium1: TChromium;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
Chromium1.Load('http://tools.mydiv.net/myip/');
end;
begin
CefUserAgent:='mur3ick';

end.

пример...

нашел...
с альфаконтролом тож разобрался...
но прогресс бар как в ие не сделать...
какие функции отвечать могут за прогрес бар?

[mur3ick]

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

нашел...
с альфаконтролом тож разобрался...
но прогресс бар как в ие не сделать...
какие функции отвечать могут за прогрес бар?

procedure TForm1.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame; httpStatusCode: Integer);
begin
  sProgressBar1.position:=sProgressBar1.Max  ;
end;

procedure TForm1.Chromium1LoadStart(Sender: TObject; const browser: ICefBrowser;
  const frame: ICefFrame);
begin
sProgressBar1.position:=sProgressBar1.Min ;
end;

такой вариант не очень катит

[mur3ick]

как достать ссылку? GoBack, GoForward...
Для проверки существуют ли?