Загрузка файлов с инет.

← →
djaUser (2008-04-14 14:58) [0]

Подскажите пожалуйста, в какую сторону копать, необходимо организовать закачку файлов с сервера по хттп наверное.
Суть такая, что на сервере (стандартный юникса хост с пхп и т.п.) лежат файлы. Юзер в проге должен ввести логин и пасс и получает список файлов, выбирает и прога качает что надо.
Опыта в данной теме никакого.
Подскажите какие библиотеки желательно использовать или бебехи того же Indy и можно ли на сервере php скрипт сделать что бы проверял логин и отдавал нужный файл.
Извините, если каламбур написал, только пытаюсь разобраться..

← →
Dennis I. Komarov © (2008-04-14 15:10) [1]

1. До лампочки какой у Вас там сервер
2. Писать вообще ничего не надо. Уже все давно написали.
3. Надо настроить Http-сервер

← →
djaUser (2008-04-14 15:11) [2]

Допустим с проги я вызываю скрипт примерно так:
http://..../readFile.php?file=file.rar

Допустим php скрипт будет возвращать что-то типа:

header("Content-Type: application/rar");
header("Content-Disposition: attachment; filename=file.rar");
readfile("file.rar");

как этот файл в моей проге и получить сразу?

← →
djaUser (2008-04-14 15:14) [3]

Dennis I. Komarov, хм... если вас не затруднит можно немножко подробнее что такое "Http-сервер" и что заключается в его настройке..

Это то, у кого делаешь запрос http://
А теперь в библиотеку

← →
djaUser (2008-04-14 16:00) [5]

вообщем пока читаю файл так:

function GetInetFile (const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
hURL := InternetOpenURL(hSession, PChar(fileURL), nil,0,0,0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;

подскажите пожалуйста, влияет ли скорость закачки на выбранный метод?
если да, то что посоветуете для ускорения...

Загрузка файлов с инет. Найти похожие ветки