C++ DLL in Delphi unter Linux verwenden

[Fritzew]

Char* auf C-Seite ist im Normalfall ein PAnsiChar in Delphi.

[Harry Stahl]

Nein, mit PAnsiChar komme ich leider auch nicht weiter

In C++ ist die Funktion wie folgt deklariert:

Code:

int FoxitQPLLinuxCPP1611::UnlockKey(const std::wstring& LicenseKey)
{
    if (loadError) return 0;
    return FoxitQPLUnlockKey(instanceID, WideStringParm(LicenseKey));
}

Also das sieht für mich eindeutig nach Widestring aus. In der Windows-Unit, welche den Zugriff auf die Windows-QPDF-Dll ermöglicht, geht es auch per Widechar...

[Klaus01]

.. viellieicht hilft das: https://stackoverflow.com/questions/...g-vs-stdstring

Grüße Klaus

[Fritzew]

Zitat von Harry Stahl:

Code:

int FoxitQPLLinuxCPP1611::UnlockKey(const std::wstring& LicenseKey)
{
    if (loadError) return 0;
    return FoxitQPLUnlockKey(instanceID, WideStringParm(LicenseKey));
}

Dann sollte Deine Deklaration allerdings korrekt sein,
wie ist die function WideStringParm deklariert?

Wo ich mir nicht sicher bin ist die calling convention, ich denke es müsste cdecl sein......

[Klaus01]

.. kommt es nicht zu Problemen weil wchar_t unter Linux 4 Byte groß ist.
wstring basiert auf wchar_t.
Delphi hat meines Wissens keinen (String)character type der 4 Byte groß ist.

Grüße
Klaus

[Fritzew]

Ich denke da hat Klaus recht,
Benutze zum trappen der wchar_t Parameter die MarshaledAString typen. Genau so wie es Embarcadero letztendlich in der runtime macht,
scheu einfach in die source.......
Ich mache nichts mit Delphi Linux deshalb, weiss ich da auch nicht mehr aber denke die Source der Runtime sollte helfen

[Harry Stahl]

In C++ ist WideStringParam so deklariert:

Code:

wchar_t* WideStringParm(const std::wstring& strParm)
{
    wchar_t* sp;
    int length = (int)strParm.length();
    if (length == 0)
    {
        sp = NULL;
    }
    else
    {
        wchar_t wordArray[length];
        for (int charX = 0; charX < length; charX++)
        {
            wordArray[charX] = (wchar_t)(strParm[charX]);
        }
        sp = (wchar_t*)FoxitQPLCreateBuffer(instanceID, length * 4);
        FoxitQPLAddToBuffer(instanceID, (char*)sp, (char*)wordArray, length * 4);
    }
    return sp;
}

In der Unit für den Zugriff auf die Windows-Version-DLL ist es so deklariert:

Delphi-Quellcode:

function StringParm(const ParmValue: WideString; var HasNulls: Boolean): PWideChar;
var
  P: Integer;
begin
  HasNulls := False;

  if ParmValue = '' then begin
    Result := nil;
  end else begin
    HasNulls := True;
    P := Length(ParmValue);
    Result := PWideChar(DebenuPDFLibraryCreateBuffer(FInstanceID, P * 2));
    DebenuPDFLibraryAddToBuffer(FInstanceID, Pointer(Result), @ParmValue[1], P * 2);
  end;
end;

Hier fällt natürlich in der Tat auf, dass der Buffer P * 2 ist, in der C++-Variante für die Linux-Version P * 4;

@FritzeW: Kann denn MarshaledA wirklich richtig sein, das ist doch letztlich nur ein Pointer auf Ansistring?

[Harry Stahl]

Zitat von Klaus01:

.. kommt es nicht zu Problemen weil wchar_t unter Linux 4 Byte groß ist.
wstring basiert auf wchar_t.
Delphi hat meines Wissens keinen (String)character type der 4 Byte groß ist.

Grüße
Klaus

Was würde denn daraus folgen, was könnte ich als Ersatz nehmen?

[Harry Stahl]

OK, das mit dem Hinweis des 4-Byte Char-Typs unter Linux war der richtige Tipp:

Wenn ich die Strings derart manipuliere, dass jeweils nach einem Char ein #0 folgt, kann ich die Aufrufe, wo Strings übergeben müssen, tätigen und es funktioniert.

stdcall war übrigens doch richtig.

Gibt es dafür vielleicht schon eine fertige Systemfunktion (für die oben beschriebene Manipulation der Strings)?

[Klaus01]

Zitat:

Was würde denn daraus folgen, was könnte ich als Ersatz nehmen?

Ich weiß nicht ob es funktionieren wird das ganze auf ein Array of Integer abzubilden,
eventuell auch mit varianten Records.

Oder mal bei Embacadero nachfragen wann Delphi (!=C++) char32_t unterstützen wird.

Auf eine ältere .so Datei (vor c++ 11) kannst Du nicht zugreifen -oder?
Da sollte wchar_t noch 16 Bit haben.

Grüße
Klaus