Ole Error in TurboC++ Explorer



  • Hallo zusammen,

    in TurboC++ möchte ich eine externe Bibliothek (ActiveX) nutzen. Dazu habe ich -ganz nach Hersteller Anweisung- die Bibliothek installiert. Ich habe dann ein Beispiel des Herstellers in ein VCL Projekt kopiert.
    Hier der Code

    #include <vcl.h>
    #pragma hdrstop
    
    #include "Unit1.h"
    #include "utilcls.h"
    
    //---------------------------------------------------------------------------
    #pragma package(smart_init)
    #pragma resource "*.dfm"
    TForm1 *Form1;
    
    //---------------------------------------------------------------------------
    __fastcall TForm1::TForm1(TComponent* Owner)
    	: TForm(Owner)
    {
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        // Clear the list box
    		ListBox1->Clear();
    
    		// Create the FUNCky Server Browsing object
    		Variant Servers = Variant::CreateObject("FUNCkyFindServer");
    
    		// Find the first server
            Servers.OleFunction("FindFirst", "");
    
            // While there are servers to be found
            while( Servers.OlePropertyGet("Found"))
            {
    
                    // Add them to the list box
                    ListBox1->Items->Add(  Servers.OlePropertyGet("Name") +
                                    String("  ") +
                                    Servers.OlePropertyGet("Comment"));
    
                    Servers.OleFunction("FindNext");
            }
    
            // Destroy FUNCky Server object
            Servers = Unassigned;
    
    }
    //-----------------------------------------
    

    Das Projekt compiliert und startet ordnungsgemäss. Wenn ich auf Button1 clicke bekomme ich fogende Fehlermeldung:"Im Projekt Funkb ist eine Exception der Klasse EOleSysError mit der Meldung 'Ungültige Klassenzeichreihenfolge' aufgetreten." Wenn ich dann Anhalten anklicke wird mir die Zeile

    Variant Servers = Variant::CreateObject("FUNCkyFindServer");
    

    farbig unterlegt angezeigt.

    Weiss jemand, was das bedeutet ?

    Chris


Anmelden zum Antworten