Hostingdeki resmi imagede gösterme

[gonulali]

merhaba arkadaşlar.  Web sitemdeki www.siteadi.com\resimler\resim01.png resim dosyasını program içindeki image içinde nasıl gösterebilirim acaba? Teşekkürler

[shooterman]

Selamlar,
image nesnesi içine path olarak ilgili klasör yolunu göstermeniz yeterli olacaktır. Loadfromfile ile ilgili adrestekki istediğiniz resimi yükleyebilirsiniz.

[Mr.X]

http ise ;

procedure TForm1.Button1Click(Sender: TObject);
var
 GIf: TBitmap;
 MS: TMemoryStream;
begin

 MS := TMemoryStream.Create;
 GIf := TBitmap.Create;
 try
   IdHTTP1.get('http://www.sigma-dp.com/DP2/sample-photo/img/dp2_picthum_001.jpg', MS);
   Gif.LoadFromStream(MS);
   Image1.Bitmap.Assign(GIf);
 finally
   FreeAndNil(GIf);
   FreeAndNil(MS);
 end;

end;

Https ise ;
Forumda bununla ilgili bir konu bulunuyordu arayıp bulabilirsiniz.

[MuhammedYasir]

procedure TFUrunler.OnlineButton28Click(Sender: TObject);
var
 MS: TMemoryStream;
 jpegResim: TJpegImage;
begin

 MS := TMemoryStream.Create;
 try
   jpegResim := TJpegImage.Create;
   try
     try
       IdHTTP1.Get('http://' + FAnaSayfa.ResimYolu +
         DMUrun.TUrunimage.AsString, MS);
     except
       on e: EIdHTTPProtocolException do
       begin
         exit;
       end
       else
       begin
         raise;
       end;
     end;
     MS.Position := 0;
     jpegResim.LoadFromStream(MS);
     Image1.Picture.Assign(jpegResim);

   finally
     jpegResim.Free;
   end;
 finally
   MS.Free;
 end;
end;

[mcuyan]

Ayrıca bunu thread içine yerleştirirseniz hat kopma ve yabaşlamalarindan rtkilenmezsiniz

[gonulali]

Herkese Teşekkürler. Jpg uzantılarda sorun yok resmi imageye getiriyor fakat  PNG uzantılı resimleri imageye aktaramadım, 

Kod: (Select All)

var
MS: TMemoryStream;
PNGResim: TPNGImage;
begin

MS := TMemoryStream.Create;
try
  PNGResim := TPNGImage.Create;
  try
    try
      IdHTTP1.Get('http://www.siteadi.com/resimler/resim1.png');
    except
      on e: EIdHTTPProtocolException do
      begin
        exit;
      end
      else
      begin
        raise;
      end;
    end;
    MS.Position := 0;
    PNGResim.LoadFromStream(MS);
    Image1.Picture.Assign(PNGResim);

  finally
    PNGResim.Free;
  end;
finally
  MS.Free;
end;
end;

uses'a PngImage ekledim  Butona tıkladığımda hata vermiyor ama imageye resmi de getirmiyor. 
Webbrowser içinde açabiliyorum. Bu şekilde de işimi gördü şimdilik. PNG yi açabilen olur ve paylaşır ise sevinirim.

[savasabd]

(07-04-2021, Saat: 17:08)gonulali Adlı Kullanıcıdan Alıntı: Herkese Teşekkürler. Jpg uzantılarda sorun yok resmi imageye getiriyor fakat  PNG uzantılı resimleri imageye aktaramadım, 

Kod: (Select All)

var
MS: TMemoryStream;
PNGResim: TPNGImage;
begin

MS := TMemoryStream.Create;
try
  PNGResim := TPNGImage.Create;
  try
    try
      IdHTTP1.Get('http://www.siteadi.com/resimler/resim1.png');
    except
      on e: EIdHTTPProtocolException do
      begin
        exit;
      end
      else
      begin
        raise;
      end;
    end;
    MS.Position := 0;
    PNGResim.LoadFromStream(MS);
    Image1.Picture.Assign(PNGResim);

  finally
    PNGResim.Free;
  end;
finally
  MS.Free;
end;
end;

uses'a PngImage ekledim  Butona tıkladığımda hata vermiyor ama imageye resmi de getirmiyor. 
Webbrowser içinde açabiliyorum. Bu şekilde de işimi gördü şimdilik. PNG yi açabilen olur ve paylaşır ise sevinirim.

Kod programınızdakiyle aynıysa hata şurada:

  IdHTTP1.Get('http://www.siteadi.com/resimler/resim1.png');

doğrusu şöyle olmalı:

 IdHTTP1.Get('http://www.pngmart.com/files/4/Albatross-PNG-HD.png',MS);

 

Aksi halde TMemoryStream nesnesi boş olduğu için image da herhangi bir şey göstermez.Hem ben denedim, png yi gayet güzel gösterdi.

[COMMANDX]

JvImage1.Picture.LoadFromFile ('Logo.png') ;

Yanılmıyorsam, jedinin jvimage componenti pngyi destekliyordu

[Syntax]

Eğer streamı uygun şekilde kapatmazsan image dosya sonu okunamadığından resmin yüklenmeyecektir. Buna dikkat etmen gerekli. Resim doğru geliyor ve gösterim yaptığın kontrolde görüntülenmiyor ise resim formatını kontrol etmelisin.