-
Суть в следующем. Программе надо понять, залогинился я допустим на этом сайте или нет..и если залогинился, то надо скачать определенный файл. Раньше я пользовался процедурой, приведенной ниже, но программа понимала только, когда я логинился в 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;
-
короче главноая суть впринципе в том, что бы скачать файл..но его можно скачать, если только залогиниллся на определенном сайте..
-
InternetConnect()?
-
а по конкретнее пожалуйста... а то я не очень хороший программер)
-
В приведенной тобой функции нет ни намека на какой либо логин на удаленный ресурс. Или ты подразумеваешь: залогинился = соединился?
-
Удалено модератором Примечание: Еще раз и по русски...
-
ну как бы я вхожу на сайт..и авторизируюсь..после этого запускаю программу..и с помощью этой функцией можно скачивать файл.. то есть как я понял пароль и логин берется берется из кукисов ..я плохо к сожалению в этом разбираюсь. но к сожалению только, если я до этого логинился в эксплорере..с другими браузерами такое не работает
-
дык, другие браузеры свои кукисы хранят в отличном, от осла, месте.
-
ну вот в этом и проблема..ранее был один недостаток.. не получалось использовать программу с отличными от экплорера браузерами. А теперь с появлением Висты... и в эксплорере не работает эта функция.. подскажие как еще можно файл скачать?
-
> подскажие как еще можно файл скачать?
Эмулировать действия браузера, вестимо. Сначала послать данные формы, запомнить куки (т.е. сделать то, что делает браузер, когда ты "логинишся"), потом послать запрос на файл.
-
как это сделать, подскажите, пожалуйста
-
> [10] Muh (19.08.08 16:33)
[2]
-
это объяснение?
-
ребят, ну подскажите как делать, очень важно
-
каких пустых? народ, реальна помощь нужна
-
> [14] Muh (20.08.08 15:47)
Справку или MDSN уже проштудировал?
-
что такое mdsn я не знаю..по справке ничего не нашел :(
-
-
спасибо но в этом примере надо знать логин и пароль..а хотелось бы чтобы без ввода ..чтобы все было автоматически..
-
нет, блин, ничего нет(
|