Typenbibliothek ActiveX

[msickel]

Liebe Delphi-Erfahrene ich habe da ein Problem mit dem ich nicht weiter komme.

Ich habe eine Typenbibliothek nach Delphi importiert und möchte daraus eine Funktion oder diverse Funktionen nutzen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleServer, TeleVantage_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  TV7SessionNew : TV7Session;
  TV7DialingService : _IDialingService;
  TV7Address : _Address;
  TV7Folder : _Folder;
  TV7User : _SystemTarget;
  TV7Items : _Items;
  Tv7Call : _Call;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  TV7SessionNew := TV7Session.Create(Application);
  TV7SessionNew.Logon('10.17.1.240','Administrator','',12,tvApplicationTypeClient,32402,tvServerConnectionLevelFull,FALSE,tvStationUsageOwner);

  Tv7Folder := TV7SessionNew.GetDefaultFolder(tvFolderCalls);
  Tv7Items := Tv7Folder.Items;
end;

procedure TV7SessionNewCallStatusChange(ASender: TObject; const ID: WideString; Status, OldStatus: TVPartyStatus);
begin
 Form1.Edit1.Text := 'Status geändert!';
end;

end.

laut SDK Beschreibung sollte die Funktion CallStatusChange jedesmal aufgerufen werden wenn sich am Call was ändert (es klingelt, es wurde abgemommen, usw...)
leider passiert da aber nix! was mache ich falsch?

Ich muss noch dazusagen das der Logon an die Applikation geht, da ich mit einem anderen Stück Source einen Call generieren kann, dies würde nicht gehen wenn der Logon nicht funktionieren sollte (sag ich nur da ich im Augenblick noch nicht prüfe ob der Logon OK ist)

Ich hänge noch den Typenbibliothek Import als Datei dran.

Martin