Delphi Var Parameter in C++

[NickelM]

Hmm also die Funktion macht folgendes :

okay ich schreib mal den gesammten Code der Funktion rein. Es hängt nur an der einen. Die werte, wenn ich sie in C++ ausgeben stimmen auch.
Nur das mit PByte, wie ich es jetzt gemacht hab, geht nicht so...vermutlich immer Zugriefsverletzung unter C++. In Delphi funkt es.

Delphi-Quellcode:

//DLL Funktion
function ReadPackedFileData(PackFileHandle : Integer; DataPos : Integer; DataSize : Integer; var Bytes : PByte): Integer; stdcall;
var BytesStream : TBytesStream;
    ReadBytes,EndPackBytes : TBytes;
    RByte : Byte;
    ZLibStream : TZDecompressionStream;
begin
   FileSeek(PackFileHandle,DataPos,0);
   SetLength(ReadBytes,DataSize);
   If FileRead(PackFileHandle,ReadBytes[0],DataSize) = DataSize then
   begin
    BytesStream := TBytesStream.Create(ReadBytes);
    ZLibStream := TZDecompressionStream.Create(BytesStream);

    while ZLibStream.Read(RByte,1) = 1 do
    begin
    SetLength(EndPackBytes,High(EndPackBytes)+2);
    EndPackBytes[High(EndPackBytes)] := RByte;
    end;
    Result := High(EndPackBytes)+1;
    GetMem(Bytes,Result);
    Move(EndPackBytes[0],Bytes^,Result);
    ZLibStream.Free;
    BytesStream.Free;

   end
   else
   Result := -1;
end;

So funkt es in Delphi :

Delphi-Quellcode:

var I : Integer;
    Bytes : TBytes;
    BLength : Integer;
    PB : PByte;
begin
    If String(PackedFileInfo^.FileName) = FileName then
    begin
     BLength := ReadPackedFileData(FPackInfo.FileHandle,
     PackedFileInfo^.FileDataPos,
     PackedFileInfo^.FileSizeCompressed,
     PB);
     if BLength > -1 then
     begin
     SetLength(Bytes,BLength);
     System.Move(PB^,Bytes[0],BLength);
     Result := TMemoryStream.Create;
     Result.Write(Bytes[0],High(Bytes));
     Result.Position := 0;
     Bytes := nil;
     end;
    end;
end;

So und so versuch ich sie aufzurufen (die Integer werte stimmen...') :

Code:

typedef int (*TReadPackedFileData) (int ,int ,int, byte*&);

int main()
{
byte* bytes = NULL;
int Bcount;

//Dynamisch geladen
Bcount = ReadPackedFileData(Test1->FileHandle,Test2->FileDataPos,Test2->FileSizeCompressed, bytes);
}

Der Sinn davon ist das ich die entpackten Daten zurückgeben will.
Da es nicht wie in Delphi mit TBytes geht, wollte ich den Pointer auf den anfange (wie ich auch denke hinbekommen habe) zurückgeben.
Damit man dann mit C++ ähnlichen Funktionen wie Move von Delphi darauf zugreifen kann.

[Medium]

Delphi-Dynamische Arrays sind Compilermagic, die C so nicht kennt. Der übliche Weg in C ist entweder ein "byte[0]"-Array plus separater Längenangabe, oder ein Pointer auf den Array-Elementtyp, auch mit separater Längenangabe.
Beides ist dann zu Delphi kompatibel, wenn man in den Methoden einen Pointer auf das erste Element des Delphi-Arrays übergibt (@MyArray[0]), aber du musst in jedem Fall Länge separat mit übergeben lassen.

So ein Funktionskopf könnte in einer Delphi-DLL dann so aussehen:

Delphi-Quellcode:

procedure Foo(myArray: PByte; aLength: Integer);
var
  bytes: TByteArray;
begin
  SetLength(bytes, aLength);
  Move(bytes[0], myArray, aLength);
.
.
end;

Danach solltest du eine Kopie in "bytes" haben, die man mit den ganzen Komfort von Delphi ansprechen kann, obgleich nur ein Pointer plus Länge übergeben wurden. Falls das übergebene Array verändert werden soll, musst du es nachher natürlich zurück kopieren. Etwas "undelphiischer" wäre gleich die Verwendung von Pointerarithmetik wie in C, nicht ganz sooo schmuck, aber auch kein Beinbruch.

Ah, ich sehe grad, dass du das Array befüllen willst! Dann wirst du nicht umhin kommen eine Funktion anzubieten, die die erwartete Länge vorab liefert, weil das Array muss vom Host-Programm zuvor ja komplett reserviert werden. Üblich ist es dafür die selbe Funktion zu nehmen, welche die Länge als result hat, und wenn für den Container ein NULL (nil) übergeben wird, gibt's eben nur Länge ohne Daten. Der Host muss dann also 2x aufrufen, ein mal mit NULL, und danach mit korrekt dimensioniertem Array (=Pointer auf sein erstes Element).

[NickelM]

Achso..du meinst ich muss im Hostprogramm erst den speicher reservieren und dan die Referenz zu dem PByte übergeben in C++?

Und in Delphi das mit GetMem kann mir dan sparen ober?

[NickelM]

Nun das mit PByte funkt soweit.

Jetzt ist mir ein Phänomen aufgefallen, was ich mir nicht erklären kann.

Folgender Code funkt (bitte auf die Reihenfolge achten):

Code:

ReadNextPackedFileInfo(Test1->FileHandle,Test2);
bytes = new byte[Test2->FileSizeUncompressed];
ReadPackedFileData(Test1->FileHandle,Test2, bytes);

cout << Test2->FileName; //Wird ausgeben ohne Fehler
cout << endl;

Folgender nicht:

Code:

ReadNextPackedFileInfo(Test1->FileHandle,Test2);
cout << Test2->FileName; //Wird ausgegeben aber danach Fehler
cout << endl;

bytes = new byte[Test2->FileSizeUncompressed];
ReadPackedFileData(Test1->FileHandle,Test2, bytes);

Was hat das mit Reihenfolge zutun?
FileName ist vom Typ PAnsiChar(Delphi) char*(C++) und ist in einem record/struct. Der Speicher wird in der DLL bei ReadNextPackedFileInfo initalisiert und von der PackDatei gelesen.

P.S. : Gibt es ne Seite wo es erklärt wird worauf man bei Dlls, wo mit mehren Programmiersprachen kompatible sein sollen, achten soll?