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

[Stas]

Добрый день.

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

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

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

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

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

1. uses httpsend;
2. 
   
3. procedure Button1Click(Sender: TObject);
4. var
5. s: TMemoryStream;
6. begin
7. s := TMemoryStream.Create;
8. try
9. HttpGetText('http://www.infovalutar.ro/bnr/YYYY/MM/DD/EUR', s);
10. s.Position := 0;
11. Memo1.Lines.LoadFromStream(s);
12. finally
13. s.Free;
14. end;
15. 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 и вставляете куда нужно.

 

[Stas]

Avengerz13, спасибо то что надо