Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как определить программно залогинился ли я на каком либо сайте [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;

Cobalt (2008-08-21 08:10:00) [21]
Или смотри в сторону плагинов к IE/Netscape, последние кажется даже в Опере и Мозилле поддерживаются.

Cobalt (2008-08-21 08:06:00) [22]
Посмотри компонент TWebBrowser, он, если не ошибаюсь, содержит IE, т.е. использует указанные в нем логин/пароль

Muh (2008-08-20 21:57:00) [23]
нет, блин, ничего нет(

Muh (2008-08-20 21:23:00) [24]
спасибо
но в этом примере надо знать логин и пароль..а хотелось бы чтобы без ввода ..чтобы все было автоматически..

blackman (2008-08-20 20:31:00) [25]
Как програмно ввести логин и пароль и перейти на следующую страницу
http://articles.org.ru/cn/showdetail.php?cid=6277
И посмотри остальное
Delphi/Pascal » Интернет, сети
http://articles.org.ru/cn/?c=27

Muh (2008-08-20 18:24:00) [26]
что такое mdsn я не знаю..по справке ничего не нашел :(

Dennis I. Komarov (2008-08-20 17:06:00) [27]
> [14] Muh (20.08.08 15:47)

Справку или MDSN уже проштудировал?

Muh (2008-08-20 15:47:00) [28]
каких пустых? народ, реальна помощь нужна

Muh (2008-08-20 05:51:00) [29]
Удалено модератором
Примечание: Создание пустых сообщений

Muh (2008-08-19 16:45:00) [30]
Удалено модератором
Примечание: Создание пустых сообщений

clickmaker (2008-08-19 16:44:00) [31]
> [10] Muh (19.08.08 16:33)

[2]

Muh (2008-08-19 16:33:00) [32]
как это сделать, подскажите, пожалуйста

DiamondShark (2008-08-19 15:49:00) [33]

> подскажие как еще можно файл скачать?

Эмулировать действия браузера, вестимо.
Сначала послать данные формы, запомнить куки (т.е. сделать то, что делает браузер, когда ты "логинишся"), потом послать запрос на файл.

Muh (2008-08-18 18:03:00) [34]
ну вот в этом и проблема..ранее был один недостаток.. не получалось использовать программу с отличными от экплорера браузерами. А теперь с появлением Висты... и в эксплорере не работает эта функция..
подскажие как еще можно файл скачать?

grisme (2008-08-18 17:51:00) [35]
дык, другие браузеры свои кукисы хранят в отличном, от осла, месте.

Muh (2008-08-18 17:21:00) [36]
ну как бы я вхожу на сайт..и авторизируюсь..после этого запускаю программу..и с помощью этой функцией можно скачивать файл.. то есть как я понял пароль и логин берется берется из кукисов ..я плохо к сожалению в этом разбираюсь.
но к сожалению только, если я до этого логинился в эксплорере..с другими браузерами такое не работает

DiamondShark (2008-08-18 16:18:00) [37]
Удалено модератором
Примечание: Еще раз и по русски...

Rouse_ (2008-08-18 16:00:00) [38]
В приведенной тобой функции нет ни намека на какой либо логин на удаленный ресурс. Или ты подразумеваешь: залогинился = соединился?

Muh (2008-08-18 15:13:00) [39]
а по конкретнее пожалуйста...
а то я не очень хороший программер)

clickmaker (2008-08-18 15:07:00) [40]
InternetConnect()?

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »