Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.067 c
15-1342873269
wl
2012-07-21 16:21
2013.03.22
подключение внешнего монитора к ноутбуку


2-1339691646
vasa777
2012-06-14 20:34
2013.03.22
заставка xe2 с текстом


15-1354038522
Дмитрий С
2012-11-27 21:48
2013.03.22
Менеджер паролей.


2-1333992965
mikluha
2012-04-09 21:36
2013.03.22
EasyListView, VTV, Vshell


15-1331627201
advise
2012-03-13 12:26
2013.03.22
Подскажите на каих ресурсах можно найти программиста Delphi





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