AnsiStringArray aus DLL an Excel-VBA

[EWeiss]

Habe dir das mal schnell zusammen geklopft..
Alle Strings (PAnsiChars) werden aus der DLL von der const AnsiString_Vektor_GLOBAL an VBA(VB) geschickt.
ShareMem ist wohl hier nicht nötig..

Das ist alles..

Delphi-Quellcode:

library Delphi_String_for_Excel_Test;

uses ShareMem, SysUtils, Classes;

{$R *.res}

const
   AnsiString_Vektor_GLOBAL: Array [0..3] of PAnsiChar =
     ('1: Erster String',
      '2: Das ist der ZWEITE String!',
      '3: ...und hier ist der DRITTE!',
      '4: Schlußlicht-String...');

function PAnsiChar_To_Excel(Delimiter: AnsiChar = ';'): PAnsiChar; stdcall;
var
  IntI: Integer;
  erg: AnsiString;
begin

  for IntI := 0 to 3 do
  begin
    erg := erg + AnsiString(AnsiString_Vektor_GLOBAL[IntI]) + Delimiter;
    erg := copy(erg, 1, length(erg));
  end;
  result := PAnsiChar(erg);
end;

exports
   PAnsiChar_To_Excel;

begin

end.

VBA..
Module..

Code:

Public Declare Function PAnsiChar_To_Excel Lib "Delphi_String_for_Excel_Test" ( _
    Optional ByVal Delimiter As Byte = 59 _
) As Long

Form..

Code:

Option Explicit

Private Sub cmdGet_Click()

Dim IntI       As Integer
Dim flist      As String
Dim uB         As Integer
Dim LngP       As Long
Dim alist()    As String
Dim Delimiter As Byte

    ListInput.Clear
    Delimiter = 124 ' >>> Default ohne Angabe = 59 = ";"
    
    LngP = PAnsiChar_To_Excel(Delimiter) ' >>> "|"

    flist = VBStrFromAnsiPtr(LngP)
    alist = Split(flist, "|")
    
    If flist > "" Then
        uB = UBound(alist)
        For IntI = 0 To uB
            ListInput.AddItem alist(IntI)
        Next
    End If
    
End Sub

gruss

[hoika]

Hallo,
muss bei Split nicht ';' rein?

[EWeiss]

Zitat von hoika:

Hallo,
muss bei Split nicht ';' rein?

Jo habe es getippt.. Schreibfehler aber das Sample funktioniert schon richtig.
Musst halt nur mal laden

Kommt halt drauf an was ich übergebe
PAnsiChar_To_Excel ohne Delimiter dann ";" ansonsten halt das was übergeben wird.

Habe es korrigiert.

bsp:

Code:

LngP = PAnsiChar_To_Excel(124) '"|"

Zitat:

aber ich glaube, dein Ansatz ist falsch

Also meiner bestimmt nicht.

gruss

[Andreas13]

Hallo zusammen,

zunächst danke für die Diskussion und die wertvollen Beiträge!
Meine Frage wurde allerdings ganz schön mißverstanden: Ich dachte, die drei Demo-Dateien würden mein Ansinnen erklären. Aber ich sehe im Nachhinein, ich hätte mich klarer ausdrücken sollen.

Zitat von EWeiss:

Na ja zu testen ist da nix..
Wäre vielleicht sinnvoll wenn du auch den VBA Quelltext hochladen würdest.
Danach könnte ich mir das mal anschauen.

Es war doch alles dabei... Aber danke für Deine tolle Lösung!

Ich erstelle technische-wissenschaftliche Berechnungen in Delphi, die ich als Funktion über eine DLL in Excel einbinde. Meine „Programme“ sind daher keine eigenständigen Programme mit eigener Oberfläche, sondern laufen als „Bestandteil“ von Excel. Der Benutzer gibt seine Eingangsdaten in Excel ein, schickt die Funktion ab, und die Ergebnisse der Berechnungen erscheinen in der von ihm gewählten Platz in der Excel-Tabelle.

