Тема: IniFiles
Показать сообщение отдельно
  #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)
Ответить с цитированием