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

-1 vote284 views1 answer
Delphi if statement
Delphi
0 vote229 views1 answer
How to end a program in delphi
Delphi
4 votes233 views1 answer
How to find the length of a string delphi
Delphi
0 vote253 views1 answer
Inputbox delphi
Delphi
19 votes307 views2 answers
Download jupyter for linux
Delphi
0 vote313 views1 answer
Delphi draw antialiased line
Delphi
0 vote253 views1 answer
How to validate if the text in edit has numbers in and to show a message if it has in delphi
Delphi
2 votes335 views1 answer
Delphi how copy works
Delphi
0 vote288 views1 answer
Delphi copiarcaracter string
Delphi
0 vote279 views1 answer
Shuffle array delphi
Delphi