Brug af funktioner i DataModul

Det skal selvfølgelig lige siges at denne linie:

  Firmaer = dmTP->HentFirma();

er jeg ikke sikker på er som den skal være!

Mon ikke det er fordi du opretter NavneList på stack'en?

Hvis du i stedet giver den med som argument til funktionen og blot fylder i den der, tror jeg det hjælper...

kan du uddybe lidt?

void TdmTP::HentFirma(list<string>& NavneList)
{
        Database1->StartTransaction();
        Query1->SQL->Clear();
        Query1->SQL->Add("SELECT Navn FROM tblFirma");
        Query1->Open();
        while (!Query1->Eof)
        {
                NavneList.push_front(Query1->FieldByName("Navn")->AsString.c_str());
                Query1->Next();
        }
}

//Kald
list<string> NavneList;
HentFirma(NavneList);

hmmm...

Jeg får stadig samme fejl!

Funktionerne ser nu således ud:

void TdmTP::HentFirma(list<string>& NavneList)
{
        Database1->StartTransaction();
        Query1->SQL->Clear();
        Query1->SQL->Add("SELECT Navn FROM tblFirma");
        Query1->Open();
        while (!Query1->Eof)
                NavneList.push_front(Query1->FieldByName("Navn")->AsString.c_str());
}



void __fastcall TfrmOpretKval::FormCreate(TObject *Sender)
{
  list<string> NavneList;
  dmTP->HentFirma(NavneList);
  while (!NavneList.empty())
  {
        lstFirma->AddItem(NavneList.front().c_str(),0);
        NavneList.pop_front();
  }
}

nogen gode forslag?

Har du prøvet at debugge for at se hvor fejlen kommer?
Jeg kan desværre ikke lige genvejstasterne til BCB på hånden, så hvis du ikke ved hvad "at debugge" er, så prøv at kigge i menuerne.

Den stopper på:
        Database1->StartTransaction();
og hvis jeg siger "step over" så stopper den på næste linie:
        Query1->SQL->Clear();
og næste:
        Query1->SQL->Add("SELECT Navn FROM tblFirma");
og næste:
        Query1->Open();

:-/

Hvis du fortsætter, kan du så ikke se hvor fejlen er?

Altså, når du udfører en bestemt linie, går programmet ned...

I think so...

Projekt p2.exe raised exception class EAccessViolation with message 'Access violation in address 00403843 in module p2.exe. Read of address '00000058'. Process Stoped. Use Step Over or Run to continue.

og så bliver denne linie markeret:
      Database1->StartTransaction();

Jep, hvilken linie stod du ved da det skete?

Database1->StartTransaction();

Kan du se om Database1 er et gyldigt objekt?
I VC++ kan man fx sætte musepointeren over teksten og se hvad adressen er.
Måske er Database1 ikke et gyldigt objekt, har du initialiseret det?

Ja det spiller...

Den er connected til en MS SQL server og database via en odbc

Nu prøvede jeg lige, at indsætte et breakpoint på linien:
          Database1->StartTransaction();
når jeg så holder musen hen over står der Database1 = ?????

Er det meningen?

Stadig der?

Jeg kan ikke huske hvordan BCB viser forskellige tilstande, men det ser jo ikke så fornuftigt ud.
Hvor bliver objektet oprettet?

h filen for datamodulet:

#include <DB.hpp>
#include <DBTables.hpp>
#include <string>
#include <list>

