Диалоги в Gecko SDK Delphi

arhberk · №1

Здравствуйте. Использую 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? Подскажите как бороться с этими диалогами.
Заранее спасибо.

Отредактировано arhberk (06-11-2010 23:07:41)

Полезная информация

№106-11-2010 21:38:16

Диалоги в Gecko SDK Delphi

Код:

Board footer