procedure TForm1.Button1Click(Sender: TObject);
var
URL, Flags, TargetFrameName, PostData, Headers: Olevariant;
begin
URL := Edit1.Text;
Flags := 0;
TargetFrameName := 0;
Postdata := 0;
Headers := 0;
EmptyParam;
WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);
end;
initialization
// prevent floating point errors
Set8087CW($133F);
end.
Ctrl+A и Ctrl+C в компоненте TWebBrowser
Добрый день
есть код простейшего браузера
программа позволяет загрузить и отобразить ХТМЛ-страницу
Вопрос:
Как организовать выделение и копирование содержимого отображенной в браузере ХТМЛ-страницы в буфер обмена по событию "загрузка закончена", то есть сделать как бы Ctrl+A и Ctrl+C
Нет ли у кого похожего кода, чтоб на пустом месте не гадать?
Заранее спасибо
есть код простейшего браузера
Код:
программа позволяет загрузить и отобразить ХТМЛ-страницу
Вопрос:
Как организовать выделение и копирование содержимого отображенной в браузере ХТМЛ-страницы в буфер обмена по событию "загрузка закончена", то есть сделать как бы Ctrl+A и Ctrl+C
Код:
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
????????????????????????
end;
const pDisp: IDispatch; var URL: OleVariant);
begin
????????????????????????
end;
Нет ли у кого похожего кода, чтоб на пустом месте не гадать?
Заранее спасибо
сделал так
все хорошо, кроме одного - не сохраняет УРЛ в тексте, а оне нужны
и таблицы тоже не сохраняет - а оне желательны, во всяком случае для экшпиримента
может кто еще чего подскажет?
Код:
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
Clipboard.AsText:=(WebBrowser1.Document as IHTMLDocument2).body.outerText;
end;
begin
Clipboard.AsText:=(WebBrowser1.Document as IHTMLDocument2).body.outerText;
end;
все хорошо, кроме одного - не сохраняет УРЛ в тексте, а оне нужны
и таблицы тоже не сохраняет - а оне желательны, во всяком случае для экшпиримента
может кто еще чего подскажет?