Weitergabe eines Strings über Pointer funktioniert nicht - manchmal...

[s-off]

Hi QuickAndDirty,

Zitat von QuickAndDirty:

Du schreibst ein C# Programm?
Auch, aber es geht hier nicht um die Kommunikation zwischen der C#-Anwendung und der Delphi-DLL; das funktioniert.

Zitat von QuickAndDirty:

Warum willst du die Delphi DLL dann noch verändern?

Weil sie aktuell nicht das tut, was ich möchte.

Zitat von QuickAndDirty:

Kannst du sie nicht einfach in den C# projekt einbinden und nutzen?

Nein.
Das Ganze ist etwas komplizierter. Das kann und möchte ich hier aber nicht alles auseinander klamüsern
Fakt ist, dass ich das benötige, nach dem ich gefragt habe. Es gibt keine Umgehungslösung oder etwas anderes.
Ich möchte lediglich wissen, ob ich das mit dem Speicher reservieren etc. so richtig mache und warum es mal funktioniert und mal nicht.
Dennoch vielen Dank für Deine Antwort

***

Hi venice2

Zitat von venice2:

Delphi-Quellcode:

   If PBinaryContentSize <> Nil Then
      BinaryContentSize := PBinaryContentSize^;

Das scheint mir schon mal falsch.
Welche größe hat BinaryContentSize wenn PBinaryContentSize = Nil ist?

Verstehe ich nicht so richtig

Zitat von venice2:

Fehlt da nicht ein begin ?

Ähm - nein.

Zitat von venice2:

Nur auf

Delphi-Quellcode:

   SetLength(sBinaryContent, BinaryContentSize);
   Move(PChar(BinaryContentAddress)^, sBinaryContent[1], BinaryContentSize);

zugreifen wenn PBinaryContentSize und PBinaryContentAddress wirklich nicht nil sind.

Ja.
Ich möchte hier aber nochmal klarstellen, dass ich keine Zugriffsverletzung o.ä. bekomme - das ist nicht das Problem!
Wie oben geschrieben geht es darum, dass das, was letztendlich in meinem String landet, gelegentlich nicht passt - meistens aber schon.
Daher vermute ich, dass ich beim Reservieren des Speichers oder dem Schreiben in den String (oder vorher schon in den PChar) irgendetwas falsch mache. (CoAllocMemSize oder Move falsch verwendet?).

Leider gibt es dazu heutzutage auch nicht mehr viel zu finden

[OT]
R.I.P Luckie
Habe es gerade erst gelesen. Seine Tutorials und Expertise haben mir vor ~15 Jahren stets gut geholfen.
[/OT]

[venice2]

Zitat:

Verstehe ich nicht so richtig

Ohne begin

greifst du immer auf diese beiden Zeilen zu.

Delphi-Quellcode:

   SetLength(sBinaryContent, BinaryContentSize);
   Move(PChar(BinaryContentAddress)^, sBinaryContent[1], BinaryContentSize);

Egal ob BinaryContentSize 0 oder einen anderen Wert enthält. Oder PBinaryContentSize nil ist oder nicht.

Warum willst du also einen move bzw. die länge auf 0 setzen wenn es nicht nötig ist.
Egal. Überdenke es noch mal.

EDIT:
Versuche es mal mit FillChar bevor du neue Daten ermitteln willst.

[himitsu]

Zitat:

ich habe mich lange Zeit nicht mehr mit Delphi beschäftigt und stehe nun vor einem Problem

So lange, dass dein Compiler damals noch ANSI war (<2009), aber nun Er mit Unicode arbeitet (2009+) und dein Code durch so Dinge wie String/PChar/... nun nicht mehr das Selbe macht?

Zitat:

CoTaskMemAlloc((Length(FOutputStreamInt.DataString) + 1));

Irgendwie sieht das eher nach ANSI aus, anstatt nach Unicode.

Ich seh ein PChar ... bei externen APIs arbeitet man niemals mit dyniamischen Typen!
PWideChar oder PAnsiChar

Und warum seh ich irgendwie nirgendwo etwas von BSTR/WideString?

[venice2]

Genau wegen deiner Problem habe ich eine Wrapper.dll in C# geschrieben die man einfach als Verweis in C# einbinden kann.

Diese regelt dann die Kommunikation zwischen der Delphi.dll -> Wrapper.dll - Anwendung in C#.

Somit konnte ich auf beide Varianten des Codes Einfluß nehmen (UnmanagedType und managedType)
Zudem habe ich alle Strings aus Delphi als PWideChar übergeben. Nicht als PChar !

Delphi..
Pluginfile : PWideChar;

C# Wrapper

Code:

    [MarshalAs(UnmanagedType.BStr)]
    public string PluginFile = string.Empty;

Nur so als Anregung.

Zitat:

Achte darauf, das du auch einen Unicode-String in Form von PWideChars zurückgibst, das erspart dir weitere Kopfschmerzen: In C# ist jeder String automatisch Unicode.

