Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Hostingdeki resmi imagede gösterme
#1
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
Cevapla
#2
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.
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Cevapla
#3
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.
Cevapla
#4
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;
Cevapla
#5
Ayrıca bunu thread içine yerleştirirseniz hat kopma ve yabaşlamalarindan rtkilenmezsiniz
// Bilgi paylaştıkça çoğalır.. 

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

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.
Cevapla
#7
(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, 

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.
Herhangi bir basit problem, hakkında yeterince toplantı yapılarak, çözümsüz hale getirilebilir.
https://play.google.com/store/apps/developer?id=ONGUN
WWW
Cevapla
#8
JvImage1.Picture.LoadFromFile ('Logo.png') ;

Yanılmıyorsam, jedinin jvimage componenti pngyi destekliyordu
Cevapla
#9
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.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Photo cxDBGridTable da Listenen Aynı Satırları Tek Satırda Gösterme Selen 3 1.344 13-02-2020, Saat: 11:36
Son Yorum: Selen
  combobox veriyi edit text gösterme burak 6 3.233 24-08-2019, Saat: 09:35
Son Yorum: bünyamin68
  Resim içerisindeki Herhangi Bir Renge Zemin Resmi Verme (2 renk verme (Pattern)) pro_imaj 10 4.229 15-04-2019, Saat: 18:04
Son Yorum: esistem
  Arapça Yazı Gösterme baloglurecep 5 2.515 09-02-2019, Saat: 13:24
Son Yorum: baloglurecep
  Konumuma en yakın 5 lokasyonu gösterme mcuyan 11 5.826 11-12-2017, Saat: 15:18
Son Yorum: mcuyan



Konuyu Okuyanlar: 1 Ziyaretçi