Delphide yazdığım DLL'i Visual Basic'de kullanma HK.

[ieski]

S.A.
Arkadaşlar Delphide YTL diye bir DLL oluşturdum ama bir türlü VB'de kullanamadım durmdana hata verdi.

Şunu merak ettim Delphide yazdığımız DLL'i Visual Basic'te kullanamazmıyım

[aslangeri]

a.s.
geriye dönderdiğiniz verinin tipi nedir. tipten kaynaklanana bir sıkıntı olabiir.
birde verdği hata mesajı nedir.
kolay gelsin.

[ieski]

geriye döndürdüğüm değer string

hata mesajı alamıyorum direk proğram kapanıyor...

[vkamadan]

Merhaba,
Eğer tasarladığınız DLL başka programlama dillerinden çağrılacaksa, öncelikle ihraç edeceğiniz metodların sonuna stdcall ifadesi eklemelisiniz ,ve kesinlikle String gibi delphiye özel veri tiplerini kullanmamalısınız, onun yerine PChar kullanmalısınız.
İyi çalışmalar.

[sabanakman]

Kod: Tümünü seç

function DllFunc(Liste:PChar;var Boyu:DWord):Integer;stdcall;
var S:String; i:Integer;
begin
  try
    Result:=0;
    
    S:='STRİNG DEĞER';//<--<<--<--<<--
    i:=Length(S);
    if Boyu>i then Boyu:=i+1 else S:=Copy(S,1,i-1);
    StrCopy(Liste,PChar(S));
    Result:=1;
  except
    Result:=-1;
  end;
end;

bu örnek dll fonksiyonu aynı getcomputername api fonksiyonu yapısındadır. Delphi tarafından kullanımına örnek verilirse ...

Kod: Tümünü seç

var Dizi:Char[1..255]of Char; n:DWORD;
begin
  n:=SizeOf(Dizi);
  DllFunc(@Dizi,n);
  ShowMessage(Dizi);
//////////////////////////////////
  n:=SizeOf(Dizi);
  GetComputerName(@Dizi,n);
  ShowMessage(Dizi);
end;

şeklindedir. Eğer Visual Basic içinden GetComputerName API fonksiyonunu kullanabiliyorsan bu şekilde yazılan fonksiyonda çalışacaktır çünkü yapıları tamamen aynıdır.

[ieski]

teşekkür ederim.