TChromium

[Cruzel]

Здравствуйте. Кто нибудь работает с TChromium? Есть адекватная документация по этому компоненту с примерами?

[Stilet]

Я не работаю.

[Человек_Борща]

На русском - нету, и вряд ли вообще ожидается.
В Google Groups есть форум поддержки на англ. языке.
Есть StackOverflow, так же на англ. языке. Богатые инфой ресурсы.
есть демки в комплекте.
Есть документация в самих исходниках.
Есть сам Chromium и его документация.

[Avazart]

Кстати, ни кто не знает почему по закрытию программы с TChromium выскакивает AV ?

[Человек_Борща]

Ставите MadExcept, собираете с ним проект и ловите баг.

[Cruzel]

Подскажите, а как подкрутить прокси к TChromium?

[Cruzel]

В общем придумал как реализовать. Только прокси будет устанавливаться во всех браузерах, но по другому совсем никак. В общем, добавляем в uses

WinInet

Далее добавляем функцию

function SetSystemProxy(host: string; port: string): boolean;
  const

    INTERNET_PER_CONN_FLAGS = 1;
    PROXY_TYPE_PROXY = $00000002;
    INTERNET_PER_CONN_PROXY_BYPASS = 3;
    INTERNET_PER_CONN_PROXY_SERVER = 2;
    INTERNET_OPTION_PER_CONNECTION_OPTION = 75;
    PROXY_TYPE_DIRECT = $00000001;

  type

    INTERNET_PER_CONN_OPTION = record
      dwOption: DWORD;
      Value: record
        case Integer of
          1: (dwValue: DWORD);
          2: (pszValue: PChar); {Unicode/ANSI}
          3: (ftValue: TFileTime);
      end;
    end;

    LPINTERNET_PER_CONN_OPTION = ^INTERNET_PER_CONN_OPTION;
    INTERNET_PER_CONN_OPTION_List = record
      dwSize: DWORD;
      pszConnection: LPTSTR;
      dwOptionCount: DWORD;
      dwOptionError: DWORD;
      intOptions: LPINTERNET_PER_CONN_OPTION;
    end;
    LPINTERNET_PER_CONN_OPTION_List = ^INTERNET_PER_CONN_OPTION_List;

  var list: INTERNET_PER_CONN_OPTION_LIST;
      dwBufSize: DWORD;
      hInternet: Pointer;
      Options: array[1..3] of INTERNET_PER_CONN_OPTION;

begin
  Result := False;
  dwBufSize := SizeOf(list);
  list.dwSize := SizeOf(list);
  list.pszConnection := nil;
  list.dwOptionCount := High(Options);

  Options[1].dwOption := INTERNET_PER_CONN_FLAGS;

  Options[2].dwOption := INTERNET_PER_CONN_PROXY_SERVER;
  if (host='') or (port='') then
  begin
    Options[1].Value.dwValue := PROXY_TYPE_DIRECT;
    Options[2].Value.pszValue := PChar('');
  end else
  begin
    Options[1].Value.dwValue := PROXY_TYPE_PROXY;
    Options[2].Value.pszValue := PChar(host+':'+port);
  end;

  Options[3].dwOption := INTERNET_PER_CONN_PROXY_BYPASS;
  Options[3].Value.pszValue := PChar('');

  list.intOptions := @Options;
  hInternet := InternetOpen(PChar(''), INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  if hInternet <> nil then
  try
    Result := InternetSetOption(nil, INTERNET_OPTION_PER_CONNECTION_OPTION, @list, dwBufSize);
    Result := Result and InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0);
  finally
    InternetCloseHandle(hInternet)
  end;
end;

Прокси задаётся с помощью такого кода:

procedure TForm1.Button3Click(Sender: TObject);
var
ip, port: String;
begin
ip:='37.57.183.13';
port:='3128';
SetSystemProxy(ip,port);
Chromium1.Refresh;
sleep(3000);
Chromium1.Load('http://2ip.ru/');
end;

Задержку "sleep(3000);" добавил потому что программа не сразу берёт прокси, а с задержкой. Надеюсь кому-то помог

[Cruzel]

Кстати, забыл. Чтобы сбросить прокси вам необходимо отправить функцию с пустыми параметрами. Например:

SetSystemProxy('','');

[Avazart]

Сообщение от Человек_Борща

Ставите MadExcept, собираете с ним проект и ловите баг.

Так проект тут не причем, проект только грузит страничку и больше нечего.