Копировать текст из webbrowser в memo (включить ctrl+c ctrl+v) копировать - вставить

[alexei7]

---->Подгрузил функцию и процедуру из 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.
В принципе, спасибо за наводку, но эту тему будут и чайники читать, им неплохо было бы сразу пояснить как подцепить эти функции в delphi, смотреть код выше.

[Пепел Феникса]

никаких подгрузок и не нужно.
uses ActiveX
я же написал про модуль нужный.

[Dan4ik95]

Сорри конечно я так делал:
procedure TForm1.WebBrowser1DocumentComplete( Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
memo1.clear;
memo1.text:=Webbrowser1.OleObject.D ocument.documentElement.innerText;

[Пепел Феникса]

это совсем другое.