Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi
Ön Sipariş Talebinde Bulunan Üyelerimiz
Sipariş Talebinde Bulunan Üyelerimiz

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Excele Resimli Aktarma
#1
Merhaba Arkadaşlar,

Programımdaki kayıtları excele aktarabiliyorum. CxGridle veya Dbgriddeki bilgileri.
Excele aktarırken her kayıtta bulunan resimleri de ben excele aktarmak istiyorum. Yani her kayıtın yanında resmide çıksın istiyorum. Bunu nasıl yapabilirim acaba?
Cevapla
#2
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#3
Daha önce Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol konuşulmuştu. Bakmanızda fayda var.
There's no place like 127.0.0.1
WWW
Cevapla
#4
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

bir çok sitede konu ele alınmış.
Cevapla
#5
Daha önce yazıp sattığım bir uygulamada bir exceldeki bir sutunda yer alan stok numaralarını alıp resimleri ilgili klasörde bulup ilgili excel dosyasına yerleştiriyordum. yerleştirme kısmını aşağıdaki kod ile gerçekleştirdim. Belki Faydası olur. 

Not : Sadece bir kısmını aldığım için değişkenlere vs takılmayın. ama mantık aşağıdaki gibidir.


uses ComObj;

var
 Excel_App,Resim_Obj: Variant ;
 Resim,Dosya_Yolu,Dosya_Adi,
 Dosya_jpg,Dosya_png,Dosya_jpeg,Dosya_bmp : String;
 Aktif_Sayfa,Veri,Hucre : Variant;
 cell, aLeft, aTop, aWidth, aHeight : Integer;
 K_Satir,K_sutun,R_sutun : integer;
 H_yukseklik, H_genislik : integer;


begin

    Excel_App := CreateOleObject('Excel.Application');
    Excel_App.Workbooks.Open(Form1.Excel_Dosya_Yolu.text);


       // Hücre Seç

       Excel_App.Cells[cell,R_sutun].Select;
       Hucre := Excel_App.ActiveSheet;

        Hucre.Cells[cell, R_sutun].ColumnWidth :=H_genislik;
        Hucre.Cells[cell, R_sutun].RowHeight   :=H_yukseklik;
       // Resim Boyutu Ayarlanıyor
        aLeft   := Hucre.Cells[cell,R_sutun].Left + 2;
        aTop    := Hucre.Cells[cell,R_sutun].Top  + 2;

        aWidth  := Hucre.Cells[cell,R_sutun+1].Left - Hucre.Cells[cell, R_sutun].Left - 4 ;
        aHeight := Hucre.Cells[cell+1,R_sutun].Top  - Hucre.Cells[cell, R_sutun].Top  - 4;

        Resim_Obj := Excel_App.ActiveSheet.Shapes.AddPicture(Resim,
           False, // LinkToFile parametresi (dosya bağını kopardık...)
           True , // SaveWithDocument parametresi (içerik excel dosyası ile kaydedilecek)
           aLeft  , // Left ( varsayılan sol  offset )
           aTop  , // Top  ( varsayılan tepe offset )
           aWidth , // Width  ( varsayılan genişlik  )
           aHeight); // Height (varsayılan yükseklik  )

        Resim_Obj.LockAspectRatio := msoFalse;
        Resim_Obj.Placement := xlPortrait;

 Excel_App.Visible:=true;

 Excel_App := Unassigned;

end;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#6
Cevaplar için teşekkürler. Bu örneklerler dosya yolundan resimleri çekip excele aktarıyor.
Ben Resimleri veri tabanında tutuyorum tüm verilerle birlikte. Yine gönderdiğiniz yöntemlerle mi yapmam gerekiyor acaba?
Cevapla
#7
(07-11-2018, Saat: 09:02)gonulali Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlCevaplar için teşekkürler. Bu örneklerler dosya yolundan resimleri çekip excele aktarıyor.
Ben Resimleri veri tabanında tutuyorum tüm verilerle birlikte. Yine gönderdiğiniz yöntemlerle mi yapmam gerekiyor acaba?

CxGrid için ExportGridToXLSX fonksiyonu direkt gridi excel dosyası olarak export edebiliyormuş. denediniz mi ?
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#8
Teşekkürler. Bilmiyordum. Deneyeceğim.
Cevapla
#9
Tekrardan Selamlar. Denedim, CxGrid ile Resimleri sorunsuz olarak excele aktarıyor. Ama şimdi şu sorunum var Smile
Böyle olacağını biliyordum ama denemek istedim.
Resimleri veri tabanında tuttuğumda çok yer kaplıyor doğal olarak. Ben bu resimleri bir dosyaya dosya yolu ile kaydettirdiğimde excele almak istersem yine resimleri excele alabilir miyim?
Cevapla
#10
Yukarıda size örnek olarak gösterilen kodlar zaten bunu yapmıyor mu?

Zaten şunu siz yazmadınız mı?
(07-11-2018, Saat: 09:02)gonulali Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlBu örneklerler dosya yolundan resimleri çekip excele aktarıyor.
There's no place like 127.0.0.1
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Listviewden excele insert brs 4 590 31-10-2017, Saat: 20:20
Son Yorum: brs
  Değişkene fonksiyon aktarma savasabd 2 713 31-07-2017, Saat: 10:58
Son Yorum: savasabd
  İki db arası veri aktarma Dostk 7 958 28-01-2017, Saat: 21:38
Son Yorum: Dostk
  TcxDBTreeList Excele aktarma barisatalay 4 680 24-12-2016, Saat: 17:57
Son Yorum: barutali
  sql server resimli veritabanı örneği hakkında emrekilinc1984 6 2.361 24-10-2016, Saat: 23:24
Son Yorum: masteryoda



Konuyu Okuyanlar: 1 Ziyaretçi