İ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.
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.
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.
@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.
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.
İ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.
Tekrar selam,
siz {midNetwork,} iptal etmişsiniz, sanırım bende oda açık olduğu için sorun yaratmış olabilir.
