Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
ВнизСделать из компонента TWebBrowser и формы .DLL Найти похожие ветки
← →
Pcrepair © (2012-03-10 18:07) [0]Добрый день!
есть код модуля на базе компонента TWebBrowser. модулю передается параметр в виде URL, модуль выдает строковый массив данных (ХТМЛ-код страницы) и флаг об окончании загрузки
var
Form1: TForm1;
UrlSearch : String; //входные параметры
DataOut : String; //выходные параметры
Flag1 : boolean; //окончание загрузки страницы
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Flag1 := False;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Flags, TargetFrameName, PostData, Headers: Olevariant;
begin
if UrlSearch <> "" then
begin
Timer1.Enabled := False;
Flag1 := False;
URL1 := UrlSearch;
Flags := 0;
TargetFrameName := 0;
Postdata := 0;
Headers := 0;
WebBrowser1.Navigate(UrlSearch, Flags, TargetFrameName, PostData, Headers);
repeat
Application.ProcessMessages;
until WebBrowser1.ReadyState >= READYSTATE_COMPLETE;
if WebBrowser1.Document <> nil then
DataOut := (WebBrowser1.Document as IHTMLDocument2).body.innerhtml;
Application.ProcessMessages;
begin
T := TStringList.Create;//это в другом модуле
T.Text := DataOut;
//вызов процедур обработки кода. в отдельном модуле
end;
Flag1 := True;
UrlSearch := "";
URL1 := "";
Timer1.Enabled := True;
end;
end;
initialization
Set8087CW($133F);
end.
Вопрос программистам, хорошо знающим компонент TWebBrowser:
1. можно ли сделать все выше перечисленное в виде DLL, учитывая наличие формы и то что сам TWebBrowser вызывает DLL из ОС
2. будет ли все это работать стабильно, или есть косяки
← →
Сергей М. © (2012-03-10 18:17) [1]
> модуль выдает строковый массив данных
А браузер-то тогда зачем ?)
Не жирно ли задействовать его только лишь для получения кода html-страницы ?
> будет ли все это работать стабильно
Это как звезды расположатся.
> или есть косяки
Да практически за каждым углом грабли ждут)
← →
Германн © (2012-03-10 22:20) [2]
> Вопрос программистам, хорошо знающим компонент TWebBrowser
Опять? И опять на четырех форумах параллельно.
← →
KilkennyCat © (2012-03-11 01:18) [3]
> Германн © (10.03.12 22:20) [2]
> Опять?
а ты хотел, чтоб на весь интернет был один ответ? а гугл тогда как жить будет?
← →
Германн © (2012-03-11 01:59) [4]
> KilkennyCat © (11.03.12 01:18) [3]
"Забанненому" мне ответить нечего. :)
← →
brother © (2012-03-11 03:41) [5]> Вопрос программистам, хорошо знающим компонент TWebBrowser:
а остальные? гуляют лесом?)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.059 c