VPF::Как получить данные из Ява скрипта!

Zlo

Дата 31.7.2005, 18:18 (ссылка)

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

Загрузка ...

Бывалый

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

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

Есть такой ява скрипт:

Код


function toGMT(stamp)
{
 var curDateTime = new Date(stamp*1000);
 var summer = Config('site_summer')*1;
 var curHour = curDateTime.getHours()
     + curDateTime.getTimezoneOffset()/60 + summer;
 if (curHour >= 24)
 {
  curHour -= 24;
  dayStep = 1;
 }
 else
 {
  dayStep = 0;
 }
 if (curHour < 0) curHour += 24;
 var curMin = curDateTime.getMinutes();
 var curSec = curDateTime.getSeconds();
 var curTime = ((curHour < 10) ? "0" : "") + curHour + ":"
             + ((curMin < 10) ? "0" : "") + curMin + ":"
             + ((curSec < 10) ? "0" : "") + curSec;
 var mth = ( curDateTime.getMonth() < 10 )? '0'
              + (curDateTime.getMonth()+1):(curDateTime.getMonth()+1);
 var day = ( curDateTime.getDate() < 10 )? '0'
              + (curDateTime.getDate()+dayStep):curDateTime.getDate()+dayStep;
 var yea = curDateTime.getYear();
 date = 'Дата: <b>' + day + '.' + mth + '.' + yea + ' </b> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Время: <b>'
                 + curTime;
 //
 return date;
}

function Cron()
{
 var dtm = Config('down_time')*1;
 //rest////////////////////////////////////
 var dwh = Config('down_health_rest')*1;
 if ( action == 5 )
 {
  rest = upCalc('rest',rest,maxwish);
 }
 rest = downCalc('rest',rest);
 if ( rest == 0 && action != 11 ) health -= dwh/dtm;
 //shower/////////////////////////////////
 var dwh = Config('down_health_shower')*1;
 if ( action == 4 )
 {
  shower = upCalc('shower',shower,maxwish);
 }
 shower = downCalc('shower',shower);
 if ( shower == 0 && action != 11 ) health -= dwh/dtm;
 //sleep///////////////////////////////////
 var dwh = Config('down_health_sleep')*1;
 if ( action == 2 )
 {
  sleep = upCalc('sleep',sleep,maxwish);
 }
 sleep = downCalc('sleep',sleep);
 if ( sleep == 0 && action != 11 ) health -= dwh/dtm;
 //replete///////////////////////////////////
 var dwh = Config('down_health_replete')*1;
 if ( action == 3 )
 {
  replete = upCalc('replete',replete,maxwish);
 }
 replete = downCalc('replete',replete);
 if ( replete == 0 && action != 11 ) health -= dwh/dtm;
 //health///////////////////////////////////
 if ( action == 11 ) {
  health = upCalc('health',health,maxwish);
 }
 else
 {
  health = downCalc('health',health);
 }
  //city time
 ++citytime ;
 var date = toGMT(citytime);
 //window.status = date;

 //
 if ( document.getElementById('citytime') )
 {
  document.getElementById('citytime').innerHTML = date;
 }
}

function downCalc(name,res)
{
 if ( document.getElementById(name) &&
      document.getElementById(name + '_value')
    )
 {
  var dtm = Config('down_time')*1;
  //
  var dwn = Config('down_' + name)*1;
  dwn = ( name == 'replete' )? dwn*hungry*1:dwn*1;
  res -= dwn/dtm;
  //window.status = 'dwn: ' + dwn + ' | ' + 'dtm: ' + dtm + ' | ' + 'res: ' + res;
  res = ( res > 0 )? res:0;
  now = Math.round(res*10000)/100;

  var bg = '';
  if ( now < 30 ) { bg = '#FF0000';}
  else if ( now < 50 ) {bg = '#CC9900';}
  else {bg = '#007700';}
  var check = now;
  now = now.toString();
       if ( now.indexOf('.') == 2 && now.length == 4 ) now = now + '0';
  else if ( now.indexOf('.') == 1 && now.length == 3 ) now = now + '0';
  else if ( now.indexOf('.') == -1 ) now = now + '.00';
  now = now + '%';
  if( check > 1 )
  {
   document.getElementById(name).width = now;
  }
  if ( check > 1 )
  {
   document.getElementById(name).style.backgroundColor = bg;
   document.getElementById(name + '_value').innerHTML = '&nbsp;' + now;
  }
  //
  return res;
 }
}

