Как получить страницу по SSL (HTTPS)
От: Orel Украина http://orel16.narod.ru
Дата: 25.08.04 08:11
Оценка:
Пробую вот так,
var HInt,HCon,HReq:HInternet;
    bSend, bRead: boolean;
    Buffer: array[1..1024] of Byte;
    BufferLen: DWORD;
    f: file;
begin
 HInt:=InternetOpen('FRZ Connector',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
 HCon:=InternetConnect(HInt,pchar('192.168.2.2'),INTERNET_DEFAULT_HTTPS_PORT,'','',INTERNET_SERVICE_HTTP,0,0);
 HReq:= HttpOpenRequest (HCon,'GET','\cgi-bin\utm\aaa',HTTP_VERSION,'',0, INTERNET_FLAG_SECURE+INTERNET_FLAG_IGNORE_CERT_CN_INVALID+INTERNET_FLAG_IGNORE_CERT_DATE_INVALID, 0);

//bSend:=HttpSendRequest(HReq, '', 0, nil, 0);

 AssignFile(f, 'c:\temp.txt');
 Rewrite(f,1);
 repeat
  bRead:=InternetReadFile(HReq, @Buffer, SizeOf(Buffer), BufferLen);
  if not bRead then showmessage('Error');
  BlockWrite(f, Buffer, BufferLen);
 until BufferLen = 0;
 CloseFile(f);
 InternetCloseHandle(HReq);
 InternetCloseHandle(HCon);
 InternetCloseHandle(HInt);

файл создаётся, а текста в нем нет

Подскажите пожалуйста, где ошибка, или хотя бы дайте линк на исходники получения страницы по протоколу SSL
Re: Как получить страницу по SSL (HTTPS)
От: Orel Украина http://orel16.narod.ru
Дата: 25.08.04 16:28
Оценка:
Чё никто не знает?????
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.