Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.45 MB
Время: 0.079 c
15-1336238668
TStas
2012-05-05 21:24
2013.03.22
Нестандартное свойство компонента


2-1347121511
alexdn
2012-09-08 20:25
2013.03.22
Верт скролл бар для формы


2-1333888247
Gedimen
2012-04-08 16:30
2013.03.22
Теряется ссылка на TabSheet


2-1339657502
AntiUser
2012-06-14 11:05
2013.03.22
Как правильно создать наследников фрейма


15-1345031945
Рекрут
2012-08-15 15:59
2013.03.22
Как поменять маленькую иконку без VCL?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский