Excel Application u Sınıfta Kullanırken Hata veriyor.

[kara_kule06]

Selamün aleykum arkadaşlar.

Bildiğimiz gibi excel i bir formda kullanabiliyoruz. ExcelApp diye bir variant değişken tanımlayıp comObj yi te implemente ettikten sonra

Kod: Tümünü seç

ExcelApp:=CREATEOLEOBJECT('excel.application');

dediğimizde excel uygulaması çalışıyor. fakat ben bir sınıf yaptım ve bunu sınıfın herhangi bir procedure sinde çalıştırmak istiyorum.

'Access violation at address 00B2EAC5. Read of address 00D8126A'.

diye hata veriyor. bir formda bu işlemi yapınca hiç bir hata vermiyor. çözemedim bir türlü. yardımcı olursanız sevinirim. sınıfın içinde kullandığım kod şöyle.(Ama kodda bi hata yok.)

Kod: Tümünü seç

 procedure TExportToExcel.ExcelSablonAc();
 var
  ExcelApp: variant;
  kitap: variant;
 Begin
  ExcelApp:=CREATEOLEOBJECT('excel.application');
  kitap:=ExcelApp.WORKBOOKS.open(SablonDosyasi);
 End;

[conari]

Kod: Tümünü seç

ExcelPrg

Kod: Tümünü seç

ExcelApp

olmasın

[kara_kule06]

yok o yazım hatası. düzelttim şimdi.

[conari]

bende sildim o zaman

[kara_kule06]

ya arkadaşlar gerçekten tıkanıp kaldım. bu sorunu cozmem lazım...

[conari]

Sitede Excel ile ilgili bir çok örnek var özellikle makaleler kısmından bu örneği ordan aldım.

Kod: Tümünü seç

// excel dosyasının açılması ve işlem için hazırlanması ile ilgi procedure 
procedure tform1.dosyaac; 
begin 
  // Excel oluşturuluyor 
  ExcelApp := CreateOleObject('Excel.Application'); 
  try 
    ExcelApp.Workbooks.Open('C:\deneme.xls'); 
    // deneme.xls dosyası işlem için açılıyor 
  finally 
    // Excel dosyası kapatılıyor. 
    if not VarIsEmpty(ExcelApp) then 
    begin 
        ExcelApp.DisplayAlerts := False;  //Excel mesajlarını görünteleme 
        ExcelApp.Quit; 
        ExcelApp := Unassigned; 
    end; 
  end; 
end; 

[kara_kule06]

kardeş zaten bir formun içinde çalıştırdığımda sorun yok. ama ben bir sınıf oluşturdum. bu sınıfın procedure ünde alıştırınca hata veriyor. sınıfın örneğini bir formada oluşturup, procedure ü çalıştırınca hata alıyorum. Yoksa normalde çalışıyor.

[aseka]

--

[kara_kule06]

yok kardeş tanımlı o değişken. hem zaten hatayı da

Kod: Tümünü seç

ExcelApp:=CREATEOLEOBJECT('excel.application');

satırında alıyorum.

işin ilginç tarafı hatadan sonra görev yöneticisinden işlemlere bakıyorum. Excel.exe uygulaması çalıştırılmış.

[aseka]

--

[kara_kule06]

aynen böyle yapıyorum. fakat benim yaptığım sınıf başka bir dosyada. Bu da farketmez sanırım.

[aseka]

--

[kara_kule06]

TExportToExcel sınıfı ExportToExcel1.pas isimli dosyada yaratılıp oluşturuldu ve bende çalıştığım form da butana tıklayınca opendialogbox açılıyor buradan excel dosyasını seçince ExportToExcel adlı sınıfın örneğini oluşturuyor. ve start isimli procedure ü çağırıyor. işte yaptığım işte bu procedure ün içinde.

[aseka]

--

[kara_kule06]

hımm. ok kardeş sağol igin için. kafamı toplayıp bi göz gezdireyim. 2 gündür yoldayım. ne yaptığımı bilmiyom.