Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.04;
Скачать: CL | DM;

Вниз

Скачать файлы из Интернета   Найти похожие ветки 

 
Novichok_new ©   (2007-02-16 08:49) [0]

Наверняка этот вопрос часто задавался, но, стыдно признаться, я даже не знаю – как сформулировать запрос в поисковике, чтобы найти ответ на вопрос:
На сайте в каталоге: «http://www.sayt.ru/katalog/» периодически выкладываются нужные мне файлы. Для доступа к этому каталогу требуется войти с определённым логином и паролем. Мне необходимо проверить – есть ли доступ в Интернет на данной машине, и, соответственно, скачать файлы. Что мне нужно искать? (функции, процедуры)


 
megabyte ©   (2007-02-16 09:43) [1]

Рюхать протоколы HTTP и/или FTP. Можно юзать компоненты Indy.


 
Elen ©   (2007-02-16 09:56) [2]


> Novichok_new ©   (16.02.07 08:49)

... или еще через winsock.


 
Elen ©   (2007-02-16 09:57) [3]


> Elen ©   (16.02.07 09:56) [2]

Ой ошибочка - через WinInet, хотела сказать :)


 
Novichok_New ©   (2007-02-16 12:17) [4]

Спасибо! , нашёл:
uses Wininet;

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;

Но как быть с логином и паролем?


 
novill ©   (2007-02-16 12:52) [5]

> [4] Novichok_New ©   (16.02.07 12:17)

А как он хранится?


 
novill ©   (2007-02-16 12:54) [6]

Если это http, можно отправь логин и пароль в http запросе.


 
novill ©   (2007-02-16 13:00) [7]

мсдн HttpSendRequest может поможет...



Страницы: 1 вся ветка

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.039 c
15-1170705530
Юный физик
2007-02-05 22:58
2007.03.04
Помогите решить задачку


15-1171255287
Slider007
2007-02-12 07:41
2007.03.04
С днем рождения ! 10 февраля


2-1171439544
sergeyst
2007-02-14 10:52
2007.03.04
Цвет панели


3-1165229321
Ольга
2006-12-04 13:48
2007.03.04
Координаты сетки DBGrid


15-1170785368
IMHO
2007-02-06 21:09
2007.03.04
Oxygen Phone Manager for Sony Ericsson