Повторный вызов функции из dll

[Smertnik]

Здравствуйте! Возникла следующая проблема:
В программе вызываются функции из подключенных динамически dll. Перед непосредственным вызовом функции грузится нужная длл, выполянется функция, после чего dll сразу освобождается. (dll написана мною)

модификатор вызова WINAPI:
typedef void (WINAPI cfunc(TDiagramBlock *));

(пробовал модификаторы __cdecl, __import, __stdcall...)

при первом вызове функции все отлично работает, но при повторном ошибка Invalid Pointer Operation... где-то падает указатель.

Пробовал загружать все длл в начале программы и выгружать в конце, все равно падает.

Программа строит диаграммы из блоков и расчитывает их... то есть сами функции блоков храняться в длл... При нажатии на кнопку Расчет программа расчитывает дерево блоков для каждого вызвывая функцию из длл... первый расчет работает отлично....при повторном ошибки(((((

Копал по всему интернету, ничего вразумительного не нашел...(((

[ACE Valery]

А код посмотреть можно?
Вы, наверное, где-то создаете какой-то объект и не удаляете его. При повторном запуске вы снова его создаете.
Хотя чего гадать на кофейной гуще? Код в студию!

[Smertnik]

На самом деле проект огромный... вот тогда пример функции, в которой вызывается сама функция dll:

typedef void   (WINAPI  OutPutF(String, TDiagramBlock *));
//...
BOOL __fastcall OutPutFunc(String Params, TDiagramBlock * B, String DllName)
{
        HINSTANCE hDll = NULL;
        OutPutF * COUF = NULL;
        hDll = LoadLibrary(DllName.c_str());
        if (hDll != NULL)
        {
                COUF = (OutPutF *)GetProcAddress   ((HMODULE)hDll,"_OutPutFunc");
                if (COUF != NULL) COUF(Params, B);
                else Application->MessageBoxA("Не обнаружен адрес DLL Функции!","Ошибка!", MB_OK | MB_ICONERROR);
                FreeLibrary(hDll);
                return true;
        }
        Application->MessageBoxA("Ошибка загрузки DLL!","Ошибка!",MB_OK | MB_ICONERROR);
        return false;
}

Строка Params всегда передается корректно! Насчет блока TDiagramBlock * B тоже сомнений впринципе нету...то есть параметры все впорядке.
Вот функция в dll:

void OutPutFunc(String Str, TDiagramBlock * B)
{
    if ((Str != NULL) && (B != NULL))
    {
        if (B->TextCells->Count == 0) B->TextCells->Add();
        B->TextCells->Items[0]->Alignment =  taLeftJustify;
        B->TextCells->Items[0]->Left = 20;
        B->TextCells->Items[0]->Top = 33;
        B->TextCells->Items[0]->Width = 60;
        B->TextCells->Items[0]->Height = 15;
        B->TextCells->Items[0]->Text = Str;
    }
}

И хедер в dll:

#ifndef _OUTPUTBLOCK_H
#define _OUTPUTBLOCK_H

#ifdef __DLL__
# define DLL_EI __declspec(dllexport)
#else
# define DLL_EI __declspec(dllimport)
#endif

#include <atDiagram.hpp>

extern "C" void DLL_EI OutPutFunc(String, TDiagramBlock * B);
#endif

Здесь я привел только одну функцию...на самом деле в каждой dll их минимум по 3.

А и главный проект и dll компилируются без Runtime packeges. ( А также без Use dynamic RTL и Use debug libraries)

[Smertnik]

А и вот еще какой момент... если допустим использовать функцию из dll в которую ничего не передается и которая просто возвращает значение int то все работает корректно...без падений... пробовал передавать в dll по ссылочке TDiagramBlock * &B и String & Params...не падает при закрытии программы....но все еще падает при повторном вызове функции расчета....
А также вот еще какой факт: если строку Params не менять...то программа падает при втором расчете сразу, если же внести изменения в нее, то программа не падает при расчетах, но падает при выходе из программы!!!!!

[Stilet]

Здается мне что параметр B неверно передается.
Что будет если дважды передать один и тот же параметр и теми же значениями?
Вот это

if ((Str != NULL) && (B != NULL))

не верно срабатывает. имхо.

[Smertnik]

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

Здается мне что параметр B неверно передается.
Что будет если дважды передать один и тот же параметр и теми же значениями?
Вот это

не верно срабатывает. имхо.

Я эту проверочку дописал уже после того как нашел ошибку ... и без проверки ругался тоже... я тоже думаю что дело в указателе на объект класса TDiagramBlock.... но мне просто обязательно надо передавать его в длл...