[delphi_begin]

Здравствуйте, всем привет.

Делаю неявную загрузку DLL с функцией, которая принимает параметры и возвращает значение, а также отображаем форму.

Вот сама процедура DLL

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Function ShowForm(user_id:string;for_select:boolean):integer; export; stdcall;   begin   dm:=Tdm.Create(nil);   form3:=tform3.Create(nil);   ads_list.user_id:=user_id;   if for_select then form3.BitBtn2.Visible:=true;     FORM3.ShowModal;  result:=DM.IBDS_AIDS.fieldbyname('id').AsInteger; freeandnil(form3); freeandnil(dm);   end;   Вот вызов из приложения:   //объявление Function ShowForm(user_id:string;for_select:boolean):integer; stdcall; external 'Aids.dll';   //вызов i:=ShowForm(cur_usr.USER_ID,true);

MAD: Теги.

Когда вызываю функцию DLL появляется форма, возвращается значение, все как нужно. Но когда я закрываю основное приложение, то выскакивает access violation, который ссылается на DLL. Я так понимаю, что неправильно освобождаю память..
Господа!! Что делать?
Спасибо!

[Alegun]

Вообще-то здесь у вас показана статическая, "явная" загрузка, динамика подразумевает использование неразлучной парочки loadLibrary-FreeLibrary плюс промежуточной getProcAddress для поиска вызываемого кода. Статика уничтожается автоматом менеджером памяти при выходе, но видимо, этого не происходит, в смысле счетчик обращений к библиотеке не нулевой, попробуйте для проверки при завершении выполнить такое(drkb: 01995)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

function KillDll(aDllName: string): Boolean; var hDLL: THandle; aName: array[0..10] of char; FoundDLL: Boolean; begin StrPCopy(aName, aDllName); FoundDLL := False; repeat    hDLL := GetModuleHandle(aName);    if hDLL = 0 then      Break;    FoundDLL := True;    FreeLibrary(hDLL); until False; if FoundDLL then    MessageDlg('Success!', mtInformation, [mbOK], 0) else    MessageDlg('DLL not found!', mtInformation, [mbOK], 0); end;

[icWasya]

Когда создаёте проект DLL, Delphi в начале пишет длинный комментарий.
Если перед тем, как его стирать, внимательно прочитать и выполнить рекомендации, которые там написаны, то возможно эта ошибка пропадёт.

[delphi_begin]

Сообщение от icWasya

Когда создаёте проект DLL, Delphi в начале пишет длинный комментарий.
Если перед тем, как его стирать, внимательно прочитать и выполнить рекомендации, которые там написаны, то возможно эта ошибка пропадёт.

Прочитал. Заменил все параметры на shortstring и все ошибка пропала. Можете рассказать подробнее каких именно параметров это касается? Входных или выходных?

[Alegun]

И тех, и тех

...Если динамическая библиотека в процессе работы использует переменные или функции, осуществляющие динамическое выделение памяти под собственные нужды (длинные строки, динамические массивы, функции New и GetMem), а также, если такие переменные передаются в параметрах и возвращаются в результатах, то в таких библиотеках обязательно должен использоваться модуль ShareMem. При этом в секции uses модуль должен располагаться на первом месте. Об этом напоминает комментарий, автоматически добавляемый в файл динамической библиотеки при создании

Управление этими операциями осуществляет специальный диспетчер печати BORLANDMM.DLL. Он должен распространяться вместе с динамическими библиотеками, использующими модуль ShareMem