Delphi-PRAXiS - Delphi CapiMonitor

Hallo Forum,
ich hoffe, ich bin der richtigen Forumsparte gelandet.

Zur Sache:
Ich habe mir einen zugegebenermaßen einfachen, kleinen CapiMonitor gebaut, der auch mit dem dazu gehörenden Formular
problemlos funktioniert.

Mein eigentliches Ziel war jedoch, die Funktionen in eine dll einzubauen, um das monitoring in einer delphi-fremden
Datenbank nutzen zu können.

Seit Tagen "baue" ich nun an dem Teil leider ergebnislos herum.

Zwar gelingt es mir, via dll das integrierte Infofenster in der Datenbank zu aktivieren,
aber bei ankommenden Anrufen wird die Nummer nicht wie erwartet im Fenster angezeigt.

Irgendwo steckt ein Denkfehler, den ich nicht finde.
Vielleicht hat im Forum ja jemand den entscheidenden Tipp parat.

Mit besten Grüßen

Kisch

------------hier kommt der code----------

Delphi-Quellcode:

			
unit Ki_CapiMonitor;

interface

uses

  inifiles, Windows, Messages, SysUtils, Variants, Classes, Graphics,

  Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls,

  CpMoni, CpConst;

///*** die DLL-Deklarationen

Procedure StarteCapiMonitor; stdcall; export;

implementation

type

  TKisFenster = class (TForm)

  CapiMonitor1 : TCapiMonitor;

  private

    PanelTelefonnummer : TPanel;

    PanelHintergrund : TPanel;

  public

    constructor Create(AOwner: TComponent); override;

    procedure LauscheAnIsdn;

    procedure CapiMonitor1IncomingCall(CallingPartyNumber,

                                   CalledPartyNumber: String;

                                   CipValue: Word;

                                   CipValueString: String);

//    Procedure CapiMonitor1IncommingCall(CallingPartyNumber:String);

  end;

var

  KisFenster : TKisFenster = Nil;

  Controller : dWord;

  RejectTimeOut : integer;

{Deklaration einer mit Nil initialisierten Instanzvariablen des Fensters,

 damit bei jedem Aufruf einer DLL- Funktion(en) die Instanz verwendet

 werden kann }

constructor TKisFenster.Create(AOwner: TComponent);

begin

  CreateNew(AOwner);

  CapiMonitor1 := TCapiMonitor.Create(nil);

{Konstruktor CreateNew verwenden, weil es keine *.DFM- Datei zu dem Form gibt!}

//TKisFenster default-Werte einstellen

//mögliche Einstellungen ermitteln über zB 'KisFenster.SetBounds'

//aber so nicht verwenden, da im construktor-Mode wohl nicht zulässig

  SetBounds (654,579,330,135);

  Caption := 'ISDN Capi Monitor';

  Position := poScreenCenter;

  BorderStyle := bsDialog;

//PanelHintergrund anlegen:

    PanelHintergrund := Tpanel.Create(Self);

{Initialisiere das HintergrundPanel mit default-Eigenschaften}

    PanelHintergrund.Parent := Self;

    PanelHintergrund.ParentBackground := False;

    PanelHintergrund.ParentColor := False;

    PanelHintergrund.SetBounds(8,38,305,28);

    PanelHintergrund.BorderStyle := bsSingle;

    PanelHintergrund.Color := clBtnHighlight;

    PanelHintergrund.Ctl3D := True;

    PanelHintergrund.Font.Charset := Default_CHARSET;

    PanelHintergrund.Font.Color := clWindowText;

    PanelHintergrund.Caption := '';

//PanelTelefonnummer anlegen:

  PanelTelefonnummer := Tpanel.Create(Self);

  PanelTelefonnummer.Parent := Self;

{Initialisiere das TelefonnummerPanel mit default-Eigenschaften}

    PanelTelefonnummer.ParentBackground := False;

    PanelTelefonnummer.ParentColor := False;

    PanelTelefonnummer.ParentCtl3D := False;

    PanelTelefonnummer.ParentFont := False;

    PanelTelefonnummer.SetBounds(10,40,300,23);

    PanelTelefonnummer.Color := clMoneyGreen;

    PanelTelefonnummer.Ctl3D := False;

    PanelTelefonnummer.Font.Charset := ANSI_CHARSET;

    PanelTelefonnummer.Font.Color := clBlue;

    PanelTelefonnummer.Font.Name := 'Arial';

    PanelTelefonnummer.Font.Size := 10;

    PanelTelefonnummer.Font.Style := [fsBold];

    PanelTelefonnummer.Width := 300;

//    SetBounds(100, 100, 100, 20);

    PanelTelefonnummer.Caption := 'ISDN Telefonnummer';

//    Caption := '0,0 % Fett';

//  end;

end;

Procedure TKisFenster.LauscheAnIsdn;

  begin

   Controller := 1;

   RejectTimeOut := 10;

   CapiMonitor1.WaitForCall(Controller,RejectTimeOut)

  end;

Procedure TKisFenster.CapiMonitor1IncomingCall(CallingPartyNumber,

                                   CalledPartyNumber: String;

                                   CipValue: Word;

                                   CipValueString: String);

  begin

 Show;

    if CallingPartyNumber <> ''

       then PanelTelefonnummer.Caption := CallingPartyNumber

       else PanelTelefonnummer.Caption := 'unbekannt';

       if IsIconic(Application.Handle) and (CallingPartyNumber<>'')

          then Application.Title := CallingPartyNumber;

  end;

//----- DLL-Export

Procedure StarteCapiMonitor; stdcall; export;

var

 StringLaenge : integer;

 CallingPartyNumber : string;

 CalledPartyNumber : string;

 CipValue : word;

 CipValueString : string;

begin

  if KisFenster = Nil then

    KisFenster := TKisFenster.Create(Nil);

    KisFenster.LauscheAnIsdn;

    KisFenster.CapiMonitor1IncomingCall(CallingPartyNumber,

                     CalledPartyNumber,CipValue,CipValueString);

/// Update ist wichtig, sonst gibts keine Veränderungsanzeige !!!

    KisFenster.Update;

end;

initialization

finalization

{Fenster wieder löschen}

  KisFenster.Free;

end.