using namespace std;
//---------------------------------------------------------------------------
class TdmTP : public TDataModule
{
__published:    // IDE-managed Components
        TDatabase *Database1;
        TQuery *Query1;
private:
        //list<string> lorteliste;
public:
        void HentFirma(list<string> NavneLli);
        int FindFirmaID(string navn);
        int FindProjektID(string navn);
        list<string> HentProjekt(int FirmaID);
        __fastcall TdmTP(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TdmTP *dmTP;
//---------------------------------------------------------------------------
#endif

cpp filen for dataModulet:

//---------------------------------------------------------------------------

#include <vcl.h>
#include <list>

#pragma hdrstop

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

using namespace std;
TdmTP *dmTP;
//---------------------------------------------------------------------------
__fastcall TdmTP::TdmTP(TComponent* Owner)
        : TDataModule(Owner)
{

}
//---------------------------------------------------------------------------

void TdmTP::HentFirma(list<string> NavneList)
{
        Database1->StartTransaction();
        Query1->SQL->Clear();
        Query1->SQL->Add("SELECT Navn FROM tblFirma");
        Query1->Open();
        while (!Query1->Eof)
        {
                NavneList.push_front(Query1->FieldByName("Navn")->AsString.c_str());
                Query1->Next();
        }
        return lorteliste;
}

list<string> TdmTP::HentProjekt(int FirmaID)
{
        list<string> NavneList;

        Database1->StartTransaction();
        Query1->SQL->Clear();
        Query1->SQL->Add("SELECT Navn FROM tblProjekt");
        Query1->Open();
        while (!Query1->Eof)
        {
                NavneList.push_front(Query1->FieldByName("Navn")->AsString.c_str());
                Query1->Next();
        }
        return NavneList;
}

int TdmTP::FindFirmaID(string navn)
{
        int FirmaID;

        Database1->StartTransaction();
        Query1->SQL->Clear();
        Query1->SQL->Add("SELECT FirmaID FROM tblFirma WHERE Navn =");
        Query1->SQL->Add("( :NAVN)");
        Query1->ParamByName("NAVN")->AsString = navn.c_str();
        Query1->Open();
        FirmaID = Query1->FieldByName("FirmaID")->AsInteger;
        return FirmaID;
}

int TdmTP::FindProjektID(string navn)
{
        int ProjektID;

        Database1->StartTransaction();
        Query1->SQL->Clear();
        Query1->SQL->Add("SELECT ProjektID FROM tblProjekt WHERE Navn =");
        Query1->SQL->Add("( :NAVN)");
        Query1->ParamByName("NAVN")->AsString = navn.c_str();
        Query1->Open();
        ProjektID = Query1->FieldByName("ProjektID")->AsInteger;
        return ProjektID;
}

void HentFirma(list<string> NavneLli);
skal selvfølgelig være:
        void HentFirma(list<string> NavneList);
var bare ved at rette...

I'm going crazy...

Så vidt jeg kan se opretter du aldrig et TDatabase objekt?

Fx Database1 = new TDatabase();

Database1 er jo bare en pointer til et TDatabase objekt, men hvis du aldrig har oprettet det objekt, så...

så hvad...

giv mig et par guldkorn...

Altså, hvis du ikke har et objekt, kan du heller ikke kalde en metode på det...

prøv lige at se her en gang:

http://users.cybercity.dk/~dsl50065/dataMod.JPG

Fx:

__fastcall TdmTP::TdmTP(TComponent* Owner)
        : TDataModule(Owner)
{
  Database1 = new TDatabase();
}

det er sådan Database1 og Query1 ligger!

Kan ikke få "new TDatabase();" til at virke...

tryl for mig!

PLEASE!!!!!!!!!!

Som sagt, jeg kender ikke BCB's måde at håndtere det på, men hvis Database1 ikke "peger" på et gyldigt objekt, fungerer det naturligvis ikke...

hvad er det for et objekt den skal pege på?

Jeg har jo sat en komponent ind der ER Database1 og denne komponent er jo connected til db'en...

Hvis Database1 var gyldig, ville det vel ikke crash'e når du kalder StartTransaction, vel..?

næ det ville den vel ikke...

men kan du fortælle mig hvad jeg skal gøre?

har du kigge på linket jeg lagde?

Nogen der kan fortælle mig hvorfor skidtet fungerer når jeg ligger komponenterne Database1 og Query1 over på min alm. form og bruger disse to funktioner:

void __fastcall TfrmOpretKval::FormCreate(TObject *Sender)
{
  list<string> NavneList;
  HentFirma(NavneList);
  while (!NavneList.empty())
  {
        lstFirma->AddItem(NavneList.front().c_str(),0);
        NavneList.pop_front();
  }
}
//---------------------------------------------------------------------------

void TfrmOpretKval::HentFirma(list<string>& NavneList)
{
        Database1->StartTransaction();
        Query1->SQL->Clear();
        Query1->SQL->Add("SELECT Navn FROM tblFirma");
        Query1->Open();
        while (!Query1->Eof)
        {
                NavneList.push_front(Query1->FieldByName("Navn")->AsString.c_str());
                Query1->Next();
        }
}

Hej igen...

Jeg ved der er flere i dette forum, der sværger til BCB, så vi må håbe på hjælp fra dem...

Mit bud er:
- Når komponenterne ligger på formen, har den ansvaret for at oprette objekterne og konfigurere dem.
- Når du selv bruger klasserne som members, skal du instantiere og konfigurere dem.
(Altså sætte brugernavn, password osv...)

lukker - løsningen var Application->createform(__classID, Tdatamod, datamod)