مشكل در كار با Dll

سلام بر دوستان عزيزم
به مشكلي برخوردم كه نمي دونم از كجاست. من يه DLL به متن زير نوشتم:

کد:

---

library Rooting;
uses
  Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,
  Forms,Dialogs,ADODB;
{$R *.res}
Procedure SQLManager(Query:TADOQuery;SQL:Widestring);
begin
  Query.Active:=false;
  Query.SQL.Clear;
  Query.SQL.Add(SQL);
  Query.Active:=true;
end;
  Exports SQLManager;
end.

---

حالا اين DLL رو در برنامه خودم به صورت ديناميكي لود كردم. و خوب هم جواب ميده. يعني لود ميشه و هر SQL ي كه بهش ارسال ميشه رو توي Query برنامه اعمال مي كنه. مشكل اينكه كه وقتي از برنامه خارج ميشم اول يه ارور ويندوزي (همون پنجره اي كه Send و Don`t send داره) ميده و بعد هم ارورر Accses validation (دسترسي به حافظه) ميده. هر كاري كردم درست نشد.
توي فرمم يه كليد ساختم و توي اون اين دستورات رو نوشتم:

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
type
    TQuerying=Procedure (Query:TAdoQuery;SQL:Widestring);
var
  QueryManager:TQuerying;
  Hand:THandle;
begin
  Hand:=Loadlibrary('h:\MyWork\CD-Bank\DLL-Source\Rooting.DLL');
  if Hand<>0 then
  begin
    @QueryManager:=GetProcaddress(Hand,'SQLManager');
    if @QueryManager<>nil then
        QueryManager(ADOQuery1,'Select * From Datas');
  end
  else
    begin Showmessage('The Path of Dll is rong ...'); Exit; end;
  Freelibrary(Hand);
end;

---

اشكال از كجاست؟
بايد بگم به صورت External و غير ديناميكي هم لود كردم و باز هم همونجوري هستش.
ممنون ميشم كمكم كنيد.
باي

سلام
فايل dll رو به پوشه windows/system32 كپي كن و به صورت زير لود كن:

کد:

---

Loadlibrary('Rooting.DLL');

---

سلام
مشكلي ربطي به نحوه و محل لود كردن dll .

مشكل در پاس دادن SQLدستور است، Select * From Datas را از برنامه اصلي منتقل كنيد به داخل dll ديگه اين خطا را نميگيريد.

WideString را به String تبديل كنيد.

بجاي Query.Active:=true از Query.ExecSQL استفاده كنيد.

سلام
خيلي ممنون از فرهاد جان و نانفورس جان عزيزم.
Widestring رو به String تبديل كردم. درست شد. ولي نميفهمم، چرا به خاطر Widestring ارور ميده. يعني دلفي متغيري از اين نوع رو نمي تونه بين برنامه و DLL ردو بدل كنه؟!!!
به هر حال از كمكتون خيلي ممنونم.
موفق باشين
باي

سلام
دوباره من يه DLL ديگه نوشتم و به همون مشكلي كه در پست اول ذكر كرده بودم دچار شده.
متن DLL:

کد:

---

type
  Mainarray=array [0..11] of string;
 
 
Procedure Soft_Setarr(var arr:Mainarray;index:integer);
var
  fif:Textfile;
Begin
  index:=0;
  assignfile(fif,'Units\SX_Lis.OCR');
  reset(fif);
  While not eof(fif) do
  begin
    Readln(fif,arr[index]);
    index:=index+1;
  end;
  Closefile(fif);
end;
Procedure Hard_Setarr(var arr:Mainarray;var index:integer);
var
  fif:Textfile;
Begin
  index:=0;
  assignfile(fif,'Units\HX_Lis.OCR');
  reset(fif);
  While not eof(fif) do
  begin
    Readln(fif,arr[index]);
    index:=index+1;
  end;
  Closefile(fif);
end;
Procedure SEngin(Query:TADOQuery;Datatype:char;Searchsub:string;Listindex:integer);
var
  index,i:integer;
  Sel:Mainarray;
  Table:string;
begin
  Case Datatype of
    'S':Begin Soft_Setarr(sel,index);Table:='S_Datas';end;
    'H':Begin Hard_Setarr(sel,index);Table:='H_Datas';end;
  end;
  Query.Active:=false;
  Query.SQL.Clear;
  for i:=0 to Index do
  Begin
    if i=Listindex then
      Query.SQL.Add('Select * From '+Table+' where '+sel[i]+' Like "%'+Searchsub+'%"');
  end;     
  Query.Active:=true;
end;
  Exports SEngin;
Begin
end.

---

كاري كه اين DLL‌ مي كنه معلومه. بر اساس گزينه اي كه از ComboBox دريافت مي كنه جستجو مي كنه. DLL كار مي كنه. وقتي از برنامه خارج مي شم ارورر Invalid Pointer operation ميده. تو مورد قبلي گفتم كه Widestring رو به String تبديل كردم درست شد. ولي اينجا...
موفق باشين
باي

سلام
راستش توي اينترنت جستجو كردم و مقاله اي از آقاي زيراك معروف از Delphi.about خوندم. 5 راه گفته بودن. يكي از راهها و البته راحتترين اونها اين بود كه يونيت Sharemem رو به DLL و Application اضافه كنم. همچنين فايل BORLNDMM.DLL رو هم به كنار برنامم بريزم. اين كار رو كردم و درست شد. ولي حالا وقتي برنامه رو مي بندم ارور Run Time ميده كه اصلا اگه از DLL استفاده هم نكنم بازم هم ميده. يعني حتي اگه فرم رو باز كنم و ببندم. به نظر شما اشكال از چيه؟
واقعيتش رو بخواين توي اينترنت كه جستجو كردم هزار نفر به اين مشكل بر خورده بودن و البته 100 جور جواب هم براش داده بودن. والا من ديگه گيج شدم.

منظور از ارور RunTime چيه ؟ Error با كد نشون ميده يا متن هست يا ... ؟
بيشتر توضيح بده شايد تونستم كمكت كنم ...

...

ارورر به شكل زيره:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اگه بتونين كمكم كنيد ممنون ميشم.

سلام
جوينده، يابنده است.:27:
راه حل درستش رو پيدا كردم. يونيتي به نام FastSharemem رو از اينترنت دانلود كردم. فقط كافيه كه اين يونيت رو به DLL و برنامه اصليتون اضافه كنيد تا مشكل حل بشه. توصيه مي كنم دوستان هم دانلود كنن. بد نيست.

لينك دريافت (4Kb)

کد:

---

http://rapidshare.com/files/90330428/fastsharemem-2.10.zip.html

---

موفق باشين
باي

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام
جوينده، يابنده است.:27:
راه حل درستش رو پيدا كردم. يونيتي به نام FastSharemem رو از اينترنت دانلود كردم. فقط كافيه كه اين يونيت رو به DLL و برنامه اصليتون اضافه كنيد تا مشكل حل بشه. توصيه مي كنم دوستان هم دانلود كنن. بد نيست.

لينك دريافت (4Kb)

کد:

---

http://rapidshare.com/files/90330428/fastsharemem-2.10.zip.html

---

موفق باشين
باي

---

سلام
تبريك ميگم، كم كم داريد برنامه نويس ميشيد.