Парсинг данных, (в WebBrowser) Часть-2 Полное описание=) - Общие вопросы Delphi - Страница 3

Fahman · 25.11.2013, 09:24

Чет я не пойму где менять я поменял но не компилируется) может ошибся где-то?
Еще есть проблемка.... я вот например кликнул и программа спарсила все норм, но я например хочу поставить авто обновление на 10 минут, после повторного клика оно не отображает ни чего.... только пустой веббраузер=)

И еще вопрос от меня, интересно вот мне легче было бы сохранить страничку потом самому удалить все что мне не надо самому, потом ззагрузить страничку на хост... а как вот подключить все ксс и скрипты? вы вроде так же делали? если кто знает можете подсказать? я так бы попробовал.... так мне более быстрее и удобнее=)

eval · 25.11.2013, 10:50

легче написать во фриланс, и дешевле получится

Fahman · 25.11.2013, 11:36

Цитата:

Сообщение от eval

легче написать во фриланс, и дешевле получится

Не, я хочу все сам понимаете? я то так особо и не знаю программирование, мне нужна это прога и я решил написать и я постараюсь ее сделать сам.....=) мне бы парсинг хорошо освоить и все....

Аватар · 25.11.2013, 11:42

Нельзя отдельно хорошо освоить парсинг, не освоив хотя бы посредственно дельфи в целом

Fahman · 25.11.2013, 11:48

Цитата:

Сообщение от Аватар

Нельзя отдельно хорошо освоить парсинг, не освоив хотя бы посредственно дельфи в целом

Я это уже понял) но я стараюсь) много роликов видео скачал делал как на видео что то получалось что то нет.... ну буду учить что поделаешь... по мелочи умею так а вот чтоб прям парсить и понимать нет. По этому я просил с исходниках писать что для чего) ну так чтоб я вникал а не тупо копи паст))

А что мне делать с проблемой? при клике еще раз на button1, веббраузер загружается но не выдает мне ни что. просто белая страничка=(

Fahman · 26.11.2013, 17:58

Все не нужен ни какой парсинг блин) нашел способ куда более удобней=) правда он чуть по сложнее но может куму пригодиться) если мне нужна часть странички то я сделаю так, через гугл хром открыть станицу потом исходный код, а после удаляю все что мне не нужно=) потом в каждый скрипт указываю путь) и копирую все) потом через текстовой документ сохраняю как .html и отправляю этот фаил на хост=) вроде как то так) вроде по пробовал все робит) спасибо) ваш исходник дал мне эту идею) зачем мне грузить делфи если можно загрузить хостинг))))))

Fahman · 15.12.2013, 10:13

Цитата:

Сообщение от -=Virus=-

Тебе надо вытащить текст между тегами в данном случаи <div id="futures_quotes"> и </div>. Там и находиться твоя табличка. Но это ещё не всё что бы всё корректно работало нужно ещё и добавить в html код текст, который находиться
между тегами <head> и </head> в этом случаи у тебя всё будет работать замечательно.

Вот держи полностью рабочий код.

Код:

unit Unit1;

interface

uses
  ...... MSHTML, activex;


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


var
  Form1: TForm1;



implementation

{$R *.dfm}



function Pars(str:String;str_begin:String;str_end:String;count:integer):String; 
begin
   Delete(str,1,pos(str_begin,str)+length(str_begin));
   Delete(str,pos(str_end,str)-count,length(str));
   Pars:=str;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Str, Head : String;
 v: Variant;
 HTMLDocument: IHTMLDocument2;
begin
 //Тут мы добавляем нужные скрипт для корректной работы.
 head :=
 '<head>'
+'<link rel="stylesheet" href="http://finviz.com/finviz.css?rev=60" type="text/css">'
+'<link rel="shortcut icon" href="http://finviz.com/favicon.ico">'
+'<script src="http://finviz.com/script/boxover.js?rev=2" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/lightup.js?rev=1" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/search.js?rev=4" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/time.js?rev=19" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/menu.js" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/ajax.js" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/futures.js" type="text/javascript"></script>'
+'</head>';


 Str := idHttp1.Get('http://finviz.com/futures.ashx'); 
 Str := Pars(Str, '<div id="futures_quotes">', '</div>', 0); //Вырезаем нужную нам таблицу 

 Webbrowser1.Navigate('about:blank');
 //Тут мы вставляем так же ссылки в html код где нужно, что бы всё красиво выгляело
 Str := StringReplace(Str, 'src="', 'src="http://finviz.com/',[rfReplaceAll, rfIgnoreCase]);
 Str := StringReplace(Str, 'href="', 'href="http://finviz.com/',[rfReplaceAll, rfIgnoreCase]);
 Str := StringReplace(Str, 'fut_chart', 'http://finviz.com/fut_chart',[rfReplaceAll, rfIgnoreCase]);

 //И наконец отправляем весь код в браузер
 HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
 v := VarArrayCreate([0, 0], varVariant);
 v[0] := Head + Str;
 HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
 HTMLDocument.Close;

end;

end.

Исходник ниже

Извините а почему это код не работает на Delphi XE3?

Stilet · 15.12.2013, 11:08

Цитата:

почему это код не работает

А почему ты решил что он не работает?

Fahman · 15.12.2013, 12:04

