Koşula göre Dll yükleme

[feinpus]

Ben yazdığım bazı dll dosyalarını program açılışında yüklüyorum ama şimdi bazı dll'lerin bir şart oluşmasına göre yüklenmesini istiyorum
örneğin günlerden pazartesi ise pazartesi.dll program yüklesin diğerlerini yüklemesinç

Kod: Tümünü seç

implementation

{$R *.dfm}

dll'yi formdaki bu bölümün altına yazıyorum burda bir if then kullanma yolu var mı?

[gkimirti]

bu konu 3. seminerde anlatılmıstı
siteden ppt sunusunu indirirseniz icinde detaylı acıklama var

[feinpus]

Pardon ama bu seminer sunuları sitenin neresinde yer alıyor?

[gkimirti]

http://www.delphiturkiye.com/dfiles/seminer3ppt.zip
ewt yeri pek belli degil biraz

[feinpus]

Teşekkürler...

[mussimsek]

inşallah bitince hepsini tek bir dosyada toplayıp, siteye koyacağım.

Kolay gelsin.

[feinpus]

Seminerlerinizi bu şekilde derlemeniz çok iyi birşey ve gerçekten yardımcı oluyor ancak ben aradığım şeyi tam olarak bulamadım.

Tamam dll'yi runtime olarak yüklüyoruz ama birde bu dll içerisinde bir takım fonksiyonlarım var ve bu fonksiyonları formum içerisinde kullanıyorum.(her dll'de farklı fonksiyonlar var...)

Ama runtime olarak çağırdığımda bu fonksiyonları nasıl tanımlayacağım ve bu kullandığım fonksiyonları program derlenirken de hata vermemesi gerek. Yani tanımsız fonksiyon gibi bi hata çıkmaması için.

[warder]

Dinamik DLL kullanımını biraz araştırmanız gerekiyor. Tüm sorunlarınız aynı konuyu işaret ediyor.

[sadettinpolat]

http://www.marcocantu.com/code/md6htm/UseDyna.htm

bu adreste istediğiniz şekilde bir kullanım mevcut.

FormDllD.dll dinamik olarak yükleniyor.

Kod: Tümünü seç

  hInstDll := SafeLoadLibrary ('FormDllD.dll');
  if hInstDll <= 0 then
    raise Exception.Create ('FormDllD library not found');

ve dll deki bir fonksiyon çalıştırılıyor...

Kod: Tümünü seç

FPointer := GetProcAddress (hInstDll, 'GetColor');
  if FPointer = nil then
    raise Exception.Create ('GetColor DLL function not found');
  GetColorProc := TGetColorProc (FPointer);
  // original code
  Col := ColorToRGB (Color);
  Color := GetColorProc (Col);