Главная страница
    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.46 MB
Время: 0.059 c
15-1334583721
Андреевич
2012-04-16 17:42
2013.03.22
Узнать когда был выход из ждущего режима


4-1259316889
Konstantin
2009-11-27 13:14
2013.03.22
поиск новых файлов


2-1333345551
TSubject
2012-04-02 09:45
2013.03.22
Вопрос по выпадающему списку


2-1342265873
rioko
2012-07-14 15:37
2013.03.22
StringGrid и удаление выделеных строк.


15-1332015528
>|<
2012-03-18 00:18
2013.03.22
Взаимодействие приложений





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский