خطا عند اظهار صورة idhttp

[Agmcz]

يمكنك التحقق بطريقتين
الأولى التحقق من الملف
الثانية الاستعانة برد الخادم
وهي كالتالي:

PHP كود :

uses
  IdHTTP, IdSSLOpenSSL, jpeg, pngimage;

procedure TForm1.Button1Click(Sender: TObject);
var
  HTTP: TIdHTTP;
  IdSSLIOHandlerSocket: TIdSSLIOHandlerSocketOpenSSL;
  Stream: TMemoryStream;
  Jpg: TJPEGImage;
  Png: TPngImage;
begin
  HTTP := TIdHTTP.Create(nil);
  IdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  Stream := TMemoryStream.Create;
  Jpg := TJPEGImage.Create;
  Png := TPngImage.Create;
  try
    HTTP.IOHandler := IdSSLIOHandlerSocket;
    try
      HTTP.Get('https://d.top4top.net/p_455jyqt61.jpg', Stream);
      Stream.Position := 0;
      if HTTP.Response.ContentType = 'image/jpeg' then
      begin
        Jpg.LoadFromStream(Stream);
        Image1.Picture.Assign(Jpg);
      end;
      if HTTP.Response.ContentType = 'image/png' then
      begin
        Png.LoadFromStream(Stream);
        Image1.Picture.Assign(Png);
      end;
    except
      // Error
    end;
  finally
    Jpg.Free;
    Png.Free;
    Stream.Free;
    HTTP.Free;
  end;
end;