delphi Tidhttp error could
procedure TfrmMain.DownloadPicture(const AURL: string); var MeS: TMemoryStream; cidSSL: TIdSSLIOHandlerSocketOpenSSL; cidHTTP: TIdHTTP; begin cidHTTP:= TIdHTTP.Create(nil); cidSSL:= TIdSSLIOHandlerSocketOpenSSL.Create(nil); Mes := TMemoryStream.Create; try cidHTTP.ReadTimeout := 30000; cidHTTP.IOHandler := IdSSL; cidSSL.SSLOptions.Method := sslvSSLv3; cidSSL.SSLOptions.Mode := sslmUnassigned; cidSSL.StartSSL; cidHTTP.Get(AURL, Mes); except on E : Exception do begin showmessage('Error: '+E.Message); end; end; Mes.Position := 0; frmImage.Image.Bitmap.LoadFromStream(Mes); end;
Source: stackoverflow.com