Чтение INI файла с WEB сервера и загрузка данных в ValueListEditor

[alekseih09]

Приветствую уважаемые! Прошу помощи. Суть такова: Есть сайт, где лежит INI файл и программа, которая должна считать этот INI и вывести данные в ValueListEditor. При нахождении INI в каталоге с программой всё получается, а вот через интернет никак. Я понимаю, что может это и пустяк для многих, но не для меня, только учусь. Прошу помощи...
Вот кусок кода:

  My:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'file.ini');
  for i:= 1 to My.ReadInteger('Row','Count',0) - 1 do
  begin
  Name1:=My.ReadString('Channel','Name'+inttostr(i),'');
  Url1:=My.ReadString('Channel','Url'+inttostr(i),'');
  ValueListEditor1.InsertRow(Name1,Url1,true);

[Alex11223]

Так возьмите любой HTTP клиент (Indy, Synapse) и сохраните в файл.

[alekseih09]

Сообщение от Alex11223

Так возьмите любой HTTP клиент (Indy, Synapse) и сохраните в файл.

Вы наверное не правильно меня поняли, а скорее я не так задал вопрос. Лишние файлы не нужны. Загружать и сохранять в файл мне не нужно. Нужно удалённо открыть, считать, поместить считанное в нужное и закрыть. Ну это как вы запускаете программу у которой есть конфигурационный INI, который находится рядом с исполняемым файлом, соответственно программа запускается с теми параметрами, которые указаны в INI. Так вот мне нужно, чтоб этот INI находился в сети (например на сайте), а не рядом и программа соответственно читала и выводила содержимое удалённого INI куда нужно, в моём случае это ValueListEditor.
Спасибо, что откликнулись!

[Alex11223]

Ну GET запрос с помощью HTTP клиента вам все равно сделать надо, полученную строку конечно можно и не сохранять в файл.

Но TIniFile (и даже TMemIniFile) вроде бы умеет работать только с файлами, других стандартных классов для работы с ini в Дельфи вроде бы нет.
Можно просто временный файл (в temp папке ОС) создать.

[7in]

uses IdHTTP;

. . .

function GetURLFile(const Addr: String): String;
begin
  with TIdHTTP.Create(nil) do
  begin
    with Request do
    begin
      Accept := 'text/html, */*';
      AcceptLanguage := 'ru';
      AcceptCharSet := 'windows-1251';
      UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';
      CacheControl := 'no-cache';
    end;
    Result := Get(Addr);
    Free
  end
end;

. . .
  ShowMessage(GetURLFile('http://yandex.ru'));
. . .

[7in]

А дальше уже самостоятельно нужно парсить строку.

[alekseih09]

Спасибо за помощь всем, кое что пригодилось. Сейчас с кодировками разберусь и поделюсь с вами своим решением. Сейчас кракозябры вместо русского текста выводятся в ValueListEditor.

Вот как я решил свою проблему:
Бросил на форму Memo1 в свойствах visible = False
А от кракозябр избавился создав на сайте file.php с которого и читал нужные мне данные

  Memo1.Lines.text:=idHTTP1.Get('тут адрес сайта/file.php');//Загружаем file.php в Memo1
  Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + 'file.txt');//Создаём файл file.txt и заносим текст из Memo1
  My:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'file.txt');
  for i:= 1 to My.ReadInteger('Row','Count',0) - 1 do
  begin
  Name1:=My.ReadString('Channel','Name'+inttostr(i),'');
  Url1:=My.ReadString('Channel','Url'+inttostr(i),'');
  ValueListEditor1.InsertRow(Name1,Url1,true);
  IdHTTP1.Disconnect;
  end;
   DeleteFile(ExtractFilePath(Application.ExeName) + 'file.txt');//Удаляем созданный file.txt
  end;

[7in]

alekseih09, а кто говорил, что файл не надо сохранять на диск?

[Alex11223]

GUI-то зачем мучить ради сохранения файла? Взяли б хотя бы TStringList.

И вместо папки программы я бы использовал темп папки ОС (есть функции для их получения).

И зачем IdHTTP1.Disconnect в цикле? (да и вообще вроде бы не нужен он)

[alekseih09]

Сообщение от 7in

alekseih09, а кто говорил, что файл не надо сохранять на диск?

Так он после выполнения удаляется. Следов нет.

Сообщение от Alex11223

GUI-то зачем мучить ради сохранения файла? Взяли б хотя бы TStringList.

И вместо папки программы я бы использовал темп папки ОС (есть функции для их получения).

И зачем IdHTTP1.Disconnect в цикле? (да и вообще вроде бы не нужен он)

IdHTTP1.Disconnect в цикле вы правы не нужен. А вообще цель моя достигнута, пусть и немного другим путём. А с TStringList попробую.

P.S. В каждой трудности вижу возможности. Кстати, могу предложить свою работу, над которой сейчас работаю для тестов и на ваш суд. Очень хочется услышать мнение профессионалов.