varolan resmin altına resim ekleme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
notname
Üye
Mesajlar: 149
Kayıt: 11 Şub 2005 02:15

varolan resmin altına resim ekleme

Mesaj gönderen notname »

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.
Kullanıcı avatarı
yhackup
Üye
Mesajlar: 115
Kayıt: 09 Ağu 2014 09:09
İletişim:

Re: varolan resmin altına resim ekleme

Mesaj gönderen yhackup »

Delphide yapmak zorunda mısın ?
Ps ile çok basit çünkü
Çaylak Delphici :D

Yakup ULUTAŞ
Kullanıcı avatarı
greenegitim
Üye
Mesajlar: 713
Kayıt: 28 Nis 2011 10:33
Konum: İstanbul

Re: varolan resmin altına resim ekleme

Mesaj gönderen greenegitim »

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.
Mücadele güzelleştirir!
Kullanıcı avatarı
SimaWB
Üye
Mesajlar: 1316
Kayıt: 07 May 2009 10:42
Konum: İstanbul
İletişim:

Re: varolan resmin altına resim ekleme

Mesaj gönderen SimaWB »

CopyRect ile 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
);
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.
There's no place like 127.0.0.1
ertank
Kıdemli Üye
Mesajlar: 1650
Kayıt: 12 Eyl 2015 12:45

Re: varolan resmin altına resim ekleme

Mesaj gönderen ertank »

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.
Dosya ekleri
combinebitmap.rar
(2.62 KiB) 69 kere indirildi
Cevapla