Resimler & Thumb Gönderen: cemaliozan Tarih: 06 October 2007 13:14:43
Notice: Undefined index: current_action in
/home/del10000/domains/delphidunyasi.net/public_html/Sources/Subs.php on line
2391
Kodlama dili (delphi)
uses System.IO,System.Drawing.Imaging;
procedure TWebForm_GaleriDuzenle.ResimKucult(ResimKlasoru,ResimDosyasi : String);
Var
BDosya : String;
KDosya : String; // küçük resim dosyası
AResim : System.Drawing.Image;
AResimStream : Filestream;
Oranti,x,y : Double;
ResimFormat : ImageFormat;
AFileInfo : FileInfo;
kEn,kBoy,kSize : String;
begin
BDosya := Server.MapPath('galeri\buyukboy\'+ResimKlasoru+'\'+ResimDosyasi);
KDosya := Server.MapPath('galeri\kucukboy\'+ResimKlasoru+'\'+ResimDosyasi);
try
AResim := System.Drawing.Image.FromFile(BDosya);
X := AResim.Width;
Y := AResim.Height;
ResimFormat := AResim.RawFormat;
if X > Y then
Oranti := X / 150
else
Oranti := Y / 150;
X := X / Oranti;
Y := Y / Oranti;
AResim := AResim.GetThumbnailImage(Convert.ToInt32(X),Convert.ToInt32(Y),nil,nil);
AResim.Save(KDosya,ResimFormat);
finally
AResim.Dispose;
end;
end;
procedure TWebForm_GaleriDuzenle.DosyalardanKucukKopyaCikart(Klasor: String;Mask:String='');
Var
DListesi : Array of String;
Yol : String;
i : Integer;
S : String;
DosyaAdi : String;
begin
Yol := Server.MapPath('galeri\buyukboy\'+Klasor+'\');
if Mask <> '' then
DListesi := &Directory.GetFiles(Yol,Mask)
else
DListesi := &Directory.GetFiles(Yol);
S := '';
For i:=0 to High(DListesi) do
begin
DListesi[i] := DListesi[i].Remove(0,Yol.Length);
DosyaAdi := Path.GetFileName(DListesi[i].ToString);
if Not &File.Exists(Server.MapPath('galeri\kucukboy\'+Klasor+'\'+DosyaAdi)) then
ResimKucult(Klasor,DosyaAdi);
end;
end;
Ynt: Resimler & Thumb Gönderen: gold_lady Tarih: 25 May 2008 22:29:54
Notice: Undefined index: current_action in
/home/del10000/domains/delphidunyasi.net/public_html/Sources/Subs.php on line
2391
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?
Ynt: Resimler & Thumb Gönderen: cemaliozan Tarih: 27 May 2008 15:52:11
Notice: Undefined index: current_action in
/home/del10000/domains/delphidunyasi.net/public_html/Sources/Subs.php on line
2391
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...
Ynt: Resimler & Thumb Gönderen: gold_lady Tarih: 27 May 2008 16:50:48
Notice: Undefined index: current_action in
/home/del10000/domains/delphidunyasi.net/public_html/Sources/Subs.php on line
2391
ASP.NET WEB sayfası için sormuştum. Web sayfasında görüntülemek için.
Rica etsem :
Kodlama dili (asp)
Label1.Text := '<a href="xxx" target="_blank">'+thumb+'</a>';
gibi basit bir şekilde çözüleblir.
kısmını biraz daha açık yazabilir misinz? Bunu nasıl kullanacağım? Web olayında yeniyimde.