DLL ładowana dynamicznie i TListView

[Darek_C++]

Witam ponownie,
Kod testowej biblioteki dll mającej za zadanie umieścić danych w TListView jest następujący:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#include <vcl.h>
#include <windows.h>
#pragma hdrstop

#pragma argsused

extern "C" __declspec(dllexport) void __stdcall DoTestDll(TListView* );

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
        return 1;
}
//---------------------------------------------------------------------------
void __stdcall DoTestDll(TListView* ListView1)
{
        for (int jj=1; jj <= 10; jj++)
        {
                TListItem * ElementListy = ListView1->Items->Add();
                ElementListy->Caption = "Dane z DLL: "+(String) jj;
                ElementListy->SubItems->Add("---");
        }
}

Testowy kod formularza wywołujący funkcję z DLL'ki:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

//#pragma comment(lib, "TestDll.lib")

TForm3 *Form3;

//extern "C" __declspec(dllimport) void __stdcall DoTestDll(TListView *);

//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{

        for (int jj=1; jj <= 10; jj++)
        {

                TListItem * ElementListy = ListView1->Items->Add();
                ElementListy->Caption = "Dane: "+(String) jj;
                ElementListy->SubItems->Add("---");
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
{
        //DoTestDll(ListView1);
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button4Click(TObject *Sender)
{
        typedef void ( * pcDoDll )( TListView *ListView1 );
        HINSTANCE biblio = LoadLibrary("TestDll.dll");
        if (biblio == NULL)
        {
                ShowMessage("Brak pliku");
        }
        else
        {
                pcDoDll _WykonajZDll = (pcDoDll)GetProcAddress(biblio,"DoTestDll");

                if (_WykonajZDll !=NULL)
                {
                        _WykonajZDll(ListView1);
                }
        }
        FreeLibrary(biblio);
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
        Application->Terminate();      
}

Problem jest taki, że przy wywoływaniu funkcji z DLL ładowanego dynamicznie dane są wczytane do TlistView, ale przy zamykaniu formularza [ okna programu] wywalany jest wyjątek do tego dwa razy ten sam:

"First chance exception at $7C812AFB. Exception class EAccessViolation with message 'Access violation at address 0042A23D in module 'Project1Formularz.exe'. Write of address 00D206CC'. Process Project1Formularz.exe (2620)"

Jeśli wykomentuję zwalnianie biblioteki DLL //FreeLibrary(biblio); wyjątek nie jest emitowany, ale tak być nie może.

Pytanie brzmi dlaczego tak się dzieje

[Cyfrowy Baron]

Biblioteka tylko pozornie jest częścią aplikacji, w rzeczywistości jest odrębnym procesem. Wykorzystując bibliotekę ładujesz do ListView w aplikacji dane poprzez argument funkcji w bibliotece, więc przesyłasz ListView z aplikacji do biblioteki. Występuje tutaj jakiś wyciek pamięci, ale nie bardzo go rozumiem. Jeżeli zwolnisz bibliotekę przed zamknięciem aplikacji, to wyciek nie powinien się pojawić, jeżeli jednak w chwili zamykania aplikacji biblioteka nie jest zwolniona, to oczywiście jest wyciek, gdyż ListView z aplikacji znajduje się w bibliotece, aplikacja przy zamknięciu niszczy wszystkie swoje obiekty, ale nie może zniszczyć obiektu w bibliotece.
Nie jestem pewien czy tak jest, niech kto inny się wypowie.

[Darek_C++]

Jeśli wykomentuję zwalnianie biblioteki DLL //FreeLibrary(biblio); wyjątek nie jest emitowany, ale tak być nie może.

[Cyfrowy Baron]

Jeśli wykomentuję zwalnianie biblioteki DLL //FreeLibrary(biblio); wyjątek nie jest emitowany, ale tak być nie może.

To mi podsuwa pewne podejrzenia. Wykomentuj tą linię, ale zamiast zamykać aplikację komendą Application->Terminate() zamknij ją krzyżykiem, lub poleceniem Close(), a następnie opisz efekty.

[Darek_C++]

Jeśli biblioteka nie jest zwalniana czyli daje:
// FreeLibrary(biblio);
przy zamykaniu krzyżykiem okna jak i Application->Terminate(); wyjątek nie jest emitowany.
-------
Jeszcze dziwniejsze jest to, że jak odkomentuje kod realizujący ładowanie statyczne czyli:
#pragma comment(lib, "TestDll.lib")
extern "C" __declspec(dllimport) void __stdcall DoTestDll(TListView *);
DoTestDll(ListView1);
Wyjątek nie jest emitowany

Chyba, że znowu zakomentuję
//DoTestDll(ListView1);
i pojawia się wyjątek co IMHO świadczy o tym, że jej samo dołączenie statyczne nic nie zmienia.

[Cyfrowy Baron]

Wydaje mi się, że to oznacza, iż po zwolnieniu biblioteki ListView pozostaje w niej, więc aplikacja przy zamykaniu nie ma do niego dostępu, co wywołuje błąd. Oczywiście zgaduję.
Podam przykład dynamicznego ładowania i zwalniania biblioteki z pliku pomocy C++Builder 2010. Spróbuj przerobić to na ten sposób:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

// A simple program that uses LoadLibrary and
// GetProcAddress to access myPuts from Myputs.dll.
 
#include <stdio.h>
#include <windows.h>
 
typedef int (*MYPROC)(LPTSTR);
 
VOID main(VOID)
{
    HINSTANCE hinstLib;
    MYPROC ProcAdd;
    BOOL fFreeResult, fRunTimeLinkSuccess = FALSE;
 
    // Get a handle to the DLL module.
 
    hinstLib = LoadLibrary(TEXT("myputs"));
 
    // If the handle is valid, try to get the function address.
 
    if (hinstLib != NULL)
    {
        ProcAdd = (MYPROC) GetProcAddress(hinstLib, TEXT("myPuts"));
 
        // If the function address is valid, call the function.
 
        if (NULL != ProcAdd)
        {
            fRunTimeLinkSuccess = TRUE;
            (ProcAdd) (TEXT("Message via DLL function\n"));
        }
 
        // Free the DLL module.
 
        fFreeResult = FreeLibrary(hinstLib);
    }
 
    // If unable to call the DLL function, use an alternative.
 
    if (! fRunTimeLinkSuccess)
        printf("Message via alternative method\n");
}
 

[Darek_C++]

Dałem taki kod:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm3::Button5Click(TObject *Sender)
{
        typedef int (*MYPROC)(TListView *);
        HINSTANCE hinstLib;
        MYPROC ProcAdd;
    BOOL fFreeResult, fRunTimeLinkSuccess = FALSE;
 
    // Get a handle to the DLL module.
 
        hinstLib = LoadLibrary("TestDll.dll");
 
    // If the handle is valid, try to get the function address.
 
    if (hinstLib != NULL)
        {
                //pcDoDll _WykonajZDll = (pcDoDll)GetProcAddress(biblio,"DoTestDll");
                ProcAdd = (MYPROC) GetProcAddress(hinstLib, "DoTestDll");
 
        // If the function address is valid, call the function.
 
        if (NULL != ProcAdd)
        {
            fRunTimeLinkSuccess = TRUE;
                        ShowMessage("Message via DLL function");
                }

 
        // Free the DLL module.
 
        fFreeResult = FreeLibrary(hinstLib);
    }
 
    // If unable to call the DLL function, use an alternative.
 
    if (! fRunTimeLinkSuccess)
                ShowMessage("Message via alternative method");
}

Ale jak wywołać teraz funkcję z DLL'ki ?

[Cyfrowy Baron]

To oczywiście nic nie daje, źle go przekształciłeś, ale to co napisałeś pierwotnie odpowiada temu co jest w przykładzie, więc nie mam chwilowo żadnych pomysłów.

[Darek_C++]

Dobrze, że linkowanie statyczne DLL w tym wypadku nie powoduje przedmiotowego błędu

[polymorphism]

Biblioteka tylko pozornie jest częścią aplikacji, w rzeczywistości jest odrębnym procesem.

Ejże, ejże. Żadnym oddzielnym procesem! DLL-ka jest częścią aplikacji, ponieważ leży w tej samej przestrzeni adresowej, w przeciwieństwie do procesu, który ma swoją własną przestrzeń. Błąd zapewne polega na tym, że aplikacja i biblioteka korzystają z różnych stert. Z tego co pamiętam, trzeba było jakiś nagłówek załączyć, żeby nie było z tym problemów, choć nie wiem, czy rozwiązałoby to problem w przypadku łączenia w run-time'ie.

[Cyfrowy Baron]

Żadnym oddzielnym procesem! DLL-ka jest częścią aplikacji, ponieważ leży w tej samej przestrzeni adresowej,

adress.png

Tutaj masz rację, co widać na przykładzie wyżej. Zasugerowałem się tym, że biblioteka ma odrębny adres.

---

Co się tyczy problemu, to może takie rozwiązanie w bibliotece:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

#incldue <memory>
TListView *__stdcall DoTestDll(void)
{
  std::auto_ptr<TListView> ListView1 ( new TListView(NULL) );

        for (int jj=1; jj <= 10; jj++)
        {
                TListItem * ElementListy = ListView1->Items->Add();
                ElementListy->Caption = "Dane z DLL: "+(String) jj;
                ElementListy->SubItems->Add("---");
        }

 return ListView1.release();
}

Obiekt powstaje w bibliotece i w niej jest zwalniany.

[Darek_C++]

Po dodaniu w DLL

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

TListView *__stdcall DoTestDll(void)
{
  std::auto_ptr<TListView> ListView1 ( new TListView(NULL) );

                for (int jj=1; jj <= 10; jj++)
                {
                TListItem * ElementListy = ListView1->Items->Add();
                                ElementListy->Caption = "Dane z DLL: "+(String) jj;
                                ElementListy->SubItems->Add("---");
                }

 return ListView1.release();
}

nie mogę tego kodu skompilować z powodu błędów: w LINI-> std::auto_ptr<TListView> ListView1 ( new TListView(NULL) );

[C++ Error] UnitTestDll.cpp(32): E2015 Ambiguity between '_fastcall Comctrls::TListView::TListView(Classes::TComponent *)' and '_fastcall Comctrls::TListView::TListView(void *)'

[Cyfrowy Baron]

Wiec zmień nagłówek funkcji:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

TListView *__fastcall DoTestDll(void)

[Darek_C++]

Bez zmian
Nawet w formularzu:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm3::Button5Click(TObject *Sender)
{
        std::auto_ptr<TListView> ListView1 (new TListView(NULL) ); // <- Tuaj
}

[C++ Error] Unit1.cpp(74): E2015 Ambiguity between '_fastcall Comctrls::TListView::TListView(Classes::TComponent *)' and '_fastcall Comctrls::TListView::TListView(void *)'

[Cyfrowy Baron]

To przez to NULL. Obiekt musi być przypisany do jakiegoś formularza. Nie mam pomysłu.