Чтение файла с сайта

[grom333]

Приветствую. Что я не так делаю? Хочу читать число из файла *.txt лежащего на сайте. Права полностью на все открыл.
Сам код:

var
f:textfile;
s:string;
begin
 AssignFile ( F, 'http://gromdel.net/tests.txt');
 reset(F);
 read(f,s) ;
 showmessage(s);
 CloseFile(F);

Из под браузера открывается под этим адресом. Ну пробовал и www.
В чем хитрость?

[Человек_Борща]

Что я не так делаю?

AssignFile ( F, 'http://gromdel.net/tests.txt');

В чем хитрость?

Скачать файл при помощи HTTP. Для этого есть Indy или Synapse библиотеки. А далее со скаченныйм файлом хоть на ушах стойте.

[grom333]

А кроме? Например по пути FTP?

[Человек_Борща]

Дахоть через SSL. Только так не делайте:

AssignFile ( F, 'http://gromdel.net/tests.txt');

А то взрываете мозг себе и другим.

AssignFile предпологает нахождение файла на ПК. А не на удалённом пути.
Вы должны скачать файл на ПК, и там уже на ушах стоять.

И синапс и инди поддержмвают и http и ftp и сотни чего-то ещё.

[valterg]

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

А кроме? Например по пути FTP?

При чем здесь пути? Функции AssignFile и read не предназначены для чтения по ссылкам.

[grom333]

Действительно, файл нужно скачать, вот что получилось:

procedure TForm1.sButton2Click(Sender: TObject);
begin
URLDownloadToFile (nil,'http://gromdel.net/tests.txt','tests.txt', 0, nil);
end;

procedure TForm1.sButton1Click(Sender: TObject);
var
f:textfile;
s:string;
begin
 AssignFile ( F, 'tests.txt');
 reset(F);
 read(f,s) ;
 showmessage(s);
 CloseFile(F);
end;


end.

[FaTaL]

Указывайте лучше полные (относительные) пути к файлу, а то неизвестно куда он скачается и потом неизвестно откуда его читать.