https://im-coder.com/wie-verwenden-v...-typ-in-c.html
OK bin raus

[himitsu]

Wenn in C# ein BSTR, warum dann in Delphi ein PWideChar, anstatt eines WideString? (WideString ist intern ein BSTR)

Die Delphi-DLL wird überarbeitet?
Wozu dann noch ein Wrapper dazwischen, anstatt direkt?

[s-off]

Hi Himitsu,

Zitat von himitsu:

Zitat:

ich habe mich lange Zeit nicht mehr mit Delphi beschäftigt und stehe nun vor einem Problem

So lange, dass dein Compiler damals noch ANSI war (<2009), aber nun Er mit Unicode arbeitet (2009+) und dein Code durch so Dinge wie String/PChar/... nun nicht mehr das Selbe macht?

Ganz genau das ist das Problem

Zitat von himitsu:

Zitat:

CoTaskMemAlloc((Length(FOutputStreamInt.DataString) + 1));

Irgendwie sieht das eher nach ANSI aus, anstatt nach Unicode.

Ich bin so lange raus und es fällt mir sehr schwer, mich in diese alten Strukturen reinzudenken
Gib mir doch mal einen Anschubs, wie das nun mit Unicode funktioniert.

Zitat von himitsu:

Und warum seh ich irgendwie nirgendwo etwas von BSTR/WideString?

Weil ich nur einige Stellen des Delphi-Codes gepostet habe
Wie gesagt: es geht ausschließlich um den Teil innerhalb der Delphi-DLL.
In C# habe ich das schon mit BSTR deklariert ([MarshalAs(UnmanagedType.BStr)]) und die aufgerufene Routine in der Delphi-Dll verwendet natürlich WideString.
Das schrieb ich ja auch in meinem initialen Beitrag

Zitat:

Ich muss aus C# eine Delphi-DLL mit Parametern (BSTR -> WideString) aufrufen, in der DLL ein PDF erzeugen und dieses base64-decodiert wieder zurückgeben.

**

Zitat von venice2:

Achte darauf, das du auch einen Unicode-String in Form von PWideChars zurückgibst

Ist in Delphi 10.1 PChar nicht automatisch PWideChar?

Zitat von venice2:

https://im-coder.com/wie-verwenden-v...-typ-in-c.html

Schaue ich mir mal an - besten Dank.
Edit: Ahhhh - wie kann man das auf Englisch umstellen? Da bekommt man ja die Krise bei dieser Übersetzung.

Zitat von himitsu:

Wenn in C# ein BSTR, warum dann in Delphi ein PWideChar, anstatt eines WideString?

Mache ich ja (siehe oben)

Zitat von himitsu:

Die Delphi-DLL wird überarbeitet?
Wozu dann noch ein Wrapper dazwischen, anstatt direkt?

Was meinst Du mit Wrapper?
Ich habe einen Webservice, der in C# geschrieben ist.
Dieser soll halt das, was die Delphi-DLL an PDF-Stream erzeugt, an den Caller zurückgeben.
Das ist der ganze Zauber.

[himitsu]

vor D2009 war
String = AnsiString
PChar = PAnsiChar
Char = AnsiChar

seit D2009 sind es
String = UnicodeString
PChar = PWideChar
Char = WideChar


Entweder alle String/PChar/Char explitit auf ANSI ändern, so wie es früher war

oder jetzt so lassen, wie es nun ist, aber dennoch alle Typen auf Unicode/Wide ändern, (sie sind es jetzt schon, aber wie gesagt, niemals dynamische Typen in externen Schnittstellen)
aber beachten, dass Chars dort 2 Byte groß sind, also der Speicher ist doppelt so groß, was auch bei Length/Size beachtet werden muß.

[s-off]

Zitat von himitsu:

vor D2009 war
String = AnsiString
PChar = PAnsiChar
Char = AnsiChar

seit D2009 sind es
String = UnicodeString
PChar = PWideChar
Char = WideChar


Entweder alle String/PChar/Char explitit auf ANSI ändern, so wie es früher war

oder jetzt so lassen, wie es nun ist, aber dennoch alle Typen auf Unicode/Wide ändern, (sie sind es jetzt schon, aber wie gesagt, niemals dynamische Typen in externen Schnittstellen)
aber beachten, dass Chars dort 2 Byte groß sind, also der Speicher ist doppelt so groß, was auch bei Length/Size beachtet werden muß.

Alles klar, ich schaue mir das am Montag nochmal im Detail an Besten Dank!

[s-off]

Hallo zusammen,

kurze Rückmeldung: es funktioniert nun wie gewünscht.

Ich habe aus PChar einen PWideChar gemacht und aus CoTaskMemAlloc und Move wurde WideStrAlloc und StringToWideChar.
Des Weiteren habe ich zum Rückschreiben des PWideChar in den String die SetString-Methode benutzt.
Nun ist alles lecker.


Vielen Dank nochmals an alle Tippgeber!