Работа с DLL в Delphi

[Vladimir4152]

Написал свою DLL. Экспортировал из нее функции, процедуры. В программе подгружаются и работают, но при завершении программы выдает "Invalid Pointer Operation"

[p51x]

ошибка в 43 строке

[Vladimir4152]

Извиняюсь. Вот обьявления процедур DLL:

 ...
procedure loadModules(cursePath: string; var PageView,MediaPlaying,TestsActivity,ExerciseActivity,ExerciseView,Compiling,JudgesActivity,Interprit: Boolean); stdcall;
...
procedure loadBook(cursePath: string; TreeView: TTreeView; out AudioLinks:Links; out PageLinks:Links); stdcall; export;
...
procedure loadTests(cursePath:string; out testCol,viewedTest:integer; out Tests:TestArr; out ProTests:Boolean); stdcall;
...
implementation
procedure loadExercises(cursePath:string; out langFam,compFile,LaunchParameters: string;
  interprit: Boolean; out ILinks,OLinks: ExerciseTFiles; out Exercises: ExerciseArr); stdcall;
...

exports
  checkCurse name 'checkCurse', loadModules name 'loadModules', loadBook name 'loadBook', loadTests name 'loadTests', loadExercises name 'loadExercises';

А вот код подгрузки:

...
  loadBook:procedure (cursePath: string; TreeView: TTreeView; out AudioLinks:Links; out PageLinks:Links); stdcall;
  loadTests:procedure (cursePath:string; out testCol,viewedTest:integer; out Tests:TestArr; out ProTests:Boolean); stdcall;
  loadExercises:procedure (cursePath:string; out langFam,compFile,LaunchParameters: string; interprit: Boolean; out ILinks,OLinks: ExerciseTFiles; out Exercises: ExerciseArr); stdcall;
...
procedure loadModules(cursePath: string; var PageView,MediaPlaying,TestsActivity,ExerciseActivity,ExerciseView,Compiling,JudgesActivity,Interprit: Boolean); stdcall; external 'curse_loader.dll' name 'loadModules';
...
loadModules(CursePath,PageView,MediaPlaying,TestsActive,ExerciseActivity,ExerciseView,Compiling,JudgesActivity,Interprit);
libHandle:=LoadLibrary(pChar('curse_loader.dll'));
loadBook:=GetProcAddress(LibHandle,'loadBook');
loadTests:=GetProcAddress(LibHandle,'loadTests');
loadExercises:=GetProcAddress(LibHandle,'loadExercises');
if PageView then LoadBook(CursePath,FrameBook1.TreeView1,AudioLinks,PageLinks);
if TestsActive then LoadTests(CursePath,testCol,viewedTests,Tests,ProTesting);
if ExerciseActivity then LoadExercises(CursePath,langFam,compFile,LaunchParameters,interprit,ILinks,OLinks,Exercises);
LoadBook:=nil;
loadTests:=nil;
loadExercises:=nil;
FreeLibrary(libHandle);

Вот пользовательские типы, которые использовал:

  TestArr=array[1..2000,1..11] of string;
  ExerciseArr=array[1..2000,1..5] of string;
  ExerciseTFiles=array[1..2000,1..1000] of string;
  Links=array[1..2000] of string;

[Пепел Феникса]

вы читали комментарий в заготовке ДЛЛ?
чую что нет.
а почитайте внимательно.
там про тип string четко сказано.

[mss]

stdcall зачем ? Щоб було ?)

[Vladimir4152]

stdcall зачем ? Щоб було ?)

http://programmersforum.ru/showthread.php?t=23421

Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters.

Насколько я понял, то надо прописать ShareMem в uses главной формы, DLL и проэкта, либо же использовать pChar или ShortString. Прописывал - результат нулевой, хотя в некоторых случаях прога просто оставалась висеть в памяти.

[mss]

И чего ?

Откуда "другая библиотека", написанная, например, на Суахили, знает что такое дельфийский тип String ?)

stdcall твой ей что мертвому припарка)

> надо прописать ShareMem

Откуда Суахили-библиотека знает про твой ShareMem ?)

[Vladimir4152]

Без stdcall ДЛЛ здыхает, и сразу выдает ошибку!!!

[mss]

> Без stdcall ДЛЛ здыхает, и сразу выдает ошибку

У меня не "здыхает" и не "выдает ошибку".
Что я неправильно делаю ?)

[Vladimir4152]

И Dll, и главная программа написаны на Delphi7!!!