Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Resimler & Thumb  (Okunma sayısı 2304 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı cemaliozan

  • Delphi 5 Level 4
  • ****
  • İleti: 230
  • Rep: +4/-3
  • Cinsiyet: Bay
  • Kodlarım, canlarım
    • Gerçek Sevgi Portalı
Resimler & Thumb
« : 06 Ekim 2007 13:14:43 »
Kod:  (Unknown Language)
  1. uses System.IO,System.Drawing.Imaging;
  2.  
  3. procedure TWebForm_GaleriDuzenle.ResimKucult(ResimKlasoru,ResimDosyasi : String);
  4.  Var
  5.     BDosya             : String;
  6.     KDosya            : String; // küçük resim dosyası
  7.     AResim            : System.Drawing.Image;
  8.     AResimStream      : Filestream;
  9.     Oranti,x,y        : Double;
  10.     ResimFormat       : ImageFormat;
  11.     AFileInfo         : FileInfo;
  12.     kEn,kBoy,kSize    : String;
  13. begin
  14.    BDosya       := Server.MapPath('galeri\buyukboy\'+ResimKlasoru+'\'+ResimDosyasi);
  15.    KDosya       := Server.MapPath('galeri\kucukboy\'+ResimKlasoru+'\'+ResimDosyasi);
  16.  
  17.  try
  18.    AResim       := System.Drawing.Image.FromFile(BDosya);
  19.    X            := AResim.Width;
  20.    Y            := AResim.Height;
  21.    ResimFormat  := AResim.RawFormat;
  22.  
  23.    if X > Y then
  24.       Oranti := X / 150
  25.    else
  26.       Oranti := Y / 150;
  27.  
  28.     X      := X / Oranti;
  29.     Y      := Y / Oranti;
  30.  
  31.   AResim   := AResim.GetThumbnailImage(Convert.ToInt32(X),Convert.ToInt32(Y),nil,nil);
  32.   AResim.Save(KDosya,ResimFormat);
  33.  finally
  34.    AResim.Dispose;
  35.  end;
  36. end;
  37.  
  38. procedure TWebForm_GaleriDuzenle.DosyalardanKucukKopyaCikart(Klasor: String;Mask:String='');
  39.  Var
  40.    DListesi : Array of String;
  41.    Yol      : String;
  42.      i      : Integer;
  43.      S      : String;
  44.  DosyaAdi   : String;
  45. begin
  46.   Yol       := Server.MapPath('galeri\buyukboy\'+Klasor+'\');
  47.   if Mask <> '' then
  48.     DListesi  := &Directory.GetFiles(Yol,Mask)
  49.   else
  50.     DListesi  := &Directory.GetFiles(Yol);
  51.  
  52.   S         := '';
  53.   For i:=0 to High(DListesi) do
  54.   begin
  55.     DListesi[i] := DListesi[i].Remove(0,Yol.Length);
  56.     DosyaAdi    := Path.GetFileName(DListesi[i].ToString);
  57.     if Not &File.Exists(Server.MapPath('galeri\kucukboy\'+Klasor+'\'+DosyaAdi)) then
  58.       ResimKucult(Klasor,DosyaAdi);
  59.   end;
  60. end;
« Son Düzenleme: 06 Ekim 2007 16:10:03 by cemaliozan »
Kayıtlı
www.teksevgi.com - Tamamı BDS 2006 ile yazıldı..

Yaşamaya Değer Bir Hayattan, Sevmeye Değer Bir Aşktan, Dostluğa Değer Bir Arkadaşlıktan Asla Vazgeçmeyin...

Çevrimdışı gold_lady

  • Delphi 1 Level 1
  • *
  • İleti: 3
  • Rep: +0/-0
Ynt: Resimler & Thumb
« Yanıtla #1 : 25 Mayıs 2008 22:29:54 »
Kod çok güzel çalışıyor, teşekkürler.
Bu thumb resimleri form üzerinde gösterip, üzerine tıkladığımızda büyük haliyle nasıl açarız?
Kayıtlı

Çevrimdışı cemaliozan

  • Delphi 5 Level 4
  • ****
  • İleti: 230
  • Rep: +4/-3
  • Cinsiyet: Bay
  • Kodlarım, canlarım
    • Gerçek Sevgi Portalı
Ynt: Resimler & Thumb
« Yanıtla #2 : 27 Mayıs 2008 15:52:11 »
Alıntı yapılan: gold_lady - 25 Mayıs 2008 22:29:54
Kod çok güzel çalışıyor, teşekkürler.
Bu thumb resimleri form üzerinde gösterip, üzerine tıkladığımızda büyük haliyle nasıl açarız?

Form derken ? Bu örnek bir ASP.NET web sayfası için verilmiştir. Windows FORM örneği değildir. Kastettiğin bir web sayfasında resmin thumb görüntüsüne tıklanınca orjinal boyuttaki açılsın olayıysa resimlerin thumball görüntülenmesi esnasında :

  Label1.Text := '<a href="xxx" target="_blank">'+thumb+'[/url]';

gibi basit bir şekilde çözüleblir.

Yok Kastettiğin şey windows formları ise bunun için TImage nesnesini ve onClick olayını kullanabilirsin...
Kayıtlı
www.teksevgi.com - Tamamı BDS 2006 ile yazıldı..

Yaşamaya Değer Bir Hayattan, Sevmeye Değer Bir Aşktan, Dostluğa Değer Bir Arkadaşlıktan Asla Vazgeçmeyin...

Çevrimdışı gold_lady

  • Delphi 1 Level 1
  • *
  • İleti: 3
  • Rep: +0/-0
Ynt: Resimler & Thumb
« Yanıtla #3 : 27 Mayıs 2008 16:50:48 »
ASP.NET WEB sayfası için sormuştum. Web sayfasında görüntülemek için.
Rica etsem :

Kod:  (Unknown Language)
  1. Label1.Text := '<a href="xxx" target="_blank">'+thumb+'</a>';
  2. gibi basit bir şekilde çözüleblir.


kısmını biraz daha açık yazabilir misinz? Bunu nasıl kullanacağım? Web olayında yeniyimde.
« Son Düzenleme: 27 Mayıs 2008 21:28:49 by cemaliozan »
Kayıtlı
Sayfa: [1]   Yukarı git
« önceki sonraki »