AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi-ActiveX-DLL in VB.Net: Problem mit Strings
Thema durchsuchen
Ansicht
Themen-Optionen

Delphi-ActiveX-DLL in VB.Net: Problem mit Strings

Ein Thema von Bbommel · begonnen am 3. Apr 2012 · letzter Beitrag vom 5. Apr 2012
Antwort Antwort
Bbommel

Registriert seit: 27. Jun 2007
Ort: Köln
669 Beiträge
 
Delphi 12 Athens
 
#1

AW: Delphi-ActiveX-DLL in VB.Net: Problem mit Strings

  Alt 4. Apr 2012, 13:47
Hier mal ein neuer Zwischenstand, der mich aber nicht wirklich glücklicher macht:

Was das "safecall" angeht, ist das wohl eher eine Delphi-interne Geschichte, die besonders beim Import fremder ActiveX-DLLs nach Delphi relevant ist - ich suche aber ja den umgekehrten Fall. Das ist zumindest das, was ich zu dem Thema im Netz gefunden habe.

Um mal nicht direkt mit dem "großen" Visual Studio um mich zu schießen, habe ich auch mal eine 64-Bit-DLL erzeugt (und damit auch mal direkt gesehen, das wenigstens das funktioniert) und diese in ein VBScript eingebaut und aufgerufen. Ergebnis ist aber das selbe: Die Funktion, die ein Integer zurückgibt, kann ich problemlos aufrufen, aber den WideString bekomme ich nicht - der ganze Scripting-Host verabschiedet sich dann.

Nächster Ansatz: Anstelle den String direkt zurückzugeben, wird das Ergebnis in einer privaten Variable zwischengespeichert, die über die Property "LastResult" abgefragt werden kann. Funktioniert - so kommt der Text ohne Fehler sowohl bei VB.Net als auch im VBScript an. Aber das ist ja nicht das, was ich will! Es muss doch möglich sein, einen String als Rückgabewert zu haben! Ich habe selber schon (okay, in Delphi) fremde ActiveX-DLLs genutzt, die mir einen String zurückgeben. Und die DLL, die ich letztlich durch eine neue ablösen will, gibt auch die Ergebnisse fleißig als String zurück. Kann doch nicht sein, dass der aufrufende Programmierer jedes Mal dieses "LastResult" aufrufen muss. Irgendwas geht da schief... und ich finde keinen Ansatz...

Zur Verdeutlichung hier mal der Code, der "funktioniert":

Die Unit zur Implementierung:

Delphi-Quellcode:
unit teststr32_impl;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, TestStr32_TLB, StdVcl;

type
  TStringOps = class(TAutoObject, IStringOps)
  private
    FLastResult: string;
  protected
    function CountStrLength(const aInStr: WideString): SYSINT; stdcall;
    function ReverseStr(const aInStr: WideString): SYSINT; stdcall;
    function Get_LastResult: WideString; safecall;
    procedure Set_LastResult(const Value: WideString); safecall;
  end;

implementation

uses ComServ;

function TStringOps.CountStrLength(const aInStr: WideString): SYSINT;
begin
  Result:=Length(aInStr);
end;

function TStringOps.ReverseStr(const aInStr: WideString): SYSINT;
var i: integer;
    tempStr: string;
begin
  tempStr:='';
  for I := length(aInStr) downto 1 do
    tempStr:=tempStr+aInStr[i];
  FLastResult:=tempStr;
  Result:=0
end;

function TStringOps.Get_LastResult: WideString;
begin
  Result:=FLastResult;
end;

procedure TStringOps.Set_LastResult(const Value: WideString);
begin
  FLastResult:=Value;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TStringOps, Class_StringOps,
    ciMultiInstance, tmApartment);
end.
Und der wesentliche Ausschnitt aus der _TBL.pas sieht so aus:

Delphi-Quellcode:
// *********************************************************************//
// Interface: IStringOps
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {C97D8342-0B92-42AF-AB10-28A825B221FE}
// *********************************************************************//
  IStringOps = interface(IDispatch)
    ['{C97D8342-0B92-42AF-AB10-28A825B221FE}']
    function ReverseStr(const aInStr: WideString): SYSINT; stdcall;
    function CountStrLength(const aInStr: WideString): SYSINT; stdcall;
    function Get_LastResult: WideString; safecall;
    procedure Set_LastResult(const Value: WideString); safecall;
    property LastResult: WideString read Get_LastResult write Set_LastResult;
  end;

// *********************************************************************//
// DispIntf: IStringOpsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {C97D8342-0B92-42AF-AB10-28A825B221FE}
// *********************************************************************//
  IStringOpsDisp = dispinterface
    ['{C97D8342-0B92-42AF-AB10-28A825B221FE}']
    function ReverseStr(const aInStr: WideString): SYSINT; dispid 201;
    function CountStrLength(const aInStr: WideString): SYSINT; dispid 202;
    property LastResult: WideString dispid 203;
  end;
Und letztlich der Aufruf im Visual Studio:

Code:
Public Class Form1
    Private Sub ButtonReverse_Click(sender As Object, e As EventArgs) Handles ButtonReverse.Click
        Dim testStr As Object
        testStr = CreateObject("TestStr32.StringOps")

        LabelResult.Text = testStr.ReverseStr(TextBoxInput.Text).ToString
        LabelResult2.Text = testStr.LastResult
    End Sub

    Private Sub ButtonLength_Click(sender As Object, e As EventArgs) Handles ButtonLength.Click
        Dim testStr As Object
        testStr = CreateObject("TestStr32.StringOps")

        LabelResult.Text = testStr.CountStrLength(TextBoxInput.Text).ToString
    End Sub
End Class
Ich weiß ja nicht mal, ob ich irgendwas falsch mache oder ob es ein Bug in Delphi ist oder irgendwo an einer COM/Net-Zwischenschicht oder im Visual Studio (letzteres glaube ich nicht, da der gleiche Fehler ja auch im VBScript auftritt).

Wer auch immer Ideen hat, her damit. Werde wohl auch mal im Emba-Forum nachfragen, vielleicht weiß dort ja jemand etwas.

Bis denn
Bommel
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

AW: Delphi-ActiveX-DLL in VB.Net: Problem mit Strings

  Alt 4. Apr 2012, 14:20
Im Anhang habe ich mal mein "ActiveXStarterKit" angehängt.
Programmiert mit Delphi 5.
Es enthält eine Anwendung mit Automatierungsschnittstelle sowie ein VBScript, mit dem die Anwendung angesteuert wird.
Delphi-Quellcode:
IApplication = interface(IDispatch)
    ['{1A8EFC07-D8CF-493C-B544-16080D82EBE6}']
    function Get_Version: WideString; safecall;
    procedure SendTextMessage(const text: WideString); safecall;
    function MethodeDieExceptionVerursacht: WideString; safecall;
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const Value: WideString); safecall;
    property Version: WideString read Get_Version;
    property Caption: WideString read Get_Caption write Set_Caption;
  end;
Falls ich mal Zeit finde, mache ich noch eine ActiveX DLL hinzu.
Angehängte Dateien
Dateityp: zip ActiveXStarterKit.zip (181,6 KB, 8x aufgerufen)
Andreas
  Mit Zitat antworten Zitat
Bbommel

Registriert seit: 27. Jun 2007
Ort: Köln
669 Beiträge
 
Delphi 12 Athens
 
#3

AW: Delphi-ActiveX-DLL in VB.Net: Problem mit Strings

  Alt 4. Apr 2012, 14:44
Vielen Dank für deine Unterstützung. So ganz ist mir aber noch nicht klar, was ich damit machen soll. In Delphi kann ich dein Projekt zwar öffnen und ausführen, aber was kann ich daraus lernen? Wenn ich die .vbs ausführe, bekomme ich einen Fehler ("ActiveX-Komponente kann kein Objekt erstellen"), was ich auch verstehen kann, denn ich habe ja nichts registriert, was VBS kennen könnte.

Sorry, wenn meine Nachfrage etwas "dumm" erscheint, aber nach bald zwei Tagen mit dem Murks dreht sich mir etwas der Kopf.

Du hast die ganzen .pas-Dateien aber manuell erstellt oder hast du dafür einen Assistenten von Delphi genutzt? Denn ich wunder mich immer noch über das "safecall", das (wie du ja oben siehst) Delphi bei mir nur bei den Getter/Setter benutzt und sonst nicht.

Bis denn
Bommel
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#4

AW: Delphi-ActiveX-DLL in VB.Net: Problem mit Strings

  Alt 4. Apr 2012, 15:13
So ganz ist mir aber noch nicht klar, was ich damit machen soll.
Einfach mal in deiner Umgebung testen; bei mir läuft das Beispiel ohne Probleme.
1.) beiliegende EXE starten (EXE registriert sich selber) und danach Script starten
sollte funktionieren
Damit wäre bewiesen, dass der Windows Scripting Host mit VBScript auf deinem Rechner ohne Problem läuft.
Es wird auch bewiesen, dass Exceptions zurück an das Script geliefert werden.

2.) Projekt mit deinem Compiler übersetzen und Test von 1.) wiederholen
damit wäre bewiesen, dass deine Delphi Umgebung prinzipiell funktionierende ActiveX-Anwendungen erzeugen kann

3.) Anstelle der EXE muss nun im nächsten Test eine ActiveX DLL treten.
Diese wird ebenfalls mit einem (neu zu erstellenden) VBScript getestet

4.) Einbinden in .NET / C# und testen
Andreas
  Mit Zitat antworten Zitat
Bbommel

Registriert seit: 27. Jun 2007
Ort: Köln
669 Beiträge
 
Delphi 12 Athens
 
#5

AW: Delphi-ActiveX-DLL in VB.Net: Problem mit Strings

  Alt 4. Apr 2012, 17:47
Mal ganz vorab: ich habe das Gefühl, das bei diesem ganzen Kram auch die Betriebssystem-Version nicht ganz unwichtig ist. Ich habe Win7, 64-Bit, Delphi 2009, und als zweites Testsystem (wo auch Visual Studio 2011 Beta und die Testversion von XE2 drauf laufen) Win8 Consumer Preview, ebenfalls 64-Bit.

Hm. Also der Reihe nach:

1.: Versuch, die exe direkt auszuführen
Die exe funktioniert leider nicht. Windows meldet sich direkt damit, dass das Programm nicht ausgeführt werden kann. Danach erscheint noch folgende Fehlermeldung:

---------------------------
Anwendungsfehler
---------------------------
Exception EOleSysError in Modul ActiveXStarterKit.exe bei 000453A5.
Fehler beim Zugriff auf OLE-Registrierung.
---------------------------

2.: Neukompilieren der exe mit meinem Delphi 2009
Wenn ich das Projekt in mein Delphi 2009 (also das in meiner Produktiv-Umgebung) lade und compiliere, dann kann ich die exe nachher problemlos starten. Allerdings funktioniert das .vbs noch immer nicht und liefert mir die Meldung:

---------------------------
Windows Script Host
---------------------------
Skript: D:\Eigene Dateien\Borland Studio-Projekte\delphi-praxis\activeXstarterKit\TestScript.vbs
Zeile: 3
Zeichen: 10
Fehler: ActiveX-Komponenten kann kein Objekt erstellen: 'ActiveXStarterKit.Application_'
Code: 800A01AD
Quelle: Laufzeitfehler in Microsoft VBScript
---------------------------

