iyi günler arkadaşlar,
elimde ayrı 2 tane bmp dosyam var, ilk bmp dosyası 1024*768 boyutlarında olsun, diğer bmp ise 100*100 boyutlarında olsun. yapmak istediğim ilk bmp dosyasının enalt kısmına ikinci bmp dosyasını ekleyip tek bir resim dosyası elde etmek. bunun hakkında örnek kod yada izlemem gereken yol hakkında bilgi veren olursa minnettar kalıcam.
iyi çalışmalar diler saygılarımı sunarım.
varolan resmin altına resim ekleme
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: varolan resmin altına resim ekleme
Delphide yapmak zorunda mısın ?
Ps ile çok basit çünkü
Ps ile çok basit çünkü
Çaylak Delphici
Yakup ULUTAŞ
Yakup ULUTAŞ
- greenegitim
- Üye
- Mesajlar: 713
- Kayıt: 28 Nis 2011 10:33
- Konum: İstanbul
Re: varolan resmin altına resim ekleme
Banada geçen böyle bir şey gerekti basit olarak şu şekilde yaptım kbmemtable (memorytable) da bir tablo oluşturdum.
resim1,resim2 graphic türünde
daha sonra kbmemtable.insert , kbmemtableresim1.loadfromfile(resimyolu) ve post diyerek bunu memtable a yükledim sonra bu kaydı fastreporta frxjpegexport ile export etim umarım bu şekilde işine yarar.
resim1,resim2 graphic türünde
daha sonra kbmemtable.insert , kbmemtableresim1.loadfromfile(resimyolu) ve post diyerek bunu memtable a yükledim sonra bu kaydı fastreporta frxjpegexport ile export etim umarım bu şekilde işine yarar.
Mücadele güzelleştirir!
Re: varolan resmin altına resim ekleme
CopyRect ile yapabilirsiniz.
İlk resmin en alt kısmıyla tam olarak nereyi kastettiğiniz belli değil ama şöyle örnek vereyim:
Yukarıdaki kod Image2'deki resmi Image1'in (50,50) noktasına kopyalar.
Siz istediğiniz koordinatları ayarlarsınız.
Image1 üzerinde yapmak istemezseniz çalışma zamanında oluşturacağınız TBitmap ile aynı işlemleri yapabilirsiniz.
İlk resmin en alt kısmıyla tam olarak nereyi kastettiğiniz belli değil ama şöyle örnek vereyim:
Kod: Tümünü seç
Image1.Canvas.CopyRect(
Rect(50, 50, Image2.Picture.Width, Image2.Picture.Height),
Image2.Canvas,
Image2.Canvas.ClipRect
);
Siz istediğiniz koordinatları ayarlarsınız.
Image1 üzerinde yapmak istemezseniz çalışma zamanında oluşturacağınız TBitmap ile aynı işlemleri yapabilirsiniz.
There's no place like 127.0.0.1
Re: varolan resmin altına resim ekleme
Merhaba,
Kullandığınız Delphi sürümünü belirtmemişsiniz. Verilen örnek son nesil Delphi sürümlerinde çalışmaktadır.
İstediğinizi @SimaWB tarafından önerilen yöntem dışında TBitmap.Canvas.Draw() kullanarak yapmakta mümkündür.
Küçük bir örnek uygulama ektedir.
Kullandığınız Delphi sürümünü belirtmemişsiniz. Verilen örnek son nesil Delphi sürümlerinde çalışmaktadır.
İstediğinizi @SimaWB tarafından önerilen yöntem dışında TBitmap.Canvas.Draw() kullanarak yapmakta mümkündür.
Küçük bir örnek uygulama ektedir.
- Dosya ekleri
-
- combinebitmap.rar
- (2.62 KiB) 70 kere indirildi