Dll Yardım Acil
//Dll dosyasının içeriği
uses
SysUtils,
Classes,
Forms,
provizyon in 'provizyon.pas' {Dm: TDataModule},
ProvizyonIslemleri1 in 'ProvizyonIslemleri1.pas';
{$R *.res}
Function ProvizyonSorgulama(x:String;x1:String;x2:String):B oolean;Export;
Begin
ProvizyonSorgulama := Dm.Exec(X,X1,X2);
end;
exports ProvizyonSorgulama;
begin
end.
//------------------------------------------------
//Dll Çağırdığım yer//---
implementation
FUNCTION ProvizyonSorgulama(x:String;x1:String;x2:String):B oolean;EXTERNAL 'Proviz.dll';
procedure yukle;
var a: Boolean;
begin
try
a := ProvizyonSorgulama('1','11340068','94172182');
if a then
ShowMessage('Tamam') else ShowMessage('Hata');
except
on e : Exception do
ShowMessage(e.ClassName+#13#10+e.Message);
end;
end;
EAccessViolation
Access violation at address 005A4B32 in module 'Proviz.dll'. Read of address 000000F0
Hatasını Alıyorum Nasıl Bir Hatam var acaba yardımcı olursanız sevinirim. Şİmdiden herkese teşekkürler...
|