Как получить страницу по 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
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.