function upCalc(name,init,maxwish)
{
 if ( document.getElementById(name) &&
      document.getElementById(name + '_value')
    )
 {
  var up_value = ( name == 'health' )? Config('doc_level_' + level)*1:Config('up_' + name)*1*level;
  var step = up_value/Config('down_time')*1;
  var rest = maxwish - init;
  //
  var timeRest = rest/step;
  var now = Math.round((init + step)*10000)/100;
  var bg = '';
  if ( now < 30 ) {bg = '#FF0000';}
  else if ( now < 50 ) {bg = '#CC9900';}
  else { bg = '#007700';}
  var check = now;
  now = now.toString();
       if ( now.indexOf('.') == 2 && now.length == 4 ) now = now + '0';
  else if ( now.indexOf('.') == 1 && now.length == 3 ) now = now + '0';
  else if ( now.indexOf('.') == -1 ) now = now + '.00';
  now = now + '%';
  //
  var bool = ( action == 11 )? (timeRest > 0):(check < maxwish*100);
  //
  if ( bool )
  {
   var hour = Math.floor(timeRest/3600);
   timeRest = timeRest - hour*3600;
   var min = Math.floor(timeRest/60);
   var sec = Math.floor(timeRest - min*60);
   timeRest = hour + ' ч. ' + min + ' мин. ' + sec + ' сек.';
   //
   if ( parent.document.getElementById('timeRest') )
   {
    parent.document.getElementById('timeRest').innerText = timeRest;
   }
   window.status = timeRest;
   //
   if ( action == 11 )
   {
    if( check > 1 )
    {
     document.getElementById(name).width = now;
    }
    document.getElementById(name).style.backgroundColor = bg;
    document.getElementById(name + '_value').innerHTML = '&nbsp;' + now;
   }
  }
  else
  {
   clearInterval(timer);
   parent.window.location.reload(true);
  }
  //
  return init + step;
 }
}

В нем гдето считается время! Мне нужно взять это время и считать его в своей программе скажем в Label.
Плиз помогите!

p0s0l

Дата 31.7.2005, 18:42 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Судя по:

Код


var date = toGMT(citytime);    
 //window.status = date;    
 //    
 if ( document.getElementById('citytime') )    
 {    
  document.getElementById('citytime').innerHTML = date;    
 }    
}

нужно в документе браузера взять значение элемента citytime...

Получение значения элемента выглядит примерно так:

Код

var
  doc : IHTMLDocument2;
  el : IHTMLElement;
begin
  doc := WebBrowser1.Document as IHTMLDocument2;
  el := doc.all.item('citytime', EmptyParam) as IHTMLElement;
  Label1.Caption := el.innerHTML;
end;

либо так:

Код

var el, doc : OleVariant;
begin
  doc := WebBrowser1.OleObject.Document;
  el := doc.getElementById('citytime'); // или el := doc.all.item('citytime');
  Label1.Caption := el.innerHTML;
end;

Добавлено @ 18:49
А может тебе проще так, без выполнения скрипта получить время ? smile

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

С уважением, г-н Посол.

Zlo

Дата 31.7.2005, 19:44 (ссылка)

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

Загрузка ...

Бывалый

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

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

p0s0l
> А может тебе проще так, без выполнения скрипта получить время ?

Возможно! Если ты покажещь как то лишьним это небудет! Но мне нужно чтобы время в Лейбле не просто пакозалось, а чтобы оно шло!

p0s0l

Дата 31.7.2005, 22:31 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Цитата(Zlo @ 31.7.2005, 19:44)

Возможно! Если ты покажещь как то лишьним это небудет! Но мне нужно чтобы время в Лейбле не просто пакозалось, а чтобы оно шло!

Вытаскивай на форму TTimer и TLabel. На событие OnTimer вешай такой код:

Код

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Time);
end;

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

С уважением, г-н Посол.

Yanis

Дата 31.7.2005, 22:49 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Zlo @ 31.7.2005, 19:44)

Но мне нужно чтобы время в Лейбле не просто пакозалось, а чтобы оно шло!

А время и так всегда идёт...

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

*щёлк*

Zlo

Дата 31.7.2005, 22:53 (ссылка)

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

Загрузка ...

Бывалый

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

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

p0s0l
Хм... интересно но время показывается то которое установлено на компьюторе а не то которое показывает скрипт!

И еще какие модули нужно добавить в список Uses чтобы работал первые пример?
Если несложно приведи текст программы полностью с Обработкой события скаже клик по кнопке!
Извеняюсь за ламерство!

Это сообщение отредактировал(а) Zlo - 31.7.2005, 23:08

Zlo

Дата 31.7.2005, 23:13 (ссылка)

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

Загрузка ...

Бывалый

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

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

p0s0l
Я зделал так:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  doc : IHTMLDocument2;
  el : IHTMLElement;
begin
  doc := WebBrowser1.Document as IHTMLDocument2;
  el := doc.all.item('citytime', EmptyParam) as IHTMLElement;
  Label1.Caption := el.innerHTML;
end;

Но прога вылетает с ошибкой на строке:

Код


  Label1.Caption := el.innerHTML;

p0s0l

Дата 31.7.2005, 23:16 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Значит нет такого элемента "citytime" в документе.
Выложи тут полный html, на который ссылается Edit1.Text...

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

С уважением, г-н Посол.

Zlo

Дата 31.7.2005, 23:31 (ссылка)

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

Загрузка ...

Бывалый

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

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

Вот:

Код


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0031)http://www.sancity.ru/panel.php -->
<HTML><HEAD><TITLE>SanCity.ru - online игра нового поколения. Город.</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1251">
<META content="SanCity.ru - online игра нового поколения. Город." 
name=description>
<META content="SaCity, City, игра, game, online" name=keywords><LINK 
href="panel.files/style.css" type=text/css rel=stylesheet>
<script language=javascript src="panel.files/panel.js"></SCRIPT>

<script>
    var citytime = 1122812322;
    function Config(arg)
    {

     if ( arg == 'user_speed') return '1.4';
     if ( arg == 'px_meter') return '1';
     if ( arg == 'down_time') return '3600';
     if ( arg == 'down_health') return '0.0005';
     if ( arg == 'down_replete') return '0.05';
     if ( arg == 'down_rest') return '0.05';
     if ( arg == 'down_sleep') return '0.04';
     if ( arg == 'down_shower') return '0.03';
     if ( arg == 'down_health_replete') return '0.001';
     if ( arg == 'down_health_rest') return '0.0006';
     if ( arg == 'down_health_shower') return '0.0005';
     if ( arg == 'down_health_sleep') return '0.0004';
     if ( arg == 'down_health_room') return '0.0006';
     if ( arg == 'house_max_limit') return '70';
     if ( arg == 'room_max') return '80';
     if ( arg == 'house_min_price') return '0.05';
     if ( arg == 'house_max_price') return '10';
     if ( arg == 'up_bread') return '0.04';
     if ( arg == 'up_sausage') return '0.06';
     if ( arg == 'up_milk') return '0.08';
     if ( arg == 'up_potato') return '0.1';
     if ( arg == 'up_honey') return '0.12';
     if ( arg == 'bread_up') return '0.25';
     if ( arg == 'sausage_up') return '0.25';
     if ( arg == 'milk_up') return '0.25';
     if ( arg == 'potato_up') return '0.25';
     if ( arg == 'honey_up') return '0.25';
     if ( arg == 'min_farm_pay') return '5';
     if ( arg == 'doc_lic_max') return '60';
     if ( arg == 'up_health') return '0.03';
     if ( arg == 'doc_lic_min') return '1';
     if ( arg == 'farm_level_1') return '8';
     if ( arg == 'farm_level_2') return '6';
     if ( arg == 'farm_level_3') return '4';
     if ( arg == 'mill_level_1') return '9';
     if ( arg == 'mill_level_2') return '7';
     if ( arg == 'mill_level_3') return '5';
     if ( arg == 'min_mill_pay') return '6';
     if ( arg == 'min_mill_spend') return '8';
     if ( arg == 'min_bakery_spend') return '4';
     if ( arg == 'min_bakery_pay') return '5';
     if ( arg == 'bakery_level_1') return '8';
     if ( arg == 'bakery_level_2') return '6';
     if ( arg == 'bakery_level_3') return '4';
     if ( arg == 'min_farm_spend') return '1';
     if ( arg == 'mill_sale_tax') return '0.02';
     if ( arg == 'mill_work_tax') return '0.04';
     if ( arg == 'bakery_sale_tax') return '0.02';
     if ( arg == 'bakery_work_tax') return '0.05';
     if ( arg == 'farm_sale_tax') return '0.03';
     if ( arg == 'farm_work_tax') return '0.05';
     if ( arg == 'hospital_work_tax') return '0.1';
     if ( arg == 'part_from_tax') return '0.2';
     if ( arg == 'site_name') return 'SanCity.ru';
     if ( arg == 'site_url') return 'http://www.sancity.ru/';
     if ( arg == 'test_mode') return '0';
     if ( arg == 'min_out') return '3';
     if ( arg == 'min_in') return '0.01';
     if ( arg == 'min_doctor_pay') return '0.06';
     if ( arg == 'house_room_tax') return '0.22';
     if ( arg == 'univer_study_tax') return '0.14';
     if ( arg == 'farm_area_tax') return '0.15';
     if ( arg == 'mill_area_tax') return '0.17';
     if ( arg == 'bakery_area_tax') return '0.2';
     if ( arg == 'farm_seed_tax') return '0.15';
     if ( arg == 'max_msg') return '2000';
     if ( arg == 'site_cache') return '1';
     if ( arg == 'doc_level_1') return '0.018';
     if ( arg == 'doc_level_2') return '0.024';
     if ( arg == 'doc_level_3') return '0.036';
     if ( arg == 'site_compile_check') return '1';
     if ( arg == 'site_cache_lifetime') return '-1';
     if ( arg == 'game_taxer') return 'Inspektor';
     if ( arg == 'hospital_area_tax') return '0.18';
     if ( arg == 'game_down_expir') return '60';
     if ( arg == 'game_max_expir') return '60';
     if ( arg == 'test_study') return '0';
     if ( arg == 'test_biz') return '0';
     if ( arg == 'max_sbj') return '100';
     if ( arg == 'site_email') return '[email protected]';
     if ( arg == 'site_summer') return '-4';
     if ( arg == 'site_lock') return '0';
     if ( arg == 'site_stamp') return '1122812322';
     if ( arg == 'max_freeze') return '30';
     if ( arg == 'freeze_price') return '3';
     if ( arg == 'min_house_pay') return '5';
     if ( arg == 'house_worker') return '2';
     if ( arg == 'house_work_tax') return '0.1';
     if ( arg == 'down_health_street') return '0.0025';
     if ( arg == 'up_rest') return '3.00';
     if ( arg == 'up_sleep') return '1.20';
     if ( arg == 'up_shower') return '2.40';
     if ( arg == 'up_replete') return '2.40';
     if ( arg == 'down_room') return '0.05';

    }
    var health = 0.8758;
    var level = 1;
    var replete = 0.0000;
    var hungry = 1.0000;
    var maxwish = 1.00000;
    var rest = 0.5455;
    var shower = 0.7365;
    var sleep = 0.6828;
    var room = 4.22;
    var action = 0;
    var status = 1;
    if ( status != 9 ) var timer = setInterval("Cron()",1000);
   </SCRIPT>

<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY onselectstart="javascript: return false;" bgColor=#fefff2>
<TABLE class=panel cellSpacing=0 cellPadding=4 width="100%" border=0><!----menu----->
  <TBODY>
  <TR>
    <TD>
      <TABLE class=state width="100%">
        <TBODY>
        <TR align=middle>
          <TD width="17%"><A href="http://www.sancity.ru/region/index.php" 
            target=_top><IMG title="Выйти в город" 
            src="panel.files/out_home.gif" border=0></A></TD>
          <TD width="16%"><IMG title=Карта style="CURSOR: hand" 
            onclick=parent.flipMap(); src="panel.files/map.gif" border=0> </TD>
          <TD width="16%"><A href="http://www.sancity.ru/message.php" 
            target=_top><IMG title="Ваши сообщения. Новых писем: 0" 
            src="panel.files/send.gif" border=0> </A></TD>
          <TD width="16%"><A href="http://www.sancity.ru/partner.php" 
            target=_top><IMG title=Партнер src="panel.files/partner.gif" 
            border=0></A></TD>
          <TD width="16%"><A href="http://www.sancity.ru/private.php" 
            target=_top><IMG title="Персональные настройки" 
            src="panel.files/config.gif" border=0></A></TD>
          <TD width="17%"><A href="http://www.sancity.ru/logout.php" 
            target=_top><IMG title="Выйти из города" 
            src="panel.files/logout.gif" 
    border=0></A></TD></TR></TBODY></TABLE></TD></TD><!----city time----->
  <TR>
    <TD>
      <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD id=citytime align=middle>&nbsp;Дата: <B>31.07.2005</B> 
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Время: 
        <B>08:18:42</B>&nbsp;</TD></TR></TBODY></TABLE></TD></TD><!---------><!----data----->
  <TR>
    <TD>
      <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=state align=right width="50%">Имя жителя&nbsp;</TD>
          <TD class=state width="50%">&nbsp;Samo_Zlo </TD></TR>
        <TR>
          <TD class=state align=right width="50%">Адрес проживания&nbsp;</TD>
          <TD class=state width="50%">&nbsp;ул. Первомайская 2 кв. 4649 </TD></TR>
        <TR>
          <TD class=state align=right width="50%">День рождения&nbsp;</TD>
          <TD class=state width="50%">&nbsp;26.07.2005 </TD></TR>
        <TR>
          <TD class=state align=right width="50%">Возраст&nbsp;</TD>
          <TD class=state width="50%">&nbsp;4 дн. </TD></TR>
        <TR>
          <TD class=state align=right width="50%">Местонахождение&nbsp;</TD>
          <TD class=state width="50%">&nbsp;Жилой дом №2 </TD></TR>
        <TR>
          <TD class=state align=right width="50%">Чем занят&nbsp;</TD>
          <TD class=state width="50%">&nbsp;ничем </TD></TR>
        <TR>
          <TD class=state align=right width="50%">Образование&nbsp;</TD>
          <TD class=state width="50%">&nbsp;доктор 1-й категории </TD></TR>
        <TR>
          <TD class=state align=right width="50%">Обучение&nbsp;</TD>
          <TD class=state width="50%">&nbsp;нет </TD></TR>
        <TR>
          <TD class=state align=right 
          width="50%">Коммунальные&nbsp;услуги&nbsp;</TD>
          <TD class=state width="50%">&nbsp;<FONT 
            color=green>предоставляются</FONT> </TD></TR>
        <TR>
          <TD class=state align=right width="50%">Долг за коммун. 
          услуги&nbsp;</TD>
          <TD class=state width="50%">&nbsp;4.22 SAN </TD></TR>
        <TR>
          <TD class=state align=right width="50%">Ваш&nbsp;счет&nbsp;</TD>
          <TD class=state width="50%">&nbsp;0.00 USD </TD></TR>
        <TR>
          <TD class=state align=right width="50%">Ваши&nbsp;деньги&nbsp;</TD>
          <TD class=state width="50%">&nbsp;5.40 SAN 
    </TD></TR></TBODY></TABLE><BR></TD></TD><!---------><!----state----->
  <TR>
    <TD>
      <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=state align=right>&nbsp;Здоровье&nbsp;</TD>
          <TD class=state width="100%" height="100%">
            <TABLE class=normal id=health height="100%" width="87.58%">
              <TBODY>
              <TR>
                <TD class=percent 
            id=health_value>&nbsp;87.58%</TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD class=state align=right>&nbsp;Сытость&nbsp;</TD>
          <TD class=state width="100%" height="100%">
            <TABLE class=extreme id=replete height="100%" width=0.00%>
              <TBODY>
              <TR>
                <TD class=percent 
            id=replete_value>&nbsp;0.00%</TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD class=state align=right>&nbsp;Туалет&nbsp;</TD>
          <TD class=state width="100%" height="100%">
            <TABLE class=normal id=rest height="100%" width="54.55%">
              <TBODY>
              <TR>
                <TD class=percent 
            id=rest_value>&nbsp;54.55%</TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD class=state align=right>&nbsp;Душ&nbsp;</TD>
          <TD class=state width="100%" height="100%">
            <TABLE class=normal id=shower height="100%" width="73.65%">
              <TBODY>
              <TR>
                <TD class=percent 
            id=shower_value>&nbsp;73.65%</TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD class=state align=right>&nbsp;Сон&nbsp;</TD>
          <TD class=state width="100%" height="100%">
            <TABLE class=normal id=sleep height="100%" width="68.28%">
              <TBODY>
              <TR>
                <TD class=percent 
            id=sleep_value>&nbsp;68.28%</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR></TD></TR><!---------><!----business----->
  <TR>
    <TD>
      <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=state align=right width="50%">&nbsp;Всего вылечил 
          жителей&nbsp;</TD>
          <TD class=state width="50%">&nbsp;0 чел.&nbsp;</TD></TR>
        <TR>
          <TD class=state align=right width="50%">&nbsp;Общий процент 
          лечения&nbsp;</TD>
          <TD class=state width="50%">&nbsp;0 %&nbsp;</TD></TR>
        <TR>
          <TD class=state align=right width="50%">&nbsp;Скорость 
          лечения&nbsp;</TD>
          <TD class=state width="50%">&nbsp;1.8 %/час&nbsp;</TD></TR>
        <TR>
          <TD class=state align=right width="50%">&nbsp;Статус врача&nbsp;</TD>
          <TD class=state width="50%">&nbsp;отсутствует&nbsp;</TD></TR>
        <TR>
          <TD class=state align=right width="50%">&nbsp;Лицензия&nbsp;</TD>
          <TD class=state 
    width="50%">&nbsp;нет&nbsp;</TD></TR></TBODY></TABLE><BR></TD></TR><!----counter----->
  <TR vAlign=bottom>
    <TD>
      <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR vAlign=bottom>
          <TD align=right width="50%"><A href="http://www.wmobmen.com.ua/" 
            target=_blank><IMG height=31 
            alt="Обменный пункт WebMoney  в Украине" src="panel.files/88.gif" 
            width=88 border=0></A> </TD>
          <TD width="50%"><![email protected] COUNTEr-->
            <script language=JavaScript type=text/javascript><!--
d=document;var a='';a+=';r='+escape(d.referrer)
js=10//--></SCRIPT>

            <script language=JavaScript1.1 type=text/javascript><!--
a+=';j='+navigator.javaEnabled()
js=11//--></SCRIPT>

            <script language=JavaScript1.2 type=text/javascript><!--
s=screen;a+=';s='+s.width+'*'+s.height
a+=';d='+(s.colorDepth?s.colorDepth:s.pixelDepth)
js=12//--></SCRIPT>

            <script language=JavaScript1.3 type=text/javascript><!--
js=13//--></SCRIPT>

            <script language=JavaScript type=text/javascript><!--
d.write('<a href="http://top.mail.ru/jump?from=939206"'+
' target=_top><img src="http://d4.c5.be.a0.top.list.ru/counter'+
'?id=939206;t=55;js='+js+a+';rand='+Math.random()+
'" alt="Рейтинг@Mail.ru"'+' border=0 height=31 width=88/><\/a>')
if(11<js)d.write('<'+'!-- ')//--></SCRIPT>
            <NOSCRIPT><A href="http://top.mail.ru/jump?from=939206" 
            target=_top><IMG height=31 alt=Рейтинг@Mail.ru 
            src="panel.files/counter.gif" width=88 border=0></A></NOSCRIPT>
            <script language=JavaScript type=text/javascript><!--
if(11<js)d.write('--'+'>')//--></SCRIPT>
<!--/COUNTER--> 
</TD></TR></TBODY></TABLE></TD></TR><!---------></TBODY></TABLE></BODY></HTML>

Как я понял это фрейм вот этой страницы:

Код


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0029)http://www.sancity.ru/house2/ -->
<HTML><HEAD><TITLE>SanCity.ru - online игра нового поколения. Город.</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1251">
<META content="SanCity.ru - online игра нового поколения. Город." 
name=description>
<META content="SaCity, City, игра, game, online" name=keywords><LINK 
href="SanCity_ru -Стройка.files/style.css" type=text/css rel=stylesheet>
<script language=javascript src="SanCity_ru -Стройка.files/script.js">
   Oh-Oh-Oh. No JavaScript!!!
  </SCRIPT>

<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY onselectstart="javascript: return false;" bottomMargin=0 bgColor=#fefff2 
leftMargin=0 topMargin=0 
onload="load.style.visibility='hidden';game.style.visibility='visible';" 
rightMargin=0 onunload=Logout();>
<DIV id=load 
style="LEFT: 0px; VISIBILITY: visible; POSITION: absolute; TOP: 0px">
<script language=javascript>
 var loader = setInterval("Load()",100);
 load.style.top = (document.body.clientHeight - load.offsetHeight)/2;
 load.style.left = (document.body.clientWidth - load.offsetWidth)/2 - 200;
</SCRIPT>

<CENTER><IMG src="SanCity_ru -Стройка.files/loader.gif"> <BR>
<TABLE cellSpacing=3 cellPadding=0 width=400 border=0>
  <TBODY>
  <TR>
    <TD class=state width="100%" height="100%">
      <TABLE class=normal id=loading height="100%" width=0%>
        <TBODY>
        <TR>
          <TD class=percent 
id=done>&nbsp;0%</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
<DIV id=game style="VISIBILITY: hidden">
<TABLE cellSpacing=0 cellPadding=0 width="100%">
  <TBODY>
  <TR><!---game frame panel---><!---game frame panel--->
    <TD width=270 height=700><IFRAME marginWidth=0 marginHeight=0 
      src="SanCity_ru -Стройка.files/panel.htm" frameBorder=0 width=304 
      scrolling=yes height=700>Oh-Oh-Oh. No frames!!!
   </IFRAME></TD><!---game frame panel---><!---game frame panel--->
    <TD><!---------render------------>
      <TABLE height=700 width=700 
      background="SanCity_ru -Стройка.files/bg_2.jpg">
        <TBODY>
        <TR>
          <TD width="100%" height="100%"><!----objects-----><A 
            href="http://www.sancity.ru/house2/about.php"><IMG id=1 
            onmouseover=showInfo(this); title="Информация о жилом доме" 
            style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; Z-INDEX: 1; FILTER: ; LEFT: 329px; BORDER-LEFT: 0px; CURSOR: hand; BORDER-BOTTOM: 0px; POSITION: absolute; TOP: 454px" 
            onmouseout=hideInfo(this); 
            alt="<table border=0><tr align=center><td><p>Здесь можно ознакомиться с информацией о Жилом доме. Очень внимательно относитесь к вопросу заселения, так как в будущем это может повлиять на Ваше здоровье.<br><br>В первую очередь необходимо обратить внимание на состояние дома, посмотреть какие параметры он имеет. Очень важно, чтобы владелец дома вовремя его ремонтировал. Если любой из параметров дома будет меньше 70%, то для его жителей эта ситуация будет неблагоприятна. <br><br>Для примера возьмем параметр туалет. Если в доме этот параметр становится меньше 70% (данный процент относится ко всем параметрам), то жителям в некоторых случаях невозможно его посетить. Процент отказа будет равен 30%. Таким образом, чем меньше становится параметр дома, тем больше вероятность отказа для его жителей. Если параметр туалет опустится до 40%, то вероятность того, что Вам откажут - будет 60%, а вероятность удачного посещения - 40%. Если же параметр туалет будет 0%, то жители вообще не смогут его посещать.<br><br>При возникновении любых вопросов, связанных с ремонтом дома, обращайтесь к его владельцу.<br><br>В данном разделе можно посмотреть, насколько быстро в доме можно посещать туалет, душ и спальню. А также здесь есть информация о количестве свободных квартир на данный момент. <br><br><b>Для входа кликните по объекту. </b><br></td></tr></table></div>" 
            src="SanCity_ru -Стройка.files/houseinfo.gif" name=about> </A><A 
            href="http://www.sancity.ru/house2/job.php"><IMG id=2 
            onmouseover=showInfo(this); title="Работа для строителей" 
            style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; Z-INDEX: 1; FILTER: ; LEFT: 456px; BORDER-LEFT: 0px; CURSOR: hand; BORDER-BOTTOM: 0px; POSITION: absolute; TOP: 467px" 
            onmouseout=hideInfo(this); 
            alt="<table border=0><tr align=center><td><p>Любой житель города может работать строителем. Для этого не нужно получать специального образования. Итак, в этом разделе любой может заработать немного денег.<br><br>Заявки на выполнение работ в доме выставляет его владелец. Работа может быть 2-х видов. Первый - это строительство дома. Второй - ремонт дома. Если на стройке можно работать только в начале, то заниматься ремонтом можно регулярно.<br><br>В интересах владельца периодически выставлять заявки на ремонт. Ремонтируя дом, владелец повышает его параметры и тем самым создает комфорт для жителей. <br><br>Для того, чтобы приступить к работе, необходимо нажать на кнопку за работу. Далее вы увидите условия работы (время выполнения заказа и зарплату, которую получите за отработанную смену). Если Вас все устраивает, то нажимаете на кнопку Принять заказ и приступаете к работе.<br><br><b>Для входа кликните по объекту. </b><br></td></tr></table></div>" 
            src="SanCity_ru -Стройка.files/remont.gif" name=job> </A><A 
            href="http://www.sancity.ru/house2/stat.php"><IMG id=3 
            onmouseover=showInfo(this); title="Отдел владельца жилого дома" 
            style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; Z-INDEX: 1; FILTER: ; LEFT: 857px; BORDER-LEFT: 0px; CURSOR: hand; BORDER-BOTTOM: 0px; POSITION: absolute; TOP: 458px" 
            onmouseout=hideInfo(this); 
            alt="<table border=0><tr align=center><td><p>Доступ в данный раздел имеет только владелец. Здесь он может управлять домом и просматривать статистику, которая касается работы данного жилого дома.<br><br><b>Для входа кликните по объекту. </b><br></td></tr></table></div>" 
            src="SanCity_ru -Стройка.files/otdel.gif" name=worker> </A><A 
            href="http://www.sancity.ru/house2/apartment.php"><IMG id=4 
            onmouseover=showInfo(this); title="Вход в крартиру" 
            style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; Z-INDEX: 1; FILTER: ; LEFT: 725px; BORDER-LEFT: 0px; CURSOR: hand; BORDER-BOTTOM: 0px; POSITION: absolute; TOP: 452px" 
            onmouseout=hideInfo(this); 
            alt="<table border=0><tr align=center><td><p>После того, как житель поселился в доме, он может заходить в свою квартиру.<br><br>В квартире можно покушать, поспать, сходить в туалет и принять душ. Одним словом, поднять все жизненно важные параметры.<br><br><b>Для входа кликните по объекту. </b><br></td></tr></table></div>" 
            src="SanCity_ru -Стройка.files/enter.gif" name=sale> </A><A 
            href="http://www.sancity.ru/house2/rent.php"><IMG id=5 
            onmouseover=showInfo(this); title="Аренда квартиры в жилом доме" 
            style="BORDER-RIGHT: 0px; BORDER-TOP: 0px; Z-INDEX: 1; FILTER: ; LEFT: 595px; BORDER-LEFT: 0px; CURSOR: hand; BORDER-BOTTOM: 0px; POSITION: absolute; TOP: 466px" 
            onmouseout=hideInfo(this); 
            alt="<table border=0><tr align=center><td><p>Перед тем, как заселяться в дом, мы рекомендуем посетить раздел Информация о доме.<br><br>Итак, если вы ознакомлены со всеми условиями проживания и хотите заселиться в дом, то Вам необходимо перейти в данный раздел. Здесь вы увидите краткую информацию о доме. Ниже находится кнопка Заселиться. После ее нажатия Вам будет предоставлена квартира. И с этого момента на Ваш счет начнет начисляться долг за коммунальные услуги. Этот долг необходимо регулярно погашать.<br><br>Если Вы живете в этом доме и хотите из него выселиться, то Вам снова необходимо будет посетить данный раздел. Перед выселением, необходимо погасить долг за коммунальные услуги, в противном случае выселиться будет невозможно. При выселении житель может погасить данный долг прямо у себя в квартире.<br><br><b>Для входа кликните по объекту. </b><br></td></tr></table></div>" 
            src="SanCity_ru -Стройка.files/pereezd.gif" name=lease> </A><!----objects-----></TD></TR></TBODY></TABLE><!----------render-----------></TD></TR></TBODY></TABLE><!----info-----><!----info----->
<TABLE class=info id=info cellSpacing=0 cellPadding=0>
  <TBODY>
  <TR align=middle>
    <TD class=infoHead><B id=infoHead></B></TD></TR>
  <TR>
    <TD class=infoText id=infoText></TD></TR></TBODY></TABLE><!----info-----><!----info-----><!----map-----><!----map----->
<TABLE class=map id=map cellSpacing=0 cellPadding=0>
  <TBODY>
  <TR>
    <TD colSpan=5>
      <TABLE cellSpacing=0 cellPadding=0 width="100%">
        <TBODY>
        <TR>
          <TD align=middle width="100%"><B><SPAN id=mapHead></SPAN></B></TD>
          <TD align=right><IMG title=close onclick=flipMap(); 
            src="SanCity_ru -Стройка.files/x.png"> </TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD><IMG onmousemove=moveMapHead(this); 
      onmouseover="this.style.filter='';showMapHead(this);" 
      title="Район строится" style="FILTER: Alpha(opacity=65)" 
      onmouseout="this.style.filter='Alpha(opacity=80)';hideMapHead(this);" 
      alt="В этом районе пока ничго нет." 
      src="SanCity_ru -Стройка.files/region5.png" name=5></TD>
    <TD><IMG onmousemove=moveMapHead(this); 
      onmouseover="this.style.filter='';showMapHead(this);" 
      title="Район: Северные холмы" style="FILTER: Alpha(opacity=65)" 
      onmouseout="this.style.filter='Alpha(opacity=80)';hideMapHead(this);" 
      alt="В этом районе находится:<br> - Северное кладбище <br> " 
      src="SanCity_ru -Стройка.files/region3.png" name=3></TD>
    <TD><IMG onmousemove=moveMapHead(this); 
      onmouseover="this.style.filter='';showMapHead(this);" 
      title="Район строится" style="FILTER: Alpha(opacity=65)" 
      onmouseout="this.style.filter='Alpha(opacity=80)';hideMapHead(this);" 
      alt="В этом районе пока ничго нет." 
      src="SanCity_ru -Стройка.files/region4.png" name=4></TD></TR>
  <TR>
    <TD><IMG onmousemove=moveMapHead(this); 
      onmouseover="this.style.filter='';showMapHead(this);" 
      title="Район строится" style="FILTER: Alpha(opacity=65)" 
      onmouseout="this.style.filter='Alpha(opacity=80)';hideMapHead(this);" 
      alt="В этом районе пока ничго нет." 
      src="SanCity_ru -Стройка.files/region1.png" name=1></TD>
    <TD><IMG onmousemove=moveMapHead(this); onmouseover=showMapHead(this); 
      title="Район: Центр" onmouseout=hideMapHead(this); 
      alt="В этом районе находится:<br> - Жилой дом №1<br> - Больница им. Мечникова <br> - Университет им. Шевченко<br> - Банк Империал <br> - Ферма Золотой колос<br> - Мельница Старый мельник <br> - Пекарня Сдобный хлеб" 
      src="SanCity_ru -Стройка.files/region6.png" name=6></TD>
    <TD><IMG onmousemove=moveMapHead(this); 
      onmouseover="this.style.filter='';showMapHead(this);" 
      title="Район: Молодежный" style="FILTER: Alpha(opacity=65)" 
      onmouseout="this.style.filter='Alpha(opacity=80)';hideMapHead(this);" 
      alt="В этом районе находится:<br> - Жилой дом №4<br>- Жилой дом №5" 
      src="SanCity_ru -Стройка.files/region2.png" name=2></TD></TR></TBODY></TABLE><!----map-----><!----map-----><!--
<table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#EDF0F0">
  <tr><td></td></tr>
</table>
--></DIV></CENTER></BODY></HTML>

p0s0l

Дата 31.7.2005, 23:49 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

У меня работает...

Код

uses MSHTML

procedure TForm1.Button1Click(Sender: TObject);
begin
  wb1.Navigate('c:\1.htm');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  doc : IHTMLDocument2;
  el : IHTMLElement;
begin
  doc := wb1.Document as IHTMLDocument2;
  el := doc.all.item('citytime', EmptyParam) as IHTMLElement;
  Label1.Caption := el.innerHTML;
end;

(1.htm - это первый htm, который ты привел)
Добавлено @ 23:52

Цитата(Zlo @ 31.7.2005, 22:53)

Хм... интересно но время показывается то которое установлено на компьюторе а не то которое показывает скрипт!

Ааа

... Я просто подумал, что скрипт показывает системное время smile

...

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

С уважением, г-н Посол.

Zlo

Дата 1.8.2005, 00:07 (ссылка)

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

Загрузка ...

Бывалый

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

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

p0s0l
Так пасиба огромное но у меня еще будут вопросы!
С этим проде разобрался smile

p0s0l

Дата 1.8.2005, 00:30 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Цитата(Zlo @ 31.7.2005, 23:31)

Как я понял это фрейм вот этой страницы:

Со фреймами нужно делать типа того (если в браузере открываешь страницу из инета к примеру...):

Код

procedure TForm1.Button2Click(Sender: TObject);
var
  el, doc, frame : OleVariant;
  i : integer;
  
begin
  doc := WebBrowser1.OleObject.Document;
  for i := 0 to doc.frames.Length-1 do
  begin
    frame := doc.frames.item(i).document;
    el := frame.getElementById('citytime');
    if IDispatch(el) <> nil then
    begin
      Label1.Caption := el.innerHtml;
      Break;
    end;
  end;
end;

Если знаешь № фрейма (а лучше имя фрейма, которое можно узнать, например, если имеешь "главный" frameset html), то можно и без цикла сделать:

Код

procedure TForm1.Button2Click(Sender: TObject);
var el, frame : OleVariant;
begin
  frame := WebBrowser1.OleObject.Document.frames.item('panelFrame').document;
  el := frame.getElementById('citytime');
  Label1.Caption := el.innerHtml;
end;

Добавлено @ 00:31
А разобрался уже ? Ну ладно smile

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

С уважением, г-н Посол.

Zlo

Дата 1.8.2005, 06:39 (ссылка)

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

Загрузка ...

Бывалый

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

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

p0s0l
Нужно! Спасибо!

Zlo

Дата 17.8.2005, 01:59 (ссылка)

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

Загрузка ...

Бывалый

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

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

Есть в нете страничка: http://www.sancity.ru/
Вопрос в следеющем

По нажатию на кнопочку войти даные отправляются методом POST но вмете с параметрами login=&pass=&
отправляются еще и x=79&y=14. Тоесть окончательный вид данных в пост запросе такой:
login=&pass=&x=79&y=14
Скажите как узнать значения X и Y?

<Spawn>

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

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Модератор: Пожалуйста, один топик - один вопрос.

Тема закрыта.

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

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