怎样使用https协议下载文件!(100分)

第一种方法:
procedure TForm1.Button1Click(Sender: TObject);
var
lOk: HResult;
begin
lOk := urlmon.URLDownloadToFile(nil, 'http://192.168.0.111:8081/xzmweb/1217.jpg',
'c:/temp/1217.jpg', 0, self);
if lOk = 0 then
begin
memo1.Lines.Add('ok');
while FileExists(gCacheFileName) do
deletefile(gCacheFileName);
memo1.Lines.Add('deletefile ' + gCacheFileName);
end else
begin
memo1.Lines.Add('no');
end;
end;
第二种方法:
var
lResponseStream: TMemoryStream;
lStr: string;
begin
lResponseStream := TMemoryStream.Create;
self.IdHTTP1.Get('https://192.168.0.111:8081/xzmweb/1217.jpg', lResponseStream);
lResponseStream.SaveToFile('c:/temp/1217.jpg');
lResponseStream.Free;
end;
以上这两种方法如果使用是http协议,均能够下载!
请问各位大侠,怎样使用https协议时(IE已经可以使用https协议访问网页了,可以正常使用),也能下载,以上用法不行的话,应该怎样?
使用了TIndyHttp+TIdSSLIOHandlerSocketOpenSSL,出现Error connecting with SSL错误!