Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
function parametre vermeden sonuçu alma
#1
İyi günler.

yazdığım dll içinde aşağıdaki  function var

function makina_kodu:Longint;
begin
 MachineModifier := ABS(CreateMachineID([midUser, midSystem, {midNetwork,} midDrives]));
 RegistrationFile := inttostr(MachineModifier)+'.lsn';
 result := MachineModifier;
end;

bu function u  proje içinden çağırmak istediğimde tanım bölümünde 
 private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 LisansAlFrm: TLisansAlFrm;
 function Makina_Kodu:Longint; external 'Nk_Dll.dll';
 şeklinde tanımlı

bu şekilde çağırıyorum
procedure TLisansAlFrm.FormActivate(Sender: TObject);
var
makina_ozel:longint;
begin
 makina_ozel:= Makina_Kodu;
 ShowMessage(inttostr(makina_ozel));
 end;

resimdeki hatayı alıyorum yardımcı olabilir misiniz.


Ek Dosyalar Resimler
   
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla
#2
Paylaştığınız DLL kodlamasındaki makina_kodu fonksiyonunun, diğer uygulamalardan çağırılabilmesi için, DLL içindeki gerekli exports satırını göremedim.
WWW
Cevapla
#3
DLL'i siz yazdığınıza göre Debug modda çalıştırıp sorun DLL'de mi yoksa uygulamada mı anlayabilirsiniz. 

[*]Kullanmaya çalıştığınız DLL'e ulaşılamadığında bu hatayı alabilirsiniz.
[*]64 bit için derlenmiş DLL'i 32 bit uygulamada kullanmaya çalıştığınızda bu hatayı alabilirsiniz. Yada tam tersi.
There's no place like 127.0.0.1
WWW
Cevapla
#4
@SimaWB'nin dediği daha doğru.Hata mesajının başlığına pek dikkat etmeden yazdım.
Muhtemelen zaten export etmişsinizdir.Aksi durumda access violation hatası alınabilirdi.
WWW
Cevapla
#5
Selam,
Hata sebebi değilde kullandığınız fonksiyon ile ilgili bi tecrubemi paylaşayım. Daha önce bu yolla makine id si oluşturup online lisanslama yapıyordum, sanırım win 10 kurulu bir makina idi, makina kodu 2-3 günde bir değişiyordu, sebebini hiç araştırmadım direk vazgeçmiştim bu olaydan.
WWW
Cevapla
#6
İlginiz için hepinize teşekkür ederim.
Allah c.c Razı olsun
Dün sabahtan beri yeniden yazmadığım yeri kalmamıştı.
Şu an sayın SimaWB nin yorumunu okudum yorumunda belirtiği gibi
[*]64 bit için derlenmiş DLL'i 32 bit uygulamada kullanmaya çalıştığınızda bu hatayı alabilirsiniz. Yada tam tersi.

DLL 32 bit Exe 64 bit nasıl oldu nasıl yaptım anlamadım ama sorun düzeldi.

Sayın esistem bu kodlamanın orjinal hali olan Onguard daki örnek halini uzun zamandır kullanıyorum sorun olmadı ama önerinizi dikkate alacağım inşallah.
"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla
#7
Tekrar selam,
siz {midNetwork,} iptal etmişsiniz, sanırım bende oda açık olduğu için sorun yaratmış olabilir.
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  IEC 61850 Potokolünden veri alma shooterman 1 413 14-03-2024, Saat: 11:38
Son Yorum: shooterman
  Problem - ZKTeco Cihazlardan Anlık Veri Alma mad85 16 7.951 25-12-2023, Saat: 11:35
Son Yorum: osiso
  [ÇÖZÜLDÜ]Firebase Bearer Token Alma shooterman 8 620 05-12-2023, Saat: 12:17
Son Yorum: shooterman
  yeni kayıtta bildirim alma ercanskose 5 1.108 26-06-2023, Saat: 13:04
Son Yorum: ercanskose
  Stringgrid Hücre Bilgisi Alma oguzk06 5 844 03-05-2023, Saat: 19:39
Son Yorum: oguzk06



Konuyu Okuyanlar: 1 Ziyaretçi