Strings: von C++ senden - in Delphi empfangen : WIE?

[stoxx]

Zitat:

Zitat von hathor

@Olli:

Was empfiehlst Du?

Dazu müsstest Du erstmal schreiben, was Du eigentlich machst !
Versuchst Du den C Quelltext nach Delphi zu portieren?
dann musst Du Dir einen ShortString in TDATA anlegen, kein Array of Char ..
vielleicht solltest Du noch etwas von Deinem Delphi Quelltext posten :-)

oder liest Du ein MMF Aus, was ein C++ Programm schreibt,
dann dann müsstest Du TSharedData eigentlich so definieren

Delphi-Quellcode:

TSharedData = packet record 
   version : PChar; 
   nr : Integer; 
...

end;

und dann geht auch Dein

Memo1.lines.add(String(version));

wieder (damit wandelst Du den Pointer dann in einen Delphi String um)

[Olli]

Zitat:

Zitat von hathor

@Olli:

Was empfiehlst Du?

Okay, nehmen wir mal folgende Deklaration für die Struktur an:

Code:

struct TData { 
   char *version; 
   int nr; 
   int blubb;
}

sizeof(TData) wird dir 12 zurückgeben! Und nun schreiben wir da rein:

Code:

TData *pointer_auf_daten = ...;
pointer_auf_daten->nr = 1;
pointer_auf_daten->blubb = 0;
pointer_auf_daten->version = "Dieser String ist länger als 12 Zeichen";

Fällt dir was auf? Ich empfehle, daß du uns das fehlende Puzzle-Stück postest und dann können wir auch helfen ;)

[hathor]

sizeof(TData) =8 !!!

[Olli]

Zitat:

Zitat von hathor

sizeof(TData) =8 !!!

Großartig, und 12 ist größer als 8. Ändert bisher nichts an meiner obigen Aussage.

[hathor]

Ich verstehe Dich nicht:

sizeof(TData) =8 in C++ und in Delphi!

[Olli]

Zitat:

Zitat von hathor

Ich verstehe Dich nicht:

sizeof(TData) =8 in C++ und in Delphi!

Ändert noch immer nichts. Dein Code:

Code:

CreateFileMapping((HANDLE)0xFFFFFFFF,NULL,PAGE_READWRITE,0,[color=red]sizeof(TData)[/color],SHAREDMEMORYSEGMENTID);

Ich würde sagen nach Adam Riese und Eva Klein hast du ein mathematisches Problem alle Daten eines Strings in nur 8 Byte unterzubringen, zumal ja in der Struktur - wie schon erwähnt - eben nicht der String selber sondern nur der Zeiger auf die Zeigenkette gespeichert wird.

Nochmal also: Wo also wird der String gespeichert?

[hathor]

Das Problem liegt m.E. nicht auf der C++- sondern der DELPHI-Seite.
Die Integer-Werte können korrekt ausgelesen werden - auch wenn Hunderte im Shared Memory sind,
das Problem sind nur die Strings!

Ich brauche nirgendwo bei C++ einen Speicher für den Zeiger auf die Zeichenkette - wenn die Daten im SHARED MEMORY sind, hat das C++ - Programm seinen Teil erfüllt.

[Lossy eX]

Mal so eine Frage am Rande. Was genau versuchst du da eigentlich? Handelt es sich dabei um zwei getrennte Anwendungen oder um eine Anwendungen und eine DLL? Denn irgendwie konnte ich nicht rausfinden was du da eigentlich genau vor hast.

Wenn es nur eine DLL ist dann kannst du problemlos mit pchar das Ganze erledigen.

Wenn es zwei getrennte Anwendungen sind dann solltest du dir vor Augen halten, dass der Speicher normal nur für die Anwendung in einem virtuellen Speicherbereich gemappt werden. Und Pointer eignen sich dafür als Übertragungsmedium nicht. Du müsstest als entsprechend die Daten des Strings in dem SharedMemory Bereich ablegen. So wie das bei Zahlen von Hause aus der Fall ist. Und beim Auslesen müsstest du daraus wieder einen Text machen. Muss aber gestehen ist nur eine Vermutung, denn mit Shared Memory habe ich bisher noch so gut wie nichts gemacht.

PS: Strings in Delphi haben noch 8 Bytes Nutzinformationen die sich VOR dem eigentlichen Pointer befinden.

[Olli]

Zitat:

Zitat von hathor

Das Problem liegt m.E. nicht auf der C++- sondern der DELPHI-Seite.
Die Integer-Werte können korrekt ausgelesen werden - auch wenn Hunderte im Shared Memory sind,
das Problem sind nur die Strings!

Wunderbar. Wenn du das schon weißt, warum fragst du dann? :roll:

Zitat:

Zitat von hathor

Ich brauche nirgendwo bei C++ einen Speicher für den Zeiger auf die Zeichenkette - wenn die Daten im SHARED MEMORY sind, hat das C++ - Programm seinen Teil erfüllt.

Ja das ist ja auch alles ganz toll, wenn du nur erstmal die eigentliche Zeichenkette und nicht nur den Zeiger abspeicherst. In dem bißchen Code, welches du gezeigt hast, habe ich nirgends auch nur annähernd gesehen, daß du die Zeichenkette "im SHARED MEMORY" speicherst. Vielmehr hast du eben den Zeiger in Prozeß X damit an Prozeß Y übergeben.

@Lossy eX: Waren es nicht sogar 12 Bytes? Ich entsinne mich auch eines Referenzzählers neben Länge und Zeiger. Aber ich habe kein Delphi zum Überprüfen hier.

[Lossy eX]

Olli: Also davor sieht es so aus. [Referänzzähler][Länge][Stringdaten] und evtl abschließendes [#0]. Dabei bin ich mir aber nicht sicher. Und der Pointer eines Strings zeigt auf den Anfang der Daten. Aber du brauchst natürlich auch noch eine Variable die den Pointer aufnimmt. ;)