| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сделать из компонента TWebBrowser и формы .DLL

Pcrepair ©   (2012-03-10 18:07:00) 

Добрый день!
есть код модуля на базе компонента 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. будет ли все это работать стабильно, или есть косяки

---

brother   (2012-03-11 03:41:00) [1]

> Вопрос программистам, хорошо знающим компонент TWebBrowser:

а остальные? гуляют лесом?)

---

Германн   (2012-03-11 01:59:00) [2]

> KilkennyCat ©   (11.03.12 01:18) [3]

"Забанненому" мне ответить нечего. :)

---

KilkennyCat   (2012-03-11 01:18:00) [3]

>  Германн ©   (10.03.12 22:20) [2]

> Опять?

а ты хотел, чтоб на весь интернет был один ответ? а гугл тогда как жить будет?

---

Германн   (2012-03-10 22:20:00) [4]

> Вопрос программистам, хорошо знающим компонент TWebBrowser

Опять? И опять на четырех форумах параллельно.

---

Сергей М.   (2012-03-10 18:17:00) [5]

> модуль выдает строковый массив данных


А браузер-то тогда зачем ?)
Не жирно ли задействовать его только лишь для получения кода html-страницы ?


> будет ли все это работать стабильно


Это как звезды расположатся.


> или есть косяки


Да практически за каждым углом грабли ждут)

---

Наверх