Yapmak istediğim olay şu Mysql veritabanı kullanıyorum ve bu veritabanı için INSERT UPDATE gibi işlemleri bir dll içinden True/false kontrollü yapmak istiyorum.
Mysql veritabanı için zeos componentini kullanarak bağlanıyorum
DLL içindeki kod şu şekilde
Kod: Tümünü seç
library lib;
uses
SysUtils,Classes,Windows,Messages,Variants,Graphics,Controls,Forms,Dialogs,ComCtrls,
StdCtrls,ZDataset;
procedure Uyari(msg:AnsiString;tip:Boolean);export;
var
islem : Word;
begin
if tip then
islem := MB_ICONASTERISK
else
islem := MB_ICONERROR;
Application.MessageBox(lpcstr(msg),'Uyarı',islem);
end;
function Yol(app:TApplication):AnsiString;stdcall;
begin
Result := ExtractFilePath(app.ExeName);
end;
function ZExec(z:TZQuery):Boolean;stdcall;
begin
Result := True;
end;
exports
Uyari,
Yol,
ZExec;
{$R *.res}
begin
end.
ünitlerini ekledikten sonra şu şekilde bir hata almaya başladım. bunları eklemeden önce çok rahat bir şekilde bu dll yi kullandığım exede sorun olmıyodum
Ama bu ünitleri ekledikten sonra sorun yaşamaya başladım
exeye de şu şekilde ekledim fonksiyonları
Kod: Tümünü seç
function Yol(app:TApplication):AnsiString;stdcall;external 'lib.dll';
procedure Uyari(msg:AnsiString;tip:Boolean);far;external 'lib.dll';
http://www.malicetin.com/hata.jpg
Acilen yardımcı olursanız sevinirim