VPF::ActiveX DialogBox зависает в IExlorer - Форум программистов

ekianu

Дата 25.3.2010, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 7.11.2006

Репутация: нет
Всего: нет

Привет всем!!!
Пишу ActiveX для IE. Показываю стандартный API диалог, а он зависает вместе с IE.

Код


TMyObject = class(TAutoObject, IObjectSafety, IObjectWithSite, IMyObject)
private
  Parent: HWND;
protected
  function SetSite(const pUnkSite: IUnknown ):HResult; stdcall;
  function GetSite(const riid: TIID; out site: IUnknown):HResult; stdcall;
  function ShowDlg: Boolean;
end;
...
function TMyObject.GetSite(const riid: TIID; out site: IUnknown):HResult; stdcall;
begin
  Result:=S_Ok;
end;

function TMyObject.SetSite(const pUnkSite: IUnknown ):HResult; stdcall;
var OleWindow:IOleWindow;
begin
  Result:=S_Ok;
  Parent:=0;
  if pUnkSite=nil then Exit;
  OleWindow:=pUnkSite as IOleWindow;
  if not Succeeded(OleWindow.GetWindow(Parent)) then Result:=E_FAIL;
  OleWindow:=nil;
  if Parent=0 then
  begin
    Result:=E_FAIL;
    Exit;
  end;
end;

function MyDlgProc(hDlg: HWND; Msg, WParam, LParam: Integer): Integer; StdCall;
begin
  Result := 0;
  Case Msg of
   WM_COMMAND: begin
    if (LoWord(WParam) = IDCANCEL) then EndDialog(hDlg, IDCANCEL);
   end;
  end;
  Result := 0;
end;

function TMyObject.ShowDlg: Boolean;
begin
  Result := DialogBox(hInstance, 'IDD_MYDLG', Parent, @MyDlgProc)=IDOK;
end;

вместо DialogBox использовал GetOpenFileName (стандартное API диалог открытия файла) все равно зависает.

Помогите пожалуйста. Заранее спасибо.

Это сообщение отредактировал(а) ekianu - 25.3.2010, 22:39

ekianu

Дата 29.3.2010, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 7.11.2006

Репутация: нет
Всего: нет

Может кто нибудь по другому сделал, плз.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »