>Форум Mozilla Россия
   http://forum.mozilla-russia.org/index.php
>Разработка
   http://forum.mozilla-russia.org/viewforum.php?id=18
>Диалоги в Gecko SDK Delphi
   http://forum.mozilla-russia.org/viewtopic.php?id=46820

arhberk > 06-11-2010 21:38:16

Здравствуйте. Использую Gecko в приложении delphi. Появилась проблема - не отображаются диалоги JS(alert, confirm и т.д.).  За это вроде должен отвечать PromptServis.
Если я все правильно понял, то его нужно реализовать самому. Его написал, но не знаю как его зарегистрировать.

Выделить код

Код:

procedure RegPromptServis;
var
  compR:nsIComponentRegistrar;
  aFactory: nsIFactory;
  mtpr:TPromptServis;
  r:nsresult;
const
  PromptService_CID: TGUID = '{a2112d6a-0e28-421f-b46a-25c0b308cbd0}';
  PromptService_ContractID= '@mozilla.org/embedcomp/prompt-service;1';
begin
  mtpr:=TPromptServis.Create;// Мой класс
  r:=NS_GetComponentRegistrar(compR);
  if not  NS_FAILED(r) then
  begin
      //Тут не знаю как связать aFactory с моим классом   
      compR.RegisterFactory(PromptService_CID,'Prompt Service', PromptService_ContractID,aFactory);
    end;
  end;

Может кто-то работал с Gecko в Delphi? Подскажите как бороться с этими диалогами.
Заранее спасибо.