Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.04.2012, 00:38
metra52 metra52 вне форума
Прохожий
 
Регистрация: 04.05.2011
Сообщения: 20
Версия Delphi: Delphi 7 Lite
Репутация: 10
По умолчанию IniFiles

Вобщем такой вопрос, у меня на сервере есть файл записанный как Ini файл, тоесть
Код:
[update]
ver=1.0.1.11
я получаю контент файла через IdHTTP1.Get
как мне реализовать получение значения блока ver
ну вот как я попытался сделать
Код:
try
    Upd:= IdHTTP1.Get('http://funfm.ru/version'); // Upd переменная в которую помеситм содержимое файла с версией
  except
    // Если version недоступен, тогда сообщаем об этом и разъединяемся
    MessageBox(0, 'Сервер недоступен! Попробуйте позже.', 'Ошибка', MB_ICONError);
    IdHTTP1.Disconnect;
    Exit;
  end;
     Updt:=TInifile.Create(Upd);
    Updver:=PAnsiChar(AnsiString(Updt.ReadString('update','ver','')));
  if Updver = vers then
    MessageBox(0, 'У вас последняя версия', 'Информация', MB_ICONInformation)
  else
    MessageBox(0, 'Не получилось', 'Упс', MB_ICONError);
__________________
А это мое скромное радио... ((:FunFM)
Ответить с цитированием
  #2  
Старый 16.04.2012, 00:44
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

И в чём проблема?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 16.04.2012, 00:47
metra52 metra52 вне форума
Прохожий
 
Регистрация: 04.05.2011
Сообщения: 20
Версия Delphi: Delphi 7 Lite
Репутация: 10
По умолчанию

в том что
Цитата:
Updt:=TInifile.Create(Upd);
Updver:=PAnsiChar(AnsiString(Updt.ReadString('upda te','ver','')));
это не срабатывает
__________________
А это мое скромное радио... ((:FunFM)
Ответить с цитированием
  #4  
Старый 16.04.2012, 00:57
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Как я понимаю, версия Дельфи юникодная, а Updver - AnsiString? Ну и почему не использовать просто String без переопределений?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 16.04.2012, 01:09
metra52 metra52 вне форума
Прохожий
 
Регистрация: 04.05.2011
Сообщения: 20
Версия Delphi: Delphi 7 Lite
Репутация: 10
По умолчанию

В переменной Updver вообще пусто, так как эта Updt:=TInifile.Create(Upd); функция похоже не работает, тут поидее вместо Upd надо указать адрес, а вот как без нее обойтись...
__________________
А это мое скромное радио... ((:FunFM)
Ответить с цитированием
  #6  
Старый 16.04.2012, 01:16
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

А при чём тут:
Код:
Updt:=TInifile.Create(Upd);
здесь должен буть указан файл ini, к примеру project1.ini, откуда и нужно прочитать информацию.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #7  
Старый 16.04.2012, 01:17
metra52 metra52 вне форума
Прохожий
 
Регистрация: 04.05.2011
Сообщения: 20
Версия Delphi: Delphi 7 Lite
Репутация: 10
По умолчанию

Так вот в том и прикол, что этот файл у меня на веб сервере
__________________
А это мое скромное радио... ((:FunFM)
Ответить с цитированием
  #8  
Старый 16.04.2012, 01:20
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Я не знаю, что там получается по запросу Get, но вернуться должно имя файла.ini. Только такие файлы и можно открыть используя TInifile.Create.
Правильнее сказать, не обязательно ini, но соответствующие обязательной структуре.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.

Последний раз редактировалось angvelem, 16.04.2012 в 01:25.
Ответить с цитированием
  #9  
Старый 16.04.2012, 09:11
icWasya icWasya вне форума
Местный
 
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию

Попробуй использовать TMemInifile
Ответить с цитированием
  #10  
Старый 16.04.2012, 09:37
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

у меня http://funfm.ru/version возвращает:
Цитата:
1.1.1.16
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:34.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter