Cpp nach Delphi übersetzung

[Horst0815]

wie übersetz ichs dann?

[Der schöne Günther]

Du wirst in deinem C-Code irgendwo wohl etwas wie

Code:

typedef unsigned char byte;

drin haben, oder?

Ich glaube an einfachsten fährst du nicht mit Byte Char-Arrays, sondern dem Delphi-Typen PChar bzw. in diesem Fall wohl PAnsiChar .

[Horst0815]

in der Tat

Code:

#define dword unsigned int
#define word unsigned short

aber nix mit byte


ja hatte es bisher mit PChar umgesetzt wollt nur sicher gehen

[Der schöne Günther]

Das define/typedef kommt möglicherweise aus einem Import. Aber es geht doch um ein Delphi in welchem ein Char größer als ein Byte ist, richtig? Dann wäre PAnsiChar doch das richtige.

[mensch72]

mein Delphi ab 2007 kennt PByteArray, was man überall wo in Cpp mit BYTE* gearbeitet wird in Delphi verwenden kann.

Da in CPP gerne mit BYTE Arrays für normale nicht UniCode Zeichenketten(= Zeichenarrays) gearbeitet wird, sollte man bei CPP->Delphi Vorhaben sich mal solche 3 Hilfsfunktionen in Delphi basteln. Ich habe das schmutzig für UniCode XE selbst per jedem 2. Byte gelöst, weil ich leider noch kein auf für FMX OutOfTheBox portables Beispiel für Delphi UnicodeString <-> UTF8ByteArray gefunden habe. TEncoding wäre da ja dafür wohl gedacht, aber ich habe es noch nicht geschafft, meine 3 simplen Funktionen per TEncoding zu realisieren...

function TXTstringToPByteArray(const value:string; const baUTF8 : PByteArray; const maxlen:Integer):Integer;
function PByteArrayToTXTstring(var value:string; const baUTF8 : PByteArray; const maxlen:Integer):Integer; overload;
function PByteArrayToTXTstring(const baUTF8 : PByteArray; const maxlen:Integer):string; overload;

Sollte es jemanden geben, der die paar Zeilen mit TEncoding für UniCodeString<->UTF8ByteArray griffbereit oder im Gedächtnis hat, wäre das auch hier sicher helfen

[Sir Rufo]

Zitat von mensch72:

Sollte es jemanden geben, der die paar Zeilen mit TEncoding für UniCodeString<->UTF8ByteArray griffbereit oder im Gedächtnis hat, wäre das auch hier sicher helfen

Meinst du so etwas?

Delphi-Quellcode:

program dp_187166;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.Generics.Collections,
  System.SysUtils;

function PByteArrayToString( const Data: PByteArray; const DataCount: Integer; const Encoding: TEncoding ): string;
var
  buffer: TBytes;
begin
  SetLength( buffer, DataCount );
  TArray.Copy<Byte>( Data^, buffer, DataCount );
  Result := Encoding.GetString( buffer );
end;

procedure Main;
const
  expectedStr = 'foobar';
var
  buffer   : TArray<Byte>;
  actualStr: string;
begin
  buffer    := TEncoding.UTF8.GetBytes( expectedStr );
  actualStr := PByteArrayToString( @buffer[ 0 ], Length( buffer ), TEncoding.UTF8 );
  Assert( actualStr = expectedStr );
end;

begin
  try
    Main;
  except
    on E: Exception do
      Writeln( E.ClassName, ': ', E.Message );
  end;

end.

[Horst0815]

Danke für alle Tips und Vorschläge

[mensch72]

..."Meinst du so etwas?"...

ja genau sowas meinte ich... damit kann ich meinen Code etwas mit Delphi-Like bekommen