Как определить программно залогинился ли я на каком либо сайте [D7]
Страницы:
<
1
2
3
>
Muh © (2008-08-18 13:07:00)
Суть в следующем.
Программе надо понять, залогинился я допустим на этом сайте
или нет..и если залогинился, то надо скачать определенный файл.
Раньше я пользовался процедурой, приведенной ниже, но
программа понимала только, когда я логинился в Internet Explorer,
если же я логинился в остальных прога не понимала... а с приходом
Vista теперь и в Эксплорере не понимает :(
подскажите, что можно сделать..
надеюсь изложил понятно, спасибо
function DownloadFile(const FileURL, FileName: String):
Cardinal;
var
hSession, hFile: HInternet;
Buffer: array[1..1024] of Byte;
BufferLen, fSize: LongWord;
f: File;
begin
Result := 0;
hSession := InternetOpen('STEROID Download',
INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
if Assigned(hSession) then begin
hFile := InternetOpenURL(hSession,
PChar(FileURL), nil, 0,
INTERNET_FLAG_RELOAD, 0);
if Assigned(hFile) then begin
AssignFile(f, FileName);
Rewrite(f,1);
fSize := 0;
repeat
InternetReadFile(hFile, @Buffer,
SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen);
fSize := fSize + BufferLen;
until (BufferLen = 0);
CloseFile(f);
Result := fSize;
InternetCloseHandle(hFile);
end else begin
MessageDlg('Не могу скачать файл!
Проверьте соединение с Internet', mtCustom,[mbYes], 1);
Form1.Close;
end;
InternetCloseHandle(hSession);
end
end;
Muh (2008-08-18 13:11:00) [41]
короче главноая суть впринципе в том, что бы скачать файл..но
его можно скачать, если только залогиниллся на определенном
сайте..
Страницы:
<
1
2
3
>
Наверх 
ЧАТ |
Орешник |
|
