Комментарии: Сбор статистики поисковых систем. Компонент Delphi 2010. http://www.webdelphi.ru/2009/09/sbor-statistiki-poiskovyx-sistem-komponent-delphi-2010/ программируем в Delphi Mon, 06 Feb 2012 23:51:09 +0000 hourly 1 http://wordpress.org/?v=3.3.1 Автор: Vlad http://www.webdelphi.ru/2009/09/sbor-statistiki-poiskovyx-sistem-komponent-delphi-2010/comment-page-1/#comment-4982 Vlad Thu, 29 Jul 2010 19:43:06 +0000 http://www.webdelphi.ru/?p=512#comment-4982 Пример кода в студию. В каком месте исключение возникает? Пример кода в студию. В каком месте исключение возникает?

]]> Автор: Инал http://www.webdelphi.ru/2009/09/sbor-statistiki-poiskovyx-sistem-komponent-delphi-2010/comment-page-1/#comment-4981 Инал Thu, 29 Jul 2010 19:28:32 +0000 http://www.webdelphi.ru/?p=512#comment-4981 При простой активации подсчета в Google программа нормально запускается, но через несколько секунд вышибает со словами "Econvert error". При простой активации подсчета в Google программа нормально запускается, но через несколько секунд вышибает со словами «Econvert error».

]]> Автор: Алексей http://www.webdelphi.ru/2009/09/sbor-statistiki-poiskovyx-sistem-komponent-delphi-2010/comment-page-1/#comment-2342 Алексей Mon, 15 Feb 2010 18:16:22 +0000 http://www.webdelphi.ru/?p=512#comment-2342 Хороший компонент. Парсер рамблера  немного надо подправить (тэг изменился). я так сделал: function TSearchStats.RamblerParser: int64; var Charset: TCharsets; Doc: IHTMLDocument2; Cache: TStringList; Element: IHTMLElement; Tags: IHTMLElementCollection; i, k: integer; str, attr: string; begin k := 1; Cache := TStringList.Create; Cache.LoadFromStream(FPageStreams[Rambler]); Charset := PageCharset(Cache.Text); Doc := coHTMLDocument.Create as IHTMLDocument2; Doc := DecodeStream(FPageStreams[Rambler], Charset); Tags := Doc.all.tags('div') as IHTMLElementCollection; str := ''; for i := 0 to Tags.Length - 1 do begin Element := Tags.item(i, 0) as IHTMLElement; try if (Element.className = 'report')then str := Element.innerText; except end; end; if Length(str) > 0 then begin if Pos(':', str) > 0 then begin Delete(str, 1, pos(':', str) + 1); if pos('тыс', str) > 0 then k := 1000 else if pos('млн', str) > 0 then k := 1000000 else if pos('млрд', str) > 0 then k := 1000000000; try str := StripNonConforming(str, ['0'..'9']); Result := StrToInt(str) * k; except Result := -1; end; end else Result := -1; end else Result := -1; end; Хороший компонент. Парсер рамблера  немного надо подправить (тэг изменился).
я так сделал:
function TSearchStats.RamblerParser: int64;
var Charset: TCharsets;
Doc: IHTMLDocument2;
Cache: TStringList;
Element: IHTMLElement;
Tags: IHTMLElementCollection;
i, k: integer;
str, attr: string;
begin
k := 1;
Cache := TStringList.Create;
Cache.LoadFromStream(FPageStreams[Rambler]);
Charset := PageCharset(Cache.Text);
Doc := coHTMLDocument.Create as IHTMLDocument2;
Doc := DecodeStream(FPageStreams[Rambler], Charset);
Tags := Doc.all.tags(‘div’) as IHTMLElementCollection;
str := »;
for i := 0 to Tags.Length — 1 do
begin
Element := Tags.item(i, 0) as IHTMLElement;
try
if (Element.className = ‘report’)then
str := Element.innerText;
except
end;
end;

if Length(str) > 0 then
begin
if Pos(‘:’, str) > 0 then
begin
Delete(str, 1, pos(‘:’, str) + 1);
if pos(‘тыс’, str) > 0 then
k := 1000
else if pos(‘млн’, str) > 0 then
k := 1000000
else if pos(‘млрд’, str) > 0 then
k := 1000000000;
try
str := StripNonConforming(str, ['0'..'9']);
Result := StrToInt(str) * k;
except
Result := -1;
end;
end
else
Result := -1;
end
else
Result := -1;
end;

]]>