Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как скачать файл по протоколу HTTPS:\\ [D7, WinXP]


SamProf ©   (2006-03-26 21:10:00) 

Здравствуйте мастера!
У нас в сетке на одном из серваков лежит страничка, адрес у неё примерно следующий
https://192.168.0.254/cgi-bin/balance.cgi?name=user1&pass=pass1&Submit=OK
Мне её надо скачать! пробуэ во так вот:

const
    sf='';
    se='';
var
  strurl:string;
  s:TStrings;
  idhttp:TIdHTTP;
  IdSSLIOHandlerSocket:TIdSSLIOHandlerSocket;
begin
   strurl:=Edit1.Text+'?name='+Edit2.Text+'&pass='+Edit3.Text+'&Submit=OK';
    try
    IdHTTP:= TIdHTTP.Create(Application);
    IdSSLIOHandlerSocket:= TIdSSLIOHandlerSocket.Create(Application);
    idHTTP.BoundPort:= 443;
    IdHTTP.IOHandler:= IdSSLIOHandlerSocket;
    s:=TStringList.Create;
   s.Text:=IdHTTP.Get(strurl);
    IdHTTP.Free;
    IdSSLIOHandlerSocket.Free;
    finally
    end;
end;


ещё а этой папке я скачал 2 dllки:
ssleay32.dll
libeay32.dll

Файл скачивается, но достаточно часто прога начинает выдавать следующую месагу:
Socket Error #10048
Adress already in use! и файл не качается! что такое? или как ещё можно скачать этот файл?(TWebBrowser не подходит!)

Спасибо!!!


SamProf   (2006-03-31 11:08:00) [1]


> А без VCL как ?

Не понял вопроса!


br21001   (2006-03-30 21:06:00) [2]

А без VCL как ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо