Bir Dll Sorusu..!

[feinpus]

İlk olarak 2000/NT/XP ortamında Delphi 7 kullanıyorum.

Program çalışırken göstereceğim bir dll dosyasını nasıl yüklerim?

Ve bu dll dosyasının içerisindeki fonksiyon isimlerini nasıl bulabilirim?

[husonet]

Bu konu hakkında hiç uygulama yapmadım ama bir arkadaşımdan duyduğum kadarıyla uzantısını Bpl eye çevir. Component işlemlerini yap. Ondan sonra bileşen gibi fonksiyonlarına eriş.

Kolay Gelsin...

[feinpus]

Bunu ben program çalıştığı anda yükleyip içerisindeki fonksiyonları bularak bunların içerisinden istediğim fonksiyonları kullanmak istiyorum sanırım senin söylediğin gibi olmaz herhalde.

[husonet]

İstediğiniz şekilde olmasa bile Fonksiyonları görmeniz açısından faydalı olabilir. Ama tahminim isteğinizi karşılar.

Başka bir önerim ise!!!
Run time için
Fonksiyon isimlerini bildikten sonra çağırma işlemini şu şekilde yapabileceğin kanısındayım

Kod: Tümünü seç

Fonksiyon olarak API tanımı : 
     Function isim ( parametreler : Tip ) :Tip ;Far ;External ‘Kütüphane adı’ ; 

Kütüphane adı dll uzantılı dosyayı vermelisin.

Bu söylediklerimi fikir olarak veriyorum.

Kolay Gelsin...

[feinpus]

Tamam bu kodu daha programı derlemeden yerleştirdiğimde kullanabiliyorum ama hiç bir fonksiyon tanımlamadan derlediğim bir dll içindeki fonksiyonu nasıl çağırırım.

Mesela şöle bir fonksiyon yazıyorum;

function dllcagir(funcismi,dllismi:string):string;
begin
//Bu boşluğu nasıl doldurmalıyım ki daha sonra
end;


dllcagir('mesaj','project1.dll');

//dediğimde program tanısın...

[gkimirti]

delphi dll dynamic loading diye aramalar yapsanız epey sonuc blursunuz
ilk sırada
http://delphi.about.com/b/a/007329.htm
bir de benim onceden buldugum faydalı bir sitede
http://www.developers.demon.co.uk/dynamicdll.html

[husonet]

Yapmak istediğiniz olay için biraz daha detay verebilirmisiniz? Anlayamadım

[feinpus]

Aslında demin runtime olarak dll yüklemeyi buldum çok basit bir yolmuş aslında

Kod: Tümünü seç

LoadLibrary('dllname');

dediğinde dll dosyasını yüklüyor fakat şimdide içindeki fonksiyonların komutlarını runtime olarak nasıl verebileceğimi arıyorum...

Bir daha hatırlatayım ben programa programı derlemeden önce hiç bilmediğim bir dll yükleyecem yani çalışma anında aklıma hangi dll ismi gelirse onu.

[Masterix]

aşağıdaki örnek bir fikir verecektir.

iyi çalışmalar

Kod: Tümünü seç

procedure DllSample;
var
  dllHandle: THandle;
  dllFunc: function(Value: Integer): Boolean;
  Flg: Boolean;
  dllTestValue: Integer;
begin
   dllHandle := LoadLibrary('Abc.Dll');
   if dllHandle <> 0 then
   begin
      @dllFunc := GetProcAddress(dllHandle, 'Fonksiyon1');
      if @dllFunc = nil then
      begin
         //böyle bir fonksiyon yok
      end
      else
      begin
         //fonksiyon bulundu
         flg := dllFunc(dllTestValue);
      end;
      FreeLibrary(dllHandle);
   end;
end;