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

Similar codes

0 vote79 views1 answer
Instagram bot python
Delphi
0 vote134 views3 answers
Delphi keypress ctrl+v
Delphi
6 votes213 views3 answers
How to install pip in python 3.9 windows 10
Delphi
0 vote146 views1 answer
Delphi fullscreen
Delphi
6 votes211 views1 answer
Delphi array
Delphi
3 votes121 views1 answer
Flash messages using boot strap
Delphi
15 votes214 views5 answers
Belle delphine
Delphi
3 votes209 views3 answers
Add data to json object
Delphi
2 votes217 views1 answer
Delphi basics generating random number
Delphi
0 vote136 views2 answers
Css social code bootstrap 4
Delphi