DLL i Form1

[duf]

do projektu dll można dołączyć formę ( odkrycie! ) File->New->Form, ale gdy próbuję ją wywołać otrzymuję access violation:
DLL project.

Kod: Zaznacz cały

#include "Unit1.h"
extern "C" __declspec (dllexport) void Funkcja()
{
  Form1->Show();
}

Main cpp

Kod: Zaznacz cały

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  HINSTANCE DLLHandle = LoadLibrary(L"Projectmydll.dll");

   if(DLLHandle != NULL)
   {
      typedef (*aFunkcja)();

      aFunkcja Funkcja = (aFunkcja)GetProcAddress(DLLHandle, "_Funkcja");

      if( Funkcja != NULL) Funkcja();
      else ShowMessage( "Brak funkcji" );
   }
   else ShowMessage( "Lack of dll." );

   FreeLibrary(DLLHandle);
}

Czy jest to w ogóle możliwe takie wywołanie formy?

[Cyfrowy Baron]

Kod: Zaznacz cały

#include "Unit1.h"
extern "C" __declspec (dllexport) void Funkcja()
{
  Form1->Show();
}

Tak nie można. W bibliotece DLL można wywoływać formularz, ale tylko dynamicznie. Więcej przeczytasz o tym w serwisie Cyfrowy Baron w dziale: teoria tworzenie dll.

[duf]

A można wywołać formularz nie modalnie? Oczywiście dynamicznie.

Kod: Zaznacz cały

extern "C" __declspec (dllexport) void Funkcja()
{
  TForm1* newform = new TForm1(Form1);
  newform->Show();
}

Powstaje poważny błąd. Myślę, że ma to związek ze zwolnieniem biblioteki w głównej aplikacji. Jeżeli dobrze myślę to czy należałoby zwalniać bibliotekę dopiero po zamknięciu okna?

[Cyfrowy Baron]

Przy wywołaniu niemodalnym powstaje problem ze zwolnieniem biblioteki. Należałoby dodać do formularza w bibliotece funkcję, która w chwili jego zamknięcia wysyła komunikat do aplikacji, a ta dopiero wtedy zwalnia bibliotekę. Pewnie istnieje prostszy sposób, ale nigdy się nad tym nie zastanawiałem.

[duf]

Zgodnie z propozycją wyglądałoby to mniej więcej tak:
App

Kod: Zaznacz cały

void __fastcall TForm1::Button1Click(TObject *Sender)
{
HINSTANCE DLLHandle = LoadLibrary(L"Project1.dll");

TForm* form;

if(DLLHandle != NULL)
{
     typedef TForm* (*aFunkcja)();

     aFunkcja Funkcja = (aFunkcja)GetProcAddress(DLLHandle, "_Funkcja");

     if( Funkcja != NULL ) form = Funkcja();
      else ShowMessage( "Lack of Funkcja" );
}
else ShowMessage( "Lack of dll." );

if ( !form ) return;

form->Close();

FreeLibrary(DLLHandle);
}

DLL

Kod: Zaznacz cały

extern "C" __declspec(dllexport) TForm* Funkcja()
{
  TForm1* newform = new TForm1(Form1);
  newform->Show();
  return newform;
}

Al to nie działa bo i nie może działać. Spróbowałem przesłać wskaźnik do dll ale też nic z tego:
App

Kod: Zaznacz cały

TForm* form;

typedef TForm* (*aFunkcja)(TForm**);
typedef void (*aClose)(TForm**);

if( Funkcja != NULL ) form = Funkcja( &form );

if ( !form ) return;

Close( &form );

FreeLibrary(DLLHandle);


DLL

Kod: Zaznacz cały

extern "C" __declspec(dllexport) TForm* Funkcja ( TForm** form )
{
  *form = new TForm1( Form1 );
  (*form)->Show();
  return *form;
}
void Close( TForm** form )
{
  //(*form)->Close();
  delete *form;
}


Wprawdzie okno powstaje nie modalne ale wraz z nim komunikat access violation.

[Cyfrowy Baron]

Wprawdzie okno powstaje nie modalne ale wraz z nim komunikat access violation.

Jeżeli okno biblioteki wywołujesz jako niemodalne, a jednocześnie w aplikacji tuż po wywołaniu niemodalnego okna z biblioteki zwalniasz tą bibliotekę to nic dziwnego, że masz błąd.

Pisząc o wysyłaniu komunikatu miałem na myśli haki systemowe, a nie sprawdzanie co zwraca funkcja biblioteki, gdyż to akurat nie zadziała. Piszą o komunikatach chodzi mi o to, że przed zamknięciem okna biblioteki to okno wysyła komunikat np. za pomocą funkcji SendMessage do aplikacji, ta odbiera komunikat i dopiero wtedy zwalnia bibliotekę. W takim przypadku uchwyt do biblioteki DLLHandle musi być zadeklarowany jako globalny, gdyż aplikacja nie zwalnia go wewnątrz funkcji w której biblioteka została załadowana, lecz dopiero po odebraniu komunikatu. To oznacza, że aplikacja musi nasłuchiwać komunikatów, można do tego celu wykorzystać komponent TApplicationEvents.
Trochę to skomplikowane dlatego sądzę, że musi istnieć prostszy sposób.

[duf]

Zrobiłem to w ten sposób jak poniżej. Tylko mam obawy czy nie ma tu wycieku pamięci pomimo, że program zachowuje się bezproblemowo. Jedynym mankamentem jest to, że biblioteka zwalniana jest dopiero po zamknięciu głównej aplikacji. Martwi mnie jeszcze sprawa kilkukrotnego otworzenia i zamknięcia okna w dll. Czy tu nie ma wycieku pamięci.

APP
h

Kod: Zaznacz cały

TForm1* form;
typedef void (*aCloseForm)(TForm1**);
aCloseForm CloseForm;
HINSTANCE DLLHandle;

cpp

Kod: Zaznacz cały

void __fastcall TForm1::Button1Click(TObject *Sender)
{
DLLHandle = LoadLibrary(L"Project1.dll");

if(DLLHandle != NULL)
{
     typedef TForm1* (*aFunkcja)(TForm1**);

     aFunkcja Funkcja = (aFunkcja)GetProcAddress(DLLHandle, "_Funkcja");
     CloseForm = (aCloseForm)GetProcAddress(DLLHandle, "_CloseForm");

     if( Funkcja != NULL ) form = Funkcja( &form );
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  if ( form ) CloseForm( &form );
  FreeLibrary(DLLHandle);
}
//---------------------------------------------------------------------------

DLL

Kod: Zaznacz cały

#include "Unit1.h"
extern "C" __declspec(dllexport) TForm1* Funkcja(TForm1** form)
{
  if ( !form ) return NULL; 
  *form = new TForm1(Form1);
   Form1 = *form;
   (*form)->Show();
   return *form;
}

extern "C" __declspec(dllexport) void CloseForm( TForm1** form )
{
  if ( Form1 != NULL )
  {
     delete *form;
     *form = NULL;
     return *form;
  }
}

Unit1.cpp
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  Action = caFree;
  //delete Form1;
  Form1 = NULL;
}
//---------------------------------------------------------------------------


[Cyfrowy Baron]

Nom... biblioteka jest zwalniana podczas zamykania aplikacji. Wystarczy w tej sytuacji wywołać FreeLibrary(DLLHandle) w zdarzeniu OnClose głównego formularza aplikacji, a cała ta reszta którą dodałeś jest zbędna. Mocno to przekombinowałeś.

[duf]

Wystarczy w tej sytuacji wywołać FreeLibrary(DLLHandle) w zdarzeniu OnClose głównego formularza aplikacji, ...

Niestety nie wystarczy.

[polymorphism]

A nie możesz po prostu załadować biblioteki w konstruktorze TForm1_(aplikacji), a wyładować w destruktorze?

Kod: Zaznacz cały

TForm1* Funkcja(TForm1** form) { ... } 

Jaki jest sens parametru form, jeśli nic z niego nie wynika?

Kod: Zaznacz cały

 *form = new TForm1(Form1); 

Jak mniemam Form1 jest tym globalnym wskaźnikiem wygenerowanym przez IDE, problem w tym, że on na nic nie wskazuje, jeśli TForm1 jest tworzona w cytowany sposób. Z tego co pamiętam, DLL-ka, podobnie jak aplikacja, ma swój obiekt Application. Możesz go tam spokojnie podać jako właściciela okna.

[Cyfrowy Baron]

Niestety nie wystarczy.

Wystarczy, wystarczy, przeczytaj uwagi polymorphism odnośnie tego TForm1, to zbędny element. Dlatego napisałem, że przekombinowałeś. By wywołać okno z biblioteki nie trzeba się tak gimnastykować, wystarczy zdefiniować w bibliotece okno i wywoływać je przez funkcję, wszystko co chcesz przekazać do okna biblioteki możesz robić przez argumenty funkcji.