3.: Compilieren als 64-Bit-Exe mit XE2
Um auszuschließen, dass es jetzt irgendwie an 32/64-Bit-Problemen scheitert, habe ich das Ganze noch mal unter XE2 als 64-Bit compiliert, aber das brachte auch keine Besserung. exe läuft, aber vbs sieht sie nicht.

Du meintest, die Bibliothek würde sich selbst registrieren - wo tut sie das denn? Nur, um wenigstens das mal zu verstehen.

Ich glaube aber eigentlich nicht, dass bei mir der Scripting Host defekt ist. Das Problem tritt ja sowohl bei meinem normalen Win7 wie auch bei dem recht frischen Win8-Testsystem auf.

Ich versuche mir mal, ein olles XP zu basteln, vielleicht kommen wir des Rätsels Lösung dann ja näher...

Bis denn
Bommel
  Mit Zitat antworten Zitat
shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#6

AW: Delphi-ActiveX-DLL in VB.Net: Problem mit Strings

  Alt 4. Apr 2012, 18:19
Mal ganz vorab: ich habe das Gefühl, das bei diesem ganzen Kram auch die Betriebssystem-Version nicht ganz unwichtig ist. Ich habe Win7, 64-Bit,
Das hast du sicher recht!
Du musst die Testanwendung einmal mit vollen Admin-Rechten starten.
(rechter Mausklick -> Als Administrator starten)
Dabei verankert sie sich in der Registry unter HKEY_LOCAL_Machine.

Falls du die Registrierung wieder loswerden willst das Programm mit dem Parameter /unregserver starten.

Du meintest, die Bibliothek würde sich selbst registrieren - wo tut sie das denn? Nur, um wenigstens das mal zu verstehen.
EXE-Anwendungen registrieren sich selbst bei jedem Start.
Mit dem (Kommandozeilen-)Parameter /regserver führt die Anwendung nur die Registrierung durch und beendet sich sogleich.

DLL und OCX müssen dagegen von Aussen mit dem Tool RegSvr32.exe (bzw. RegSvr64) registriert werden.
Andreas
  Mit Zitat antworten Zitat
Bbommel

Registriert seit: 27. Jun 2007
Ort: Köln
669 Beiträge
 
Delphi 12 Athens
 
#7

AW: Delphi-ActiveX-DLL in VB.Net: Problem mit Strings

  Alt 4. Apr 2012, 18:39
Hm, ich hatte gedacht, das mit den Admin-Rechten hätte ich schon getestet gehabt... hmpf. Zu viele Tests.

Also noch mal:

1.: Test von deiner exe
Also, ich habe eine Eingabeaufforderung mit Admin-Rechten gestartet und von dieser aus sowohl deine exe gestartet wie auch die vbs-Datei. Scheint zu funktionieren: Ich erhalte zunächst ein Popup...
---------------------------
Version: 1.0 beta Programm:ActiveX Starter Kit
---------------------------
...und im Fenster des Programms erscheinen zwei Zeilen mit einem Gruß des Scripts.

Nur am Ende des Scripts erhalte ich eine Fehlermeldung, schätze aber mal, dass die jetzt nichts mit unserem Problem zu tun hat:
---------------------------
Windows Script Host
---------------------------
Skript: D:\Eigene Dateien\Borland Studio-Projekte\delphi-praxis\activeXstarterKit\TestScript.vbs
Zeile: 11
Zeichen: 1
Fehler: IApplication.GetPath: Invalid Argument
Code: 80040096
Quelle: ActiveXStarterKit.Application_
---------------------------

2.: Compilieren mit D2009
Funktioniert dann jetzt genauso wie 1).

Cool. Vielen Dank schon mal. Das ist immerhin das erste Mal heute, dass ich das Gefühl habe, einen Schritt weiter gekommen zu sein. Dann kann ich ja wenigstens mal mit ein bisschen Optimismus in den Feierabend gehen...

Schönen Abend noch
Bommel
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:34 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz