Вопрос Импорт версии с сервера/url

Stas

Участник
Добрый день.

Подскажите, может есть готовое решение или может кто поможет.
Надо чтоб версия бралась с текстового файла, пример так:

#define AppVersion "(вывод данных с http://test.ru/version.txt)"

на самом же сайте в файле version.txt только одна строчка с текстом 1.0

Можно подобное реализовать ?

Нашел что-то такое но не понятно как полученную цифры вызвать в верхний параметр
  1. uses httpsend;

  2. procedure Button1Click(Sender: TObject);
  3. var
  4. s: TMemoryStream;
  5. begin
  6. s := TMemoryStream.Create;
  7. try
  8. HttpGetText('http://www.infovalutar.ro/bnr/YYYY/MM/DD/EUR', s);
  9. s.Position := 0;
  10. Memo1.Lines.LoadFromStream(s);
  11. finally
  12. s.Free;
  13. end;
  14. end;
 
Последнее редактирование:

Avengerz13

Участник
Есть решение от TLama:
В данном примере использована WinHttpRequest object.
Код:
[_Code]
function DownloadFile(const AURL:string;var AResponse:string): Boolean;
var
  WinHttpRequest: Variant;
begin
  Result :=True;
  try
    WinHttpRequest := CreateOleObject('WinHttp.WinHttpRequest.5.1');
    WinHttpRequest.Open('GET', AURL,False);
    WinHttpRequest.Send;
    AResponse := WinHttpRequest.ResponseText;
  except
    Result :=False;
    AResponse := GetExceptionMessage;
  end;
end;

procedure InitializeWizard;
var
  S:string;
begin
  if DownloadFile('http://www.example.com/versioninfo.txt', S)then
    MsgBox(S, mbInformation, MB_OK)
  else
    MsgBox(S, mbError, MB_OK)
end;
Можно попробовать еще использовать InnoTools Downloader. Плагин закачивает текстовый файл в определенное место потом оттуда же берется текст для отображение.

Для отображения текста используйте функцию LoadStringFromFile:
Код:
var
VersionStr: AnsiString;

LoadStringFromFile(ExpandConstant('{tmp}')+'\versioninfo.txt', VersionStr);
Далее берете значение VersionStr и вставляете куда нужно.
 
Сверху