Форум: "Сети";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
ВнизUpload файлы по ХТТП протоколу Найти похожие ветки
← →
Saint_Byte (2004-10-29 13:01) [0]Прошу помощи, как мне это реализовать , может кто знает под это дело специальный компонент ?
Дайте хоть линку , линки найденые яндексом я читал (не дурак)!!!
да и заметьте какой у меня софт
← →
Reindeer Moss Eater © (2004-10-29 13:08) [1]www.nevrona.com/indy
← →
Карелин Артем © (2004-10-29 13:58) [2]Torry.net Гы-Гы
← →
hooch © (2004-10-29 14:05) [3]я так качал
// инициализация WinInet
ShowStatus("Инициализация...");
hInet := InternetOpen(PAnsiChar(Application.ExeName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if hInet <> nil then
try
// открытие сессии
ShowStatus("Соединение...");
hConnect := InternetConnect(hInet, PChar(Url), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
if hConnect <> nil then
try
// открытие запроса
hRequest := HttpOpenRequest(hConnect, PChar("POST"), PChar(ObjectName), nil, nil, nil, INTERNET_FLAG_KEEP_CONNECTION, 0);
if hRequest <> nil then
try
ShowStatus("Отправка запроса...");
if HttpSendRequest(hRequest, PChar(Header), Length(Header), PChar(Query), Length(Query)) then
begin
dwIndex := 0;
dwBufferLen := 1024;
GetMem(Buffer, dwBufferLen);
try
// запрос размера файла
if HttpQueryInfo(hRequest, HTTP_QUERY_CONTENT_LENGTH, Buffer, dwBufferLen, dwIndex) then
begin
Size := StrToInt(StrPas(Buffer));
// чтение файла
ShowStatus("Загрузка данных...");
while true do
begin
if InternetReadFile(hRequest, @Data, SizeOf(Data), BytesToRead) and (BytesToRead > 0) then
AStream.Write(Data[0], BytesToRead)
else
Break;
ShowProgress(0, Size, AStream.Size);
end;
// проверка размера скаченого файла
if Size <> AStream.Size then
raise Exception.Create("Ошибочный размер файла")
else
ShowProgress(0, Size, AStream.Size);
end
else
raise Exception.Create("Ошибка получения размера файла")
finally
FreeMem(Buffer, dwBufferLen);
end;
end
else
RaiseLastOSError;
finally
InternetCloseHandle(hRequest);
end;
finally
InternetCloseHandle(hConnect);
end
else
RaiseLastOSError;
finally
InternetCloseHandle(hInet);
end
else
RaiseLastOSError;
← →
hooch © (2004-10-29 14:08) [4]в Indy вроди заморочки есть с работой через прокси, пробовать не стал, сделал так
← →
Saint_Byte (2004-10-29 19:45) [5]Ключевое слово тут UPLOAD , тобишь загрузка на сервер !!!
На торри нет был компанетов не нашел .
А вот инди оно вроде только под новые делфы . А меня 3ая =(((
← →
Reindeer Moss Eater © (2004-10-31 14:12) [6]И что?
*.pas файлы вдруг стали несовместимы с блокнотом или редактором IDE?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.039 c