VPF::РЕшить проблему со считыванием страниц

Clicker

Дата 16.8.2005, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 16.8.2005

Репутация: нет
Всего: нет

Хочу со страницы-статистики Интернет-траффика в Файрволле взять информацию о потраченном трафике с ячейки таблицы страницы и выдать его на форму. (ну не держать же открытой постоянно одну и ту же страницу).

_hunter

Дата 16.8.2005, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

ну и выдавай. в чем проблема?
+ что за файрволл?
++ что за страница статистики?

--------------------

Tempora mutantur, et nos mutamur in illis...

Clicker

Дата 17.8.2005, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 16.8.2005

Репутация: нет
Всего: нет

Kerio WinRoute Firewall
Страница статистика пользователя по скачанному трафику

_hunter

Дата 17.8.2005, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

а где ответ на первый вопрос? ;)
+ ты думаеш эти данные лежат где-нить на диске в текстовом файле? -- это не так. в лучшем случае они доступны через COM ( но об этом читать на сайте производителя нужно ) в худшем -- они вообще не доступны для внешнего считывания.

--------------------

Tempora mutantur, et nos mutamur in illis...

Clicker

Дата 17.8.2005, 13:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 16.8.2005

Репутация: нет
Всего: нет

при команде:

memo1.Text := idHttp1.Get('http://gate:4080/fw/stat');

у меня в мемо-поле выходит такой текст:

Код

<?xml version="1.0" encoding="windows-1251"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ru">
<head>
 <title> </title>
 <link rel="stylesheet" type="text/css" href="/gfx/style.css" media="all" />
 <link rel="SHORTCUT ICON" href="/gfx/favicon.ico" />
</head>
<body>

 <div id="main_null">
 <div id="main">
  
  <div id="top">
   <div>
    gate</b> 
   </div>
  </div>
  
  <div id="title">
   <img src="/gfx/ico/title_1b.png" alt=''   <h3>
    <span>Р?СЂС‚СѓСЂ ]</span>
   </h3>
  </div>

  <div id="cont">
  
<b><div id="table">
 <table width="400">
  <tr><th colspan="2">&nbsp;</th></tr>
  <tr><td><b>Р?СЂС‚СѓСЂ  </td></tr>
  <tr><td><b>[color=red]171.155.0.3  [/color]</td></tr>
  <tr><td><b>04:28:14  </td></tr>
  <tr><td><b>Automatic  </td></tr>
 </table>
</div>

<div style="margin-top: 20px;"><b><div id="table2"> 
 <table width="400">
  <tr><th>&nbsp;</th><th>  <tr><td style="text-align: left;"><b>321.32 kB</td><td>5.52 MB  </td></tr> 
  <tr><td style="text-align: left;"><b>10.63 MB</td><td>84.66 MB  </td></tr>
  <tr><td style="text-align: left;"><b>90</td><td>6266  </td></tr>
 </table>
</div>

<div style="margin-top: 20px;"><b><div id="table2"> 
 <table width="400">
  <tr><th>&nbsp;</th><th>  <tr><td style="text-align: left;"><b>0</td><td>0  </td></tr>
  <tr><td style="text-align: left;"><b>0</td><td>0  </td></tr>
  <tr><td style="text-align: left;"><b>0</td><td>0  </td></tr>
  <tr><td style="text-align: left;"><b>0</td><td>0  </td></tr>
  <tr><td style="text-align: left;"><b>0</td><td>0  </td></tr>
 </table>
 </div>

<div style="margin-top: 20px;"><b><div id="table2">
 <table width="400">
  <tr><th>&nbsp;</th><th>  <tr><td style="text-align: left;"><b>[color=red]15.00 MB[/color]</td><td>10.63 MB</td><td>70 %  </td></tr>
  <tr><td style="text-align: left;"><b>-</td><td>[color=red]43.07 MB[/color]</td><td>-  </td></tr>
  <tr><td style="text-align: left;"><b>-</td><td>[color=red]90.18 MB[/color]</td><td>-  </td></tr>
 </table>
</div>
 
<p style="color:red; margin-top: 20px;">
&nbsp;</p>

<p style="margin-top: 20px;">Mon Aug 08 16:10:27 2005
</p>

 </div>
<div id="menu_null">
<div id="menu">
 <div id="menu_right">
  <div>
   <a href="/">   <a href="/fw/login">   <a href="/dial">   <a href="/cache">   <a href="/http_restr">Web-  </div>
 </div> 
</div>
</div>
<div id="bottom">
 <div>
Kerio WinRoute Firewall 6.0.1 &copy; 2003 - 2004 <a href="http://www.kerio.stormzone.org/">Kerio-Ru Technologies</a>
 </div>
</div>  
 </div>
 </div>
</body>
</html>

отсюда мне нужно вытащить промежутки с данными от трафик (помечено красным)

Это сообщение отредактировал(а) Girder - 17.8.2005, 16:06

_hunter

Дата 17.8.2005, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

о... это уже совсем другой разговор.
можно на этот файл натравить msxml парсер, но ( учитываю глупость структуры файла ) IMHO проще написать свой парсер.
как? банально в тексте ищеш "<div id="table">"
после этого второй "<b>" ( я предполагаю что структура файла не меняется )
и потом читаеш все до "<"
( топорно, но с пивом покатит smile

)

--------------------

Tempora mutantur, et nos mutamur in illis...

Girder

Дата 17.8.2005, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155

Внешний вид   Статистика 171.155.0.3 04:28:14 Automatic   321.32 kB5.52 MB 10.63 MB84.66 MB 906266   00 00 00 00 00   15.00 MB10.63 MB70 % -43.07 MB- -90.18 MB-  Mon Aug 08 16:10:27 2005 Web- Kerio WinRoute Firewall 6.0.1 © 2003 - 2004 Kerio-Ru Technologies

Ну... в первом приближении smile

Код

procedure TForm1.Button1Click(Sender: TObject);
procedure add(Str:string);
var i,j:integer;
begin
 Str:=uppercase(Str);
 if (pos('MB',Str)>0)or(pos('KB',Str)>0) then Memo2.Lines.Add(Str) else
  begin
   j:=0;
   for i:=1 to Length(Str) do
    if Str[i]='.' then inc(j) else if not(Str[i] in ['0'..'9']) then exit;
   if j=3 then Memo2.Lines.Add(Str);
  end;
end;
var s,t:string;
    i:integer;
    f:boolean;
begin
 Memo2.Clear;
 s:=trim(Memo1.Text);
 f:=true;
 for i:=1 to Length(s) do
  begin
   if s[i]='<' then
    begin
     t:=trim(t);
     if (t<>'')and(f) then add(t);
     t:='';
     f:=false;
    end else
    if s[i]='>' then
     begin
      t:='';
      f:=true;
     end else t:=t+s[i];
  end;
 t:=trim(t);
 if (t<>'')and(f) then add(t);
end;

Это сообщение отредактировал(а) Girder - 17.8.2005, 16:42

--------------------

Как слышим, так и пишим.
Истина где-то там...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »