dll yükeleme hatası

[vedatkaba]

Kod: Tümünü seç

var
  Form1: TForm1;
  procedure mesaj;external 'deneme.dll';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
mesaj;
end;

end.

Kod: Tümünü seç

library deneme;

{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }

uses
  SysUtils,
  windows,
  dialogs,
  Classes;

{$R *.res}
procedure mesaj;
begin
showmessage('www.delphiturkiye.com');
end;
exports mesaj;

begin
end.
 

Ama yükelenemedi hatası veriyor..basit bir olayı dahi yğkleyemedi sorun delphidemi yoksa koddamı..

[delphist]

Hocam aramalısın bu konu ile ilgili hem benim yazdığım hem de sitede var olan konular var sorununu çözebilirsin...Kolay Gelsin

[fduman]

deneme.dll'in application'ın çalıştığı yerde olmalı veya path içinde tanımlı bir klasörde olmalı.

[vedatkaba]

hocam uygulamaın çalıştığı yerde yolunu belirterekte denedim ama maalesef olmadı. arıyorum ama birşeylerde bulamadım somut olarak.

[vkamadan]

merhaba ,

DLL içindeki ,

Kod: Tümünü seç

procedure mesaj;
begin
showmessage('www.delphiturkiye.com');
end;
exports mesaj; 

procedure ni ,

Kod: Tümünü seç

procedure mesaj;export;
begin
showmessage('www.delphiturkiye.com');
end;
exports mesaj; 

şeklinde düzenlersen çalışması gerekir.
iyi çalışmalar.

[vedatkaba]

hocam bu şekilde çalıştı ama prıjeyi kapaınca "bordbk70.dll" acces violation hatası erdi anlamsız gibi bir durum ama.

[Ekingen]

dll dosyalari application un calistigi klasörde olmali. kullanacagin unit leri de uses kisminda belirtmen gerekir. daha sonra procedure un sonuna export veya stdcall olarak ekleme yapman gerekiyor. ki diger formlardan cagirabilesin. en alttaki begin end den önce exports yazip hemen önüne procedure ismini belirtmen gerekiyor. bunu projenden cagirmak icin ise

örnegin.

Kod: Tümünü seç

 
procedure mesaj;external'dosya.dll';

procedure TForm1.mesajgoster;
begin
mesaj;
end;

bu sekilde de projen icinde dll icindeki prosedürü cagirabilirsin...

belirttigin dll hatasi icin yorum yapamayacagim... ben de öyle bir hata vermiyor...[/code]

[ibr_ozdemir]

kolay gelsin
delphi 6 kullanıyorum
6 da bu dll sistemi çalışmaz
çalışması için projenin "uses" kısmına ShareMem birimini eklemen gerekiyor ayrıca dll e de bu birimi ekle o zaman sorun çözülebilri
birde fazlalıklardan kurtarınca

library deneme;

uses
SysUtils, ShareMem,
windows,
dialogs,
Classes;

procedure mesaj; stdcall;
begin
showmessage('www.delphiturkiye.com');
end;

exports mesaj;

end.

şekline giriyor

not : string yerine pchar kullanırsan ShareMem e gerek kalmaz tabi o zamanda showmessage yordamına veda etmelesin

[ikra]

ek olarak:
ShareMem uses kisminin en basinda olmali ve herseyden önce o yüklenmeli. bir de FastShareMem cikti yanilmiyorsam biraz daha gelismis bir sey. Dll icinde String kullanilamayacagi ve bunun icin PChar kullanilmasi gerektigi belirtilmis. Söyle ki, eger Dll dosyasindan islem yaptirip unit e string göndereceksen burada sapitmalar olabiliyor onun icin pchar kullanmalisin. Fakat Dll icinde string e islem yaptirip daha sonra yine direk olarak msg ile string gösterteceksen, yani unit e bir aktarim yok ise string kullanabilirsin. örnegin showmessage gibi...