Das funktioniert mit Zahlenwerten seit langem sehr gut. Ab und zu müsste ich neben den berechneten Zahlenkolonnen (in Excel: „Matrix“ genannt) auch mal Texte mit ausgeben: z. B. Variablen-Bezeichnungen, oder die Ergebnisse oder Zwischenwerte mit einer hohen Genauigkeit (z.B. 100 Ziffern) als Text. Und dazu übertrage ich diese Texte von der DLL an Excel VBA und leite sie von dort in die Tabelle.

Meine oben vorgestellte Lösung funktioniert recht gut, allerdings kann ich ausschließlich AnsiStrings transferieren, obwohl Excels BSTR-Strings eigentlich WideStrings sind, wie auch Peter Below richtig festgestellt hat. Warum andere String-Typen nicht funktionieren, konnte ich bisher nicht herausfinden. Aber ich muss nicht alles verstehen…

Ich wollte lediglich die Schleife

Zitat:

…
For i = 1 To Anzahl
Vektor(i, 1) = NULStr
AnsiString_To_Excel Vektor(i, 1), i - 1 ' !!! -1: Delphi: NULL-basiert!
Next
…

in Delphi übertragen, um den Aufruf der DLL-Procedure „AnsiString_To_Excel“ nur ein einziges Mal machen zu müssen.

Aber inzwischen habe ich nach weiteren Tests eingesehen, daß mein Ansatz eine Schnapsidee war, und daß es en bloc am ganzen Vektor nicht geht, weil meine Routine nur die von Excel bereitgestellte Kopie des Strings patcht, und das Original String-Array ganz woanders im Speicher liegt, wo ich die Strings auch nicht mit Pointer-Akrobatik verändern kann.

Noch einmal danke für Eure Hilfe!

Gruß

Andreas

[EWeiss]

Zitat:

Es war doch alles dabei... Aber danke für Deine tolle Lösung!

Ja die Daten für Exel VBA nicht für VB

Na egal läuft unter VB und sollte es auch unter VBA tun.

Zitat:

Q. What is Visual Basic for Applications?

A. Microsoft Visual Basic for Applications (VBA) is an embeddable programming environment designed to enable developers to build custom solutions using the full power of Microsoft Visual Basic.
Developers using applications that host VBA can automate and extend the application functionality, shortening the development cycle of custom business solutions.

Sollte also funktionieren.

Zitat:

obwohl Excels BSTR-Strings eigentlich WideStrings sind, wie auch Peter Below richtig festgestellt hat.

Ich mache ja letztendlich nichts anderes nur über einen kleinen Umweg..

Code:

StrConv(bStr, vbUnicode)

kommt den WideString am nächsten.

Zitat:

wo ich die Strings auch nicht mit Pointer-Akrobatik verändern kann.

Byte, Long, string sollte auch "Exel VBA" verstehen.

gruss

[Andreas13]

@EWeiss

Hallo,

danke für Deine Hinweise. Ich habe versucht Deinen VBA-Code in Excel's VBA umzusetzen, bin allerdings gescheitert...
Ich bin halt kein VBA-Programmierer. Meine rudimentären VBA-Kenntnisse dienen nur dazu, die VBA-Schnittstelle zwischen Excel und Delphi zu realisieren. Mit Deinem objektorientierten VBA-Ansatz kenne ich mich leider nicht aus.
Könntest Du bitte den Code in der beiliegenden Datei ToExcel_Test_1.xlsm bei Gelegenheit evtl. so anpassen, daß es "dort" in Excel läuft?

Vielen Dank!

Gruß aus Nürnberg
Andreas

[EWeiss]

Zitat:

Könntest Du bitte den Code in der beiliegenden Datei ToExcel_Test_1.xlsm bei Gelegenheit evtl. so anpassen, daß es "dort" in Excel läuft?

Würde dir da gerne helfen habe aber kein VBA Exel. (Office) installiert.

gruss