Delphi Excel Resim Method
Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=1671
Tarih: 25.Mayis.2024 Saat 08:00
Konu: Delphi Excel Resim Method
Mesajı Yazan: turknetyazilim
Konu: Delphi Excel Resim Method
Mesaj Tarihi: 25.Ocak.2009 Saat 16:02
|
Merhaba Datakent Sakinleri ;
Şöyle Bir Sorunum Var.Kendim Bir kaç Yol Denedim Ama yapamadım.Sorunumda Şudur.
Delphiden Excel in Herhangi Bir Hücresine Nasıl Resim Aktarabilirim.
Bir Yöntem,Bir Mantık Ne Olursa artık....Çok Önemli
Ben Şöyle Bi Çözüm Üretmeye Kalktım Ama Olmadı.İstediğim Sonucu alamadım
VeriTabanında Ole veya Blob Bi alan Olşturup Buraya Resimleri Eklettim
ve Tabloyu Göngüye Sokarak Aktarmaya çalıştım ama Değişik bişeyler Çıktı.
http://rapidshare.com/files/189193104/OleExcelResim.rar.html - http://rapidshare.com/files/189193104/OleExcelResim.rar.html
|
Cevaplar:
Mesajı Yazan: murat turan
Mesaj Tarihi: 26.Ocak.2009 Saat 15:58
|
uses'a ComObj ekle
kodda aşağıdaki gibi
procedure TForm1.Button1Click(Sender: TObject);
var ExcelApp: OLEVariant; Picture: OleVariant; begin ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.WorkBooks.Add; ExcelApp.Worksheets['Sheet1'].Cells[1,1].Value := 99;//99 yaz
ExcelApp.Worksheets['Sheet1'].Cells[1,1].Font.Size := 12;//boyutu 12 yap Picture := ExcelApp.Worksheets['Sheet1'].Pictures.Insert('C:\test.bmp');//C:\test.bmp isimli resim'i yükle...
Picture.Width := 60; Picture.Height := 60; Picture.ShapeRange.Left := 10; Picture.ShapeRange.Top := 10; ExcelApp.DisplayAlerts := False; ExcelApp.Application.Visible := True; end; ------------- http://www.kasatakip.com - Kasa Takip | http://www.caritakip.com - Cari Takip | http://www.evraktakip.com - Evrak Takip | http://www.etasqlmobil.com - ETA SQL Mobil |
Mesajı Yazan: turknetyazilim
Mesaj Tarihi: 28.Ocak.2009 Saat 15:36
|
Mura Abi Bi Kez Daha Sorunuma Çözüm Oldun.Allah razı olsun Beni Çok Büyük Bi Dertten Kurtardın.Nasıl Teşekkür Edeceğimi Bilemiyorum ------------- |
Mesajı Yazan: murat turan
Mesaj Tarihi: 28.Ocak.2009 Saat 15:39
|
------------- http://www.kasatakip.com - Kasa Takip | http://www.caritakip.com - Cari Takip | http://www.evraktakip.com - Evrak Takip | http://www.etasqlmobil.com - ETA SQL Mobil |
Mesajı Yazan: turknetyazilim
Mesaj Tarihi: 29.Ocak.2009 Saat 18:05
|
Merhaba Yukarıdaki Kod Fazlasıyla işimi gördü.Yanlız ben Soruyu sorarken yanlış sormuşum.Ama bilimyordum Deneyince Öğrendim.Aslında bilmeden öncede sorduğum soru mantıklı.Excelin herhangi bir hücresine nasıl resim aktarabilirim demiştim.Excel in hücresine aktaramıyorsunuz .Anca Sayfanın (Yani Sheetin) üzerine aktarabiliyorsunuz.
Birde Yukarıda Ki Kodu Direk Denemeye Kalkarsanız. Geçersiz dizin diye bi hata alıoysunuz
Sebebini bilmiyorum. Ama Ben Şu Şekilde Hallettim yukarıda Sheet1 yazan yerleri Sayfa1 diye değiştirirseniz sorun çözülür  ------------- |