Class in DLL verwenden

**little_budda**

Hallo.

Ich versuche gerade Code von meiner Anwendung in eine DLL zu verfrachten.
Es ist meine erste DLL.
Ich habe daa Tutorial von Assarbad gelesen und fand die Iddee ganz velockend.

Nun zu meinem Problem.

Ich möchte einen Typ der Klasse TDataModule verwenden.
Meine Deklaration sieht bisher so aus

zusammenfalten · markieren

Delphi-Quellcode:

			library wsatools;

uses  Windows,  ShellAPI,  Messages,  Classes,  SysUtils,  Graphics,  Controls,

      StdCtrls,  ComCtrls,  DB,  ExtCtrls,  XMLDoc,  XMLIntf, DBTables, ADODB,

      ...

type

  TDataModule2 = class(TDataModule)

    Table1ZEIT: TStringField;

    Table1QUELLE: TStringField;

    Table1ZsLen: TStringField;

    Table1MNR: TStringField;

    Table1Spez: TStringField;

    Table1ZUSTAND: TStringField;

    Table1ZSINFO: TStringField;

    DataSource1: TDataSource;

    Table1: TTable;

    Table1IDX: TStringField;

    ADOConnectionTexte: TADOConnection;

    ADOQueryTexte: TADOQuery;

    procedure Table1ZEITGetText(Sender: TField; var Text: String; DisplayText: Boolean);

    procedure Table1ZSINFOGetText(Sender: TField; var Text: String; DisplayText: Boolean);

    procedure Table1QUELLEGetText(Sender: TField; var Text: String; DisplayText: Boolean);

    procedure Table1SpezGetText(Sender: TField; var Text: String; DisplayText: Boolean);

    procedure Table1ZUSTANDGetText(Sender: TField; var Text: String; DisplayText: Boolean);

    procedure Table1ZsLenGetText(Sender: TField; var Text: String; DisplayText: Boolean);

    procedure Table1MNRGetText(Sender: TField; var Text: String; DisplayText: Boolean);

    procedure Table1IDXGetText(Sender: TField; var Text: String; DisplayText: Boolean);

end;

Als Variable habe ich angelegt

markieren

Delphi-Quellcode:

			var

  ...

  DataModule2: TDataModule2;

Wenn ich jetzt darauf zugreifen möchte bekomme ich immer eine Exeption weil "DataModule2" nil ist.

markieren

Delphi-Quellcode:

			function ExtractArchiveContentToTable (fullArchivePath : string) : integer;

var ...

begin

  DataModule2.Table1.Active := FALSE;

  DataModule2.Table1.Tablename := ExtractFileName(fullArchivePath);

  DataModule2.Table1.DatabaseName := ExtractFileDir(fullArchivePath);

  ...

Muss ich da noch einen Konstruktor oder ähnliches aufrufen?
Warum klappt das in einer WinForms Anwendung?

Vielleicht hat ja jemand einen Tipp für mich.
Gruß Holger.

Class in DLL verwenden

Class in DLL verwenden

Forumregeln