Появилась необходимость закачать файл через https. Как это сделать не имею понятия. С этим протоколом не разу не работал. То, что работает для http, для https работать отказывается (оно и понятно). Но вот если с http я сталкивался, то с https ни разу. А реализовать нужно. Вот и прашу помощи. Если уже не функцией порадуете, каторая все делает, то хоть дайте направление, в какую сторону копать. Хотя функция была бы как раз кстати

А ты попробуй набрать в поиске https
Просто я уже устал рассказывать...

Блин, Snowy, ты как с навичком со мной. Я первым делом залез в поиск форума и поиск DRKB. На фуруме ничего по САБЖУ не нашел, в DRKB есть одна интересная статейка, но не совсем то, что нужно. Вот и пишу тут. Может кто сталкивался и уже писал такую функцию для себя. Или хоть направление дайте, куда рыть.

Poseidon, а без блинов можно? и чем тебе вот этот топик не подходит http://forum.vingrad.ru/index.php?showtopic=43642&hl=https

Цитата(Alex @ 5.9.2005, 00:12)

Poseidon, а без блинов можно?

Можно, извеняюсь, больше не буду

Цитата(Alex @ 5.9.2005, 00:12)

и чем тебе вот этот топик не подходит http://forum.vingrad.ru/index.php?showtopic=43642&hl=https

Тем, что там нет ни строчки кода (нет, есть пост Snowy, но как его прилепить к моей задаче ). Ну кинул я компоненты, ну связал их друг с другом. А что дальше-то делать? Просто я в этой сфере (протоколы передачи данных) ломак. И даже признаться не стыдно. А скачать файл нужно. Вот и прошу помощи у более опытных собратьев.

PS. И вот еще какая интересная штука получается. Допустим есть jpg-файл. Если я пытаюсь его открыть (через https) в браузере, то все ОК. И даже пароля никакого не просит. А вот если пытаюсь скачать хотябы тем же Флешгетом, то пишет что пароль неверный. Спросил у своего системного администратора, она сказал что пароля нет. Это как? Использовать Username:= 'Anonymous', Password:= '' ?

Цитата(Poseidon @ 5.9.2005, 01:26)

А что дальше-то делать?

Посмотреть, что за компоненты ты кинул и попытаться хоть немного подумать, а не ждать готового решения. И когда все это произойдет, то сделать поиск по форуму и найти хотя бы вот эту тему http://forum.vingrad.ru/index.php?showtopic=48563&hl=idhttp Порты не забудь нужные прописать в соответствии с первой темой и dll скачать

Цитата(Alex @ 5.9.2005, 07:59)

а не ждать готового решения

Вот так всегда, сам помогаешь, нередко даешь готовые решения. А как каснулось, так тебе никто дать решение не хочет. Понятное дело, что нужно разбираться. Я просто думал у кого-то уже есть это самое готовое решения. Лана, буду разбиратся сам.

PS. А ведь в подписи моей правда

Готовое решение лежит на сайте Indy.
Скачай Indy Demos.

Все братья!!! Закачалось! То что хотел, достиг. Сказать "без вашей помощи" язык не повернется. Спасибо.

Отдельное благадарю Snowy, за примеры в той самой теме, на каторую вы меня послали
Вот уж действительно, если хочешь что-то сделать, сделай это сам.

Цитата(Poseidon @ 5.9.2005, 20:24)

о что хотел, достиг.

Тогда выкладывай код сюда. Так сказать, для будующих поколений. Пусть хотят по натоптаному пути, во избежании аналогичных вопросов.

Используемые компоненты:
TIdHTTP (вкладка Indy Clients),
TIdSSLIOHandlerSocket (вкладка Indy I/O Handlers),
TButton (для начала загрузки).

В инспекторе обьектов для компонента TIdHTTP устанавливаем:
BoundPort := 443;
IOHandler:= IdSSLIOHandlerSocket1

Скачиваем две библиотеки вот отсюда и копируем их в папку с программой.

Код

procedure TForm1.Button1Click(Sender: TObject); const URL = 'https://z53.org/photo/az.jpg'; // файл, каторый качаем var Stream: TMemoryStream; begin Stream:= TMemoryStream.Create; IdHTTP1.Get(URL,Stream); Stream.SaveToFile('C:\az.jpg'); Stream.Free; end;

А вот и подводные камни.

При беспарольном доступе все работает на ура. Но вот при парольном...

В компоненте TIdHTTP добавил:
Request.Username:= 'MyUsername';
Request.Password:= 'MyPassword';

А выдает "Socket error # 10048 Adress already in use."

Ничего понять не могу, идеи кончились
Добавлено @ 21:22
Забыл добавить, что при заходе через браузер (IE) при этих же Имени и Пароле все ОК.

Вот такие пираги

BasicAuthentication в true ставил?

Добавлено @ 21:42

Цитата

Error 10048 (Address already in use) Binding Socket     Означает что программа пытается инициализировать работу с сетью, и на этом этапе у неё происходит сбой, тк адрес уже заняла другая программа.

Цитата

(10048) Address already in use. Typically, only one usage of each socket address (protocol/IP address/port) is permitted. This error occurs if an application attempts to bind a socket to an IP address/port that has already been used for an existing socket, or a socket that wasn't closed properly, or one that is still in the process of closing. For server applications that need to bind multiple sockets to the same port number, consider using setsockopt(SO_REUSEADDR). Client applications usually need not call bind at all-connect chooses an unused port automatically. When bind is called with a wildcard address (involving ADDR_ANY), a WSAEADDRINUSE error could be delayed until the specific address is committed. This could happen with a call to another function later, including connect, listen, WSAConnect, or WSAJoinLeaf.

IMHO стоит создавать все контролы динамически и убивать после использования.

Цитата(Snowy @ 7.9.2005, 21:34)

IMHO стоит создавать все контролы динамически и убивать после использования.

Спасибо Snowy. Вот сделал:

Код

procedure TForm1.Button1Click(Sender: TObject); const URL = 'https://z53.org/poseidon/pos.jpg'; var IdHTTP: TIdHTTP; IdSSLIOHandlerSocket: TIdSSLIOHandlerSocket; Stream: TMemoryStream; begin IdHTTP:= TIdHTTP.Create(Application); IdSSLIOHandlerSocket:= TIdSSLIOHandlerSocket.Create(Application); Stream:= TMemoryStream.Create; IdHTTP.BoundPort:= 443; IdHTTP.IOHandler:= IdSSLIOHandlerSocket; IdHTTP.Request.Username:= 'poseidon'; IdHTTP.Request.Password:='Password'; IdHTTP.Request.BasicAuthentication:= true; IdHTTP.Get(URL,Stream); Stream.SaveToFile('C:\a.jpg'); Stream.Free; IdHTTP.Free; IdSSLIOHandlerSocket.Free; ShowMessage('OK'); end;

И вот что интересно. При первой попытке скачать все проходит. Но при повторе та же ошибка. Посмотрел в фаирволе, порт 443 никем не занят. Так что же мешает проге соединится заново? Причем, если подождать минуту-две, то все опять ОК. Это что, Винда не дает заново соединится? Так а как это можно обойти?

Правильно будет:

Код

IdHTTP:= TIdHTTP.Create(Application);       IdSSLIOHandlerSocket:= TIdSSLIOHandlerSocket.Create(IdHTTP);

И дестроить IdSSLIOHandlerSocket не нужно.
Попробуй так. Я пока поковыряю исходняки Indy.