Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > TWebBrowser копирование в буфер обмена

Автор: Pentium02 2.9.2007, 15:16

Я использую в своей программе компонент TWebBroser, но проблема в следуещем, если открыть страницу, и попытаться чтониубдь скопировать (CTRL+C или через Правый клик мышки->Копировать, не важно) то в буфер ничего не копируется, почему?

Автор: BaD_SeCt0R 2.9.2007, 19:02

Впиши в OnCreate

Код


OleInitialize(nil);

а в OnDestroy

Код


OleUninitialize;

P.S. Не забудь в uses ActiveX добавить

Автор: Pentium02 2.9.2007, 19:40

Спасибо

Автор: andruha10 9.7.2010, 02:41

Не работает потому что нужно подключить функцию и процедуру из ole32.dll эта проблема описана на сайте майксофта.
Вот решение:

Подгрузил функцию и процедуру из dll

Код


var
  Form1: TForm1;

  function  OleInitialize(pvReserved: Pointer): HResult; stdcall;
procedure OleUninitialize; stdcall;

implementation


  function  OleInitialize;     external 'ole32.dll' name 'OleInitialize';
procedure OleUninitialize;   external 'ole32.dll' name 'OleUninitialize';

{$R *.dfm}

и только потом в конце перед end. инициализировал функцию.
Код
initialization OleInitialize(nil); finalization OleUninitialize; end.