Цитата:

Сообщение от Stilet

А почему ты решил что он не работает?

Да не знаю ошибки есть там(((( не получается скомпелировать!

Fahman · 07.01.2014, 15:28

Извините но вот у меня вопрос, мне в этой теме помогли а именно "Virus" За что отдельное спасибо за код. Но почему при повторном клике на кнопку не парсит? грузит пустую страницу в webbrowser и все а при первом клике все нормально работает... вот код

Код:

unit Unit1;

interface

uses
  ...... MSHTML, activex;


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


var
  Form1: TForm1;



implementation

{$R *.dfm}



function Pars(str:String;str_begin:String;str_end:String;count:integer):String; 
begin
   Delete(str,1,pos(str_begin,str)+length(str_begin));
   Delete(str,pos(str_end,str)-count,length(str));
   Pars:=str;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Str, Head : String;
 v: Variant;
 HTMLDocument: IHTMLDocument2;
begin
 //Тут мы добавляем нужные скрипт для корректной работы.
 head :=
 '<head>'
+'<link rel="stylesheet" href="http://finviz.com/finviz.css?rev=60" type="text/css">'
+'<link rel="shortcut icon" href="http://finviz.com/favicon.ico">'
+'<script src="http://finviz.com/script/boxover.js?rev=2" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/lightup.js?rev=1" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/search.js?rev=4" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/time.js?rev=19" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/menu.js" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/ajax.js" type="text/javascript"></script>'
+'<script src="http://finviz.com/script/futures.js" type="text/javascript"></script>'
+'</head>';


 Str := idHttp1.Get('http://finviz.com/futures.ashx'); 
 Str := Pars(Str, '<div id="futures_quotes">', '</div>', 0); //Вырезаем нужную нам таблицу 

 Webbrowser1.Navigate('about:blank');
 //Тут мы вставляем так же ссылки в html код где нужно, что бы всё красиво выгляело
 Str := StringReplace(Str, 'src="', 'src="http://finviz.com/',[rfReplaceAll, rfIgnoreCase]);
 Str := StringReplace(Str, 'href="', 'href="http://finviz.com/',[rfReplaceAll, rfIgnoreCase]);
 Str := StringReplace(Str, 'fut_chart', 'http://finviz.com/fut_chart',[rfReplaceAll, rfIgnoreCase]);

 //И наконец отправляем весь код в браузер
 HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
 v := VarArrayCreate([0, 0], varVariant);
 v[0] := Head + Str;
 HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
 HTMLDocument.Close;

end;

end.

У меня парсинг не простой) все данные в основном динамические и по этому я делаю парсин по таймеру и при повторной попытке спарсить страничка пустая.... В чем может быть проблема?

25.11.2013, 09:24	#21
Fahman Форумчанин Регистрация: 03.04.2013 Сообщений: 703	Чет я не пойму где менять я поменял но не компилируется) может ошибся где-то? Еще есть проблемка.... я вот например кликнул и программа спарсила все норм, но я например хочу поставить авто обновление на 10 минут, после повторного клика оно не отображает ни чего.... только пустой веббраузер=) И еще вопрос от меня, интересно вот мне легче было бы сохранить страничку потом самому удалить все что мне не надо самому, потом ззагрузить страничку на хост... а как вот подключить все ксс и скрипты? вы вроде так же делали? если кто знает можете подсказать? я так бы попробовал.... так мне более быстрее и удобнее=) 99% ошибок компьютера сидит в полуметре от монитора. Последний раз редактировалось Fahman; 25.11.2013 в 09:27.

25.11.2013, 11:42	#24
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Нельзя отдельно хорошо освоить парсинг, не освоив хотя бы посредственно дельфи в целом Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

26.11.2013, 17:58	#26
Fahman Форумчанин Регистрация: 03.04.2013 Сообщений: 703	Все не нужен ни какой парсинг блин) нашел способ куда более удобней=) правда он чуть по сложнее но может куму пригодиться) если мне нужна часть странички то я сделаю так, через гугл хром открыть станицу потом исходный код, а после удаляю все что мне не нужно=) потом в каждый скрипт указываю путь) и копирую все) потом через текстовой документ сохраняю как .html и отправляю этот фаил на хост=) вроде как то так) вроде по пробовал все робит) спасибо) ваш исходник дал мне эту идею) зачем мне грузить делфи если можно загрузить хостинг)))))) 99% ошибок компьютера сидит в полуметре от монитора.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Webbrowser и парсинг содержимого страницы	Дима я	Работа с сетью в Delphi	14	02.07.2015 16:50
Парсинг или часть странички в webbrowser? Как лучше?	Fahman	Общие вопросы Delphi	32	18.11.2013 15:59
олимпиадная задача на паскале шоколадные плитки...нужно полное словесное описание	sexyanet	Помощь студентам	4	27.12.2011 00:18
описание свойств webbrowser	Анастасия123456789	Работа с сетью в Delphi	10	25.12.2011 14:41
Парсинг c webbrowser	Arsenx777	Общие вопросы Delphi	3	02.11.2011 23:08

25.11.2013, 10:50	#22
eval Подтвердите свой е-майл Регистрация: 29.08.2012 Сообщений: 4,011	легче написать во фриланс, и дешевле получится