Gecko. Как его использовать в дельфи?

[wma57]

У кого есть примерчик как формы заполнять и нажимать кнопки

[NoName_emaNoN]

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

Дал программу своему другу на тест, и при попытке запуска выдоло ошибку, жаловалась программа вроде на ява-плагин (в скобках что то писала про версию фаерфокса 3 и выше), хотя у меня версия тоже 3 и выше и такой ошибки нет.

Это из-за того что Java обновился до Update 21. Эта версия Gecko уже не поддерживается. Нужно отключить Java в файле greprefs/all.js в строке:

pref("security.enable_java", true);

поставить false.

Либо юзать новый Gecko через ActiveX.

[Shinnok91]

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

Это из-за того что Java обновился до Update 21. Эта версия Gecko уже не поддерживается. Нужно отключить Java в файле greprefs/all.js в строке:

поставить false.

Либо юзать новый Gecko через ActiveX.

Спасибо. Хоть еще одеу проблему решил.

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

У кого есть примерчик как формы заполнять и нажимать кнопки

Пиши мне в скайп rdt1231. Как обрабатывать нажатие кнопок скажу (только функцию stop и подобных (для остановки загрузки страницы) не нашел).
Но кнопки назад, вперед, обновить сделаны

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

Это из-за того что Java обновился до Update 21. Эта версия Gecko уже не поддерживается. Нужно отключить Java в файле greprefs/all.js в строке:

поставить false.

Либо юзать новый Gecko через ActiveX.

Только в таком случае вопрос - ява вообще не будет поддерживаться или как?
И если она не будет вообще поддерживаться, то где взять новую версию, потому что браузер должен поддерживать ява-скрипты (типа авторизация на сайте и другое)

[NoName_emaNoN]

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

Только в таком случае вопрос - ява вообще не будет поддерживаться или как?
И если она не будет вообще поддерживаться, то где взять новую версию, потому что браузер должен поддерживать ява-скрипты (типа авторизация на сайте и другое)

Браузер перестанет поддерживать Java.

Последнюю версию Gecko можно скачать здесь.

Java и JavaScript - разные вещи. Браузер будет поддерживать JavaScript, но не будет Java.

JavaScript отключается другим ключём.

[postal2]

Тему добавили в рассылку, а на основные вопросы так и не ответили
http://www.programmersforum.ru/showthread.php?t=86957
http://www.programmersforum.ru/showthread.php?t=80620

p.s. http://www.programmersforum.ru/showthread.php?t=60479
эх, думал что-то новенькое узнаю..

[VladislavBalahnin]

Чтобы User Agent сменить в файле greprefs/all.js нужно строку вставить

pref("general.useragent.override", "Ваш User Agent");

Это нужно сделать до создания самого браузера. Как поменять в уже созданном не знаю. Да и не зачем.

Мне нужно выполнить свой JavaScript на странице. Сделал пока через DOM.

procedure TForm1.btn2Click(Sender: TObject);
var
  s,atr,val: IInterfacedString;
  script:nsIDOMElement;
begin
  s:=NewString;
  atr:=NewString;
  val:=NewString;

  s.assign('script');
  script:=gckbrwsr1.ContentDocument.CreateElement(s.AString);
  atr.Assign('language');
  val.Assign('javascript');
  script.SetAttribute(atr.astring,val.astring);
  atr.Assign('type');
  val.Assign('text/javascript');
  script.SetAttribute(atr.astring,val.astring);

  atr.Assign('src');
  val.Assign('http://mysite.ru/1.js');
  script.SetAttribute(atr.astring,val.astring);
  s.Assign('head');
  gckbrwsr1.ContentDocument.GetElementsByTagName(s.astring).Item(0).AppendChild(script);
end;

Пытаюсь воспользоваться интерфейсом nsIDOMHTMLScriptElement описанном в модуле nsXPCOM.pas, но не знаю какое значение CID или ContractID нужно вписать в NS_CreateInstance. Пересмотрел уже все файлы на Си с сайта мозилы, но не нашел. Может кто-то подскажет как быть?

[NoName_emaNoN]

Если не ошибусь, то нужно копать в сторону ActiveX библиотеки Gecko. Её регистрировать и искать это значение "CID" в реесте.

[VladislavBalahnin]

За совет спасибо. Но уже сделал, как в примере выше, только текст скрипта добавил в текстовую область.
Сейчас другая проблема. Переписал nsIDOMSerializer на Delphi :

  nsIDOMSerializer = interface(nsISupports)
  ['{9fd4ba15-e67c-4c98-b52c-7715f62c9196}']
  procedure SerializeToStream(root:nsIDOMNode;stream:nsIOutputStream;const charset:nsACString);safecall;
  function SerializeToString(root:nsIDOMNode):nsAString; safecall;
  end;

Вызываю так:

procedure TForm1.btn6Click(Sender: TObject);
var
  ser: nsIDOMSerializer;
begin
 NS_CreateInstance('@mozilla.org/xmlextras/xmlserializer;1',nsIDOMSerializer,ser);
 ser.SerializeToString(gckbrwsr1.ContentDocument);
end;

Получаю ошибку: "Ole error 80500001".

Кто-то видит ошибку в коде?

[VladislavBalahnin]

Не работало, потому что был неправильно переписан nsIDOMSerializer. Нужно было так:

  nsIDOMSerializer = interface(nsISupports)
    ['{9FD4BA15-E67C-4C98-B52C-7715F62C9196}']
    function SerializeToString(root: nsIDOMNode; _retval: nsAString): HRESULT; safecall;
    function SerializeToStream(root: nsIDOMNode; stream: nsIOutputStream; const charset: nsACString): HRESULT; safecall;
  end;

Пимер:

procedure TForm1.btn8Click(Sender: TObject);
var
  ser:nsIDOMSerializer;
  r:IInterfacedString;
const
   NS_XMLSERIALIZER_CONTRACTID = '@mozilla.org/xmlextras/xmlserializer;1';
begin
  r:=NewString;
   GeckoEngineComp.NS_CreateInstance(NS_XMLSERIALIZER_CONTRACTID,nsIDOMSerializer,ser);
  if Assigned(ser) then
  begin
    ser.SerializeToString(g.ContentDocument,r.AString);
    ShowMessage(r.ToString);
  end;
end;

[Игорь22]

привет, подскажи пожалуйста компанет для серфинга в нете на delphi что бы:

- подерживал смену cookies (2 компанента - 2 сессии, а не как в webBrowser)

- подерживал proxy, тоже например 2 компанета - можно задавать разные прокси сервера.

- поддерживал javaStript.

indy ( tINhttp ) - хороший компанет, только не подреживает джаву. (

спасибо.