Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Работа с браузером   Найти похожие ветки 

 
Viktor   (2012-05-22 09:58) [0]

Задача такая. В браузере с периодичностью в 30 секунд меняются показания(цифры). Надо с помощью Delphi 7 снимать эти показания и записывать в текстовый файл. Как это можно реализовать?


 
ProgRAMmer Dimonych ©   (2012-05-22 10:40) [1]

Принципиально в браузере? Или на странице, которую можно подгрузить Delphi-программой?


 
Rockvik   (2012-05-22 13:01) [2]

Не принципиально. Можно и с подгруженной страници.  Это даже лучший вариант.


 
ProgRAMmer Dimonych ©   (2012-05-22 13:12) [3]

1. Можно попробовать копать в сторону TWebBrowser. Подгружать с его помощью страницу, анализировать полученное.

2. Если не надо отображать саму страницу, можно загружать её самостоятельно (сокеты или TIdHTTP, например), находить в ней нужную информацию, дальше аналогично.


 
Rockvik   (2012-05-22 13:26) [4]

Спасибо. Попробую.


 
AV ©   (2012-05-22 13:46) [5]

для старта, пример через WB

 TForm1 = class(TForm)
   WebBrowser1: TWebBrowser;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation
uses mshtml;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 HtmlDocument: IHtmlDocument2;
 HtmlElement: IHtmlElement;
 s : String;
 n1, n2: Integer;
begin
 WebBrowser1.Navigate("http://delphimaster.net/view/2-1337666296/");
 repeat
   Application.ProcessMessages;
 until not(WebBrowser1.Busy);
 HtmlDocument := WebBrowser1.Document as IHtmlDocument2;
 htmlElement :=HtmlDocument.body;
 s := htmlElement.innerText;
 n1 := Pos("[D7, XP]", s);
 n2 := Pos("âåðñèÿ äëÿ ïå÷àòè", s);
 s := Copy(s, n1, n2-n1);
 ShowMessage( trim(s) );
end;


 
Медвежонок Пятачок ©   (2012-05-22 14:34) [6]

извращенные извращенцы.

ixmlhttprequest


 
ProgRAMmer Dimonych ©   (2012-05-22 14:47) [7]

Тогда уж заодно для полноты можно WinInet API упомянуть. Так, кажись, называлось :)


 
Омлет ©   (2012-05-22 15:00) [8]


> Медвежонок Пятачок ©   (22.05.12 14:34) [6]
> извращенные извращенцы.ixmlhttprequest

+1. Про REST в нашей деревне не слышали.


 
Давайте будем жрать!   (2012-05-22 16:04) [9]


> ProgRAMmer Dimonych ©   (22.05.12 14:47) [7]
Отличная штука. Хотя, пожалуй, [6] потребует меньше телодвижений.


 
antonn ©   (2012-05-23 00:47) [10]

а если эти цифры меняются скриптом?


 
Медвежонок Пятачок ©   (2012-05-23 08:49) [11]

если скриптом, то не нужен не только браузер, но и делфи не нужен.
берем алгоритм и сразу создаем файл данных по нему.



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.067 c
2-1344085484
MS Access
2012-08-04 17:04
2013.03.22
Сортировка по части поля


15-1342092360
ПЛОВ
2012-07-12 15:26
2013.03.22
Ошибка Access violation... и странный указатель


1-1295433352
noob_one
2011-01-19 13:35
2013.03.22
Массивы и указатели. Что я делаю не так?


2-1342074698
Sergey
2012-07-12 10:31
2013.03.22
просьба к участникам быть взаимовежливыми


15-1351606208
Дмитрий С
2012-10-30 18:10
2013.03.22
Как в var параметр передать nil?