Tworzenie biblioteki DLL

[mervinjmicky]

Próbuje stworzyć prostą bibliotekę dll. Listing:

Kod: Zaznacz cały

#include <vcl.h>
#include <windows.h>
#include <ADODB.hpp>
#include <DB.hpp>

#pragma hdrstop

extern "C"__declspec(dllexport) void _PrzeWg(TADOQuery *query);

#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
        return 1;
}
//---------------------------------------------------------------------------
AnsiString select(TADOQuery *AdoQuery, AnsiString Query, AnsiString Return)
{
AdoQuery->Close();
AdoQuery->SQL->Clear();
AdoQuery->SQL->Add(Query);
AdoQuery->Open();
if(Return!="") return AdoQuery->FieldByName(Return)->AsString;
else return "";
}

void _PrzeWg(TADOQuery *query)
{
select(query, "select * ...", "Id");
}


I teraz gdy kompiluje z odznaczonym "Built with runtime package" mam błędy:

Kod: Zaznacz cały

Build
  [Linker Error] Unresolved external '__fastcall Db::TDataSet::Close()' referenced from C:\UNIT1.OBJ
  [Linker Error] Unresolved external '__fastcall Adodb::TADOQuery::GetSQL()' referenced from C:\UNIT1.OBJ
  [Linker Error] Unresolved external '__fastcall Db::TDataSet::Open()' referenced from C:\UNIT1.OBJ
  [Linker Error] Unresolved external '__fastcall Db::TDataSet::FieldByName(const System::AnsiString)' referenced from C:\UNIT1.OBJ


Rozumiem, że potrzebuje jeszcze dołączyć jakieś biblioteki tak??

[Cyfrowy Baron]

Spróbuj dodać funkcję: CoInitialize(NULL);

Kod: Zaznacz cały

AnsiString select(TADOQuery *AdoQuery, AnsiString Query, AnsiString Return)
{
  HRESULT cInitialize = CoInitialize(NULL);

  switch(cInitialize) 
  { 
   case S_FALSE:
        ShowMessage("Biblioteka jest juz zainicjowana, lub nie można zwolnic domyślnego alokatora."); 
        return; 
   case E_OUTOFMEMORY: 
        ShowMessage"Nie można zainicjować, gdyż przekroczono rozmiar pamięci systemu."); 
        return; 
   case E_INVALIDARG: 
       ShowMessage("Nieprawidłowy argument"); 
       return; 
   case E_UNEXPECTED: 
       ShowMessage(""Wystąpił nieokreślony błąd); 
       return; 
  }

  AdoQuery->Close();
  AdoQuery->SQL->Clear();
  AdoQuery->SQL->Add(Query);
  AdoQuery->Open();

AnsiString Result = "";

if(Return != "") Result = AdoQuery->FieldByName(Return)->AsString;

  CoUninitialize();

return Result;
}


Po użyciu musisz wywołać funkcję CoUninitialize(), wiec musiałem nieco zmodyfikować sposób zwracania wartości przez funkcję, gdyż po użyciu funkcji return nic się już nie wykona, dlatego dodałem zmienną Result. Z else zrezygnowałem, gdyż zmienna Result jest inicjowana wartością "", więc gdy warunek if(Return != "") nie jest spełniony to zwrócona zostanie wartość zainicjowana, więc tym samym else jest zbędne.

---

Funkcja CoInitialize inicjuje bibliotekę COM. Funkcja CoUninitialize zamyka bibliotekę COM. Trzeba ją zamknąć, by można ją było ponownie zainicjować. Jeżeli nie chcesz jej inicjować przy każdym wywołaniu funkcji select to powinieneś ją zainicjować jakoś globalnie i zamykać dopiero gdy jest już zbędna, ale nie wiem czy to się sprawdzi w przypadku biblioteki DLL.

[polymorphism]

Spróbuj dodać funkcję: CoInitialize(NULL); (...)

Ech, Baron, przecież po treści błędu widać, że nie chodzi o inicjalizację biblioteki COM, tylko o problemy z linkowaniem.

[Cyfrowy Baron]

Właśnie te problemy wynikają z baraku inicjalizacji. Pewnie nigdy nie używałeś środowiska BCB.

[polymorphism]

Używałem, i nawet na nim nauczyłem się czytać (ze zrozumieniem) błędy kompilacji i linkowania.

[Cyfrowy Baron]

Takie dyskusje to możesz sobie uskuteczniać w dziale Dyskusja, a jak nie masz nic do powiedzenia to lepiej milcz. Poczekajmy na odpowiedź mervinjmicky.

[polymorphism]

a jak nie masz nic do powiedzenia to lepiej milcz

Ok, rozumiem, że ty masz w tej dziedzinie dużo do powiedzenia. Więc powiedz mi, co ma wspólnego systemowa CoInitialize, inicjująca w runtime systemową bibliotekę COM, z lokalną biblioteką VCL i jej metodami, które według linkera nigdzie nie są zdefiniowane?

[polymorphism]

Najbardziej prawdopodobne:

Spróbuj dołączyć do programu biblioteki: dbrtl.lib i adortl.lib

(...)

No i co, panie Baron, warto było się wykłócać ze mną?

[Cyfrowy Baron]

Ja przynajmniej próbuję znaleźć rozwiązanie. Ty rzucasz tylko kąśliwe uwagi, próbując chyba w ten sposób udowodnić sobie i wszystkim jako to jesteś wielki.

[polymorphism]

Ty rzucasz tylko kąśliwe uwagi (...)

Kąśliwe uwagi? Co w moim pierwszym poście jest kąśliwe? Zwróciłem Ci jedynie uwagę, że to, o czym piszesz, jest bez sensu w kontekście treści błędu. That's all. Zresztą bez problemu znalazłbym moje posty, które nie są tylko kąśliwymi uwagami.

swoją drogą, jesteś strasznie nieprecyzyjny...

Ja przynajmniej próbuję znaleźć rozwiązanie.

A czy ktoś krytykuje Ciebie za to?

(...) próbując chyba w ten sposób udowodnić sobie i wszystkim jako to jesteś wielki.

No chwileczkę, przecież to Ty mnie zaatakowałeś za, co tu dużo mówić, słuszną uwagę. Jak rozumiem, w imię jedynie słusznej racji, racji Barona, mam nic nie pisać, choć widzę, że są błędy, nieścisłości lub niezrozumienie tematu, tak? Przecież to jest jakiś absurd! Gdybym nie zwrócił Ci uwagi, to mervinjmicky walczyłby z tą nieszczęsną CoInitialize zamiast szukać nazw bibliotek, które powinien dołączyć do projektu.

I nie baw się w psychologa, bo diagnozy stawiasz złe

[Cyfrowy Baron]

to mervinjmicky walczyłby z tą nieszczęsną CoInitialize

Nie walczyłby, lecz sprawdził i pewnie okazałoby się, że to nie działa. Zgłosiłby na forum, że nie działa i dostałby kolejną odpowiedź. Poza tym jak zapewne zauważyłeś nie poprzestałem na jednej odpowiedzi i poszukiwałem dalej.

Moje diagnozy są prawidłowe, to Tobie trudno się pogodzić z prawdą o sobie.

[polymorphism]

Nie walczyłby, lecz sprawdził i pewnie okazałoby się, że to nie działa. Zgłosiłby na forum, że nie działa i dostałby kolejną odpowiedź.

No ale nie zmienia to faktu, że jakiś czas zajęłoby mu sprawdzanie Twojej sugestii. A po co marnować czas na bzdury, jeśli można od razu zabrać się za problem w odpowiedni sposób?

Poza tym jak zapewne zauważyłeś nie poprzestałem na jednej odpowiedzi i poszukiwałem dalej.

No tak, ale prawdopodobnie dlatego nie przestałeś, bo po mojej uwadze przemyślałeś całość jeszcze raz - nie byłeś w stanie odpowiedzieć na moje pytanie, co ma inicjalizacja COM do błędów linkera. I po to była moja uwaga, postąpiłeś zgodnie z moimi intencjami

Moje diagnozy są prawidłowe (...)

A skąd ta pewność?

(...) to Tobie trudno się pogodzić z prawdą o sobie.

Zabawne. Wiesz, jakby na to nie patrzeć, prawda, którą próbujesz zarysować, nie jest jakaś straszna. Nie rozumiem dlaczego nie miałbym się z nią pogodzić? A tak poważnie, jesteś trochę przewrażliwiony na własnym punkcie, stąd ta nerwowość u Ciebie w momencie, gdy ktoś podważa Twoje zdanie. W tym wątku ewidentnie to widać...

Oczywiście jeśli jesteś w stanie dowodami wykazać, że masz rację, nie mam nic przeciwko

[Cyfrowy Baron]

No tak, ale prawdopodobnie dlatego nie przestałeś, bo po mojej uwadze przemyślałeś całość jeszcze raz

Wiec to Ty mnie zainspirowałeś?!
Rzeczywiście! Nie mylę się co do Ciebie, masz bardzo wysokie mniemanie o sobie, aż dziw bierze, że tracisz czas na to forum.

[polymorphism]

Baron, czytaj ze zrozumieniem, co się do Ciebie pisze. Nie zainspirowałem, tylko zwróciłem Ci uwagę, że błądzisz - na forach to całkowicie normalne. Przebieg wątku pozwala mi sądzić, że moja uwaga poskutkowała. Więc nie jest to kwestia zbyt dużego ego, lecz zwykłej analizy

Nie mylę się co do Ciebie, masz bardzo wysokie mniemanie o sobie (...)

Heh, i to mówi człowiek, który ma w nicku Baron

(...) aż dziw bierze, że tracisz czas na to forum.

Następny przykład Twojej niekonsekwencji. Piszesz, że jestem na forum tylko po to, żeby udowadniać światu jaki to ze mnie pr0, a teraz się dziwisz, że w ogóle na tym forum jestem, tracąc czas. Zdecyduj się na jakąś wersję, bo te Twoje diagnozy psychologiczne zmieniają się jak w kalejdoskopie, z postu na post...