Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.05.2015, 17:16   #11
Stanislav
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
 
Регистрация: 29.09.2007
Сообщений: 1,824
По умолчанию

Цитата:
Сообщение от beegl Посмотреть сообщение
понимает только ipconfig/all (Win XP SP3)

ну вы чего!! а если внимательно посмотреть на скриншот не видите когда аренда выдана? то что не принимает такую команду говорит о том что у вас скорее всего не 7, так или иначе вы же могли глазами пробежаться и поискать Аренду адреса... сессия у вас с 10.20:45 утра
Я часть той силы, что вечно хочет зла, но вечно совершает благо..

Последний раз редактировалось Stanislav; 08.05.2015 в 17:21.
Stanislav вне форума Ответить с цитированием
Старый 08.05.2015, 17:44   #12
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
А какая по вашему инфа его интересует?
Я думал что речь идет о сессиях сайтов, которые открыты в браузере )
Ну теперь понятно что речь идет о работе самого роутера.
Цитата:
Эта прога (Mobile Broadband Manager ) под мой модем Pantech UML295 показывает время так
А это может означать что программа как-то у модема это дело запрашивает. Не?
Не в винде, а именно у модема. Через телнет например.
I'm learning to live...

Последний раз редактировалось Stilet; 08.05.2015 в 17:46.
Stilet вне форума Ответить с цитированием
Старый 08.05.2015, 19:49   #13
Stanislav
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
 
Регистрация: 29.09.2007
Сообщений: 1,824
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Я думал что речь идет о сессиях сайтов, которые открыты в браузере )
Ну теперь понятно что речь идет о работе самого роутера.

А это может означать что программа как-то у модема это дело запрашивает. Не?
Не в винде, а именно у модема. Через телнет например.
да нафига ему это надо телнет этот, он как получил ip поставил себе отсечку времени и отдает ее своему софту я так понял это софт от модема родной. автору уже сказал как сделать, на дельфях выполнить команду распарсить забрать дату отсчитывать 15 строк кода максимум
Я часть той силы, что вечно хочет зла, но вечно совершает благо..
Stanislav вне форума Ответить с цитированием
Старый 08.05.2015, 19:49   #14
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,451
Хорошо

Цитата:
Сообщение от Stilet Посмотреть сообщение
А это может означать что программа как-то у модема это дело запрашивает.
прикольно, не знал, .. а как же теперь программно узнать Аренду)
beegl вне форума Ответить с цитированием
Старый 08.05.2015, 20:26   #15
Stanislav
Квадрокоптерист
Участник клуба Подтвердите свой е-майл
 
Регистрация: 29.09.2007
Сообщений: 1,824
По умолчанию

Цитата:
Сообщение от beegl Посмотреть сообщение
прикольно, не знал, .. а как же теперь программно узнать Аренду)
никак, тебе чем не нравится самому эту аренду посмотреть? через дельфи не могешь вызвать команду?

Код:
ShellExecute(handle, nil, 'cmd.exe', PCHar('ipconfig /all'),nil, SW_SHOW);
распарсить результат и получить решение? самое точное замечу
Я часть той силы, что вечно хочет зла, но вечно совершает благо..

Последний раз редактировалось Stanislav; 08.05.2015 в 20:31.
Stanislav вне форума Ответить с цитированием
Старый 08.05.2015, 20:52   #16
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,451
По умолчанию

Цитата:
Сообщение от Stanislav Посмотреть сообщение
Код:
ShellExecute(handle, nil, 'cmd.exe', PCHar('ipconfig /all'),nil, SW_SHOW);
распарсить результат и получить решение? самое точное замечу
нет результата, такой отчёт .. есть в CnPack с командной строкой компонент CnConsole, ща посмотрю. А пока, только такой отчёт)

Нашел, то, что надо. Если получится, сообщу) .. LMDShellConsoleView


Последний раз редактировалось beegl; 08.05.2015 в 21:02.
beegl вне форума Ответить с цитированием
Старый 08.05.2015, 21:11   #17
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Чьерт побьери, я все вспоминал, де же я этот параметр видел...
И вспомнил. В верке реестра HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/ Есть список интерфейсов, в которые есть параметры ObtainedTime. И походу отсюда и берется инфа о времени:
Безымянный.jpg
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 09.05.2015, 17:14   #18
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,451
По умолчанию

Пока не реализовал время). .. В реестре ничего не нашел, через командную пробую. Извиняюсь за офф, как отобразить в Label1.Caption данные - после этого (L¨õýôð ÿþûº¢õýð . . . . . . . . . - так показывает в мемо1 строку Аренда (кодировки все использовал, РУС текст не понимает). И с помощью функции нашел ту строку, но там время и дата, как бы его вытащить Label1.Caption?. Пока другого алгоритма не нашел(



Код:
procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do
    begin
      if AnsiPos('LЁхэфр яюыєўхэр', Memo1.Lines[i])<>0 then  //Нужный_Текст
        begin
          Caption:='Найдено в строке ?'+IntToStr(i); //Найдено в строке
          break;
        end;
    end;
end;
end.
А в реестре время не нашел, только какой-то IP, может из-за того, что у меня Win XP SP3, и эта инфа где-то не там)


Последний раз редактировалось beegl; 09.05.2015 в 17:16. Причина: add IMG
beegl вне форума Ответить с цитированием
Старый 09.05.2015, 18:16   #19
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
в реестре время не нашел
Дак надо найти сначала интерфейс нужны, а потом уже смотреть его параметры )
А ты похоже другой какой-то интерфейс открыл.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 09.05.2015, 19:10   #20
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,451
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Дак надо найти сначала интерфейс
Код:
HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Services/Tcpip/Parameters/Interfaces/
все под-ветки там просмотрел и не нашел

Последний раз редактировалось beegl; 09.05.2015 в 19:22.
beegl вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверка наличия соединения с интернетом. Rockot БД в Delphi 5 08.09.2014 16:36
Проверка соединения с интернетом 2. ZeitGeist7 Работа с сетью в Delphi 5 02.02.2012 14:59
Проверка соединения с интернетом по таймеру Ёжик в тумане Общие вопросы Delphi 2 22.10.2011 11:19
Проверка соединения с интернетом. Проблема Djem1991 Работа с сетью в Delphi 12 10.06.2010 22:02
Проверка соединения с интернетом. boostman Работа с сетью в Delphi 4 19.02.2009 12:05