C++ zu Delphi funktion umschreiben

[Luckie]

Zitat von XXcD:

Beim ausführen bekomme ich immer ein Access Violation.

Und wo?

[XXcD]

An dieser Stelle:

str := mem[8] or (mem[9] shl 8);

[himitsu]

Ist die Datei auch 2048 Byte groß?

Und es wäre nicht schlecht, wenn man "mem" etwas Speicher gibt (SetLength), bevor man da versucht war reinzuspeichern (read).

(Wobei ich hier des Zugriffsverletzung schon beim read erwartet hätte.)

Wegen D2009/D2007 ... da die Datei so oder so Ansi ist, sollte man den Code dennoch auf AnsiString auslegen.
Denn sonst gibt es mal Probleme, wenn sich doch irgendwann mal überlegt dieses auf D2009+ zu portieren.

[Neutral General]

Man sollte vorher Speicher für das Array reservieren:

SetLength(mem,2048); Und das Einlesen muss so aussehen:

stream.read(mem[0],2048);

[XXcD]

Ok das funktioniert.
Vielen Dank schonmal, nur wird der Titel nicht komplett ausgelesen, da stehen dann nur die ersten 4 Buchstaben.

[himitsu]

Zitat von XXcD:

Vielen Dank schonmal, nur wird der Titel nicht komplett ausgelesen, da stehen dann nur die ersten 4 Buchstaben.

Sizeof(mem) = 4 ... also 4 Byte/Zeichen

stattdessen mal lstrlen(PAnsiChar(@mem[pos])) versuchen
oder diesen Parameter weglassen (ich dachte so würde SetString bis zur #0 lesen)

oder doch mal 63 dort versuchen, aber ich bin mir nicht sicher, ob SetString dann auch bei der #0 aufhört.

[XXcD]

Mit lstrlen(PAnsiChar(@mem[pos])) funktionierts.

Jetzt habe ich noch eine zweite Funktion, die habe ich auch schon selber in Delphi übersetzt.
Aber leider funktioniert, das noch nicht.

Könnte mir jemand sagen wo ich hier den Fehler habe?

Die If Bedingung wird garnicht abgearbeitet.

Code:

char parse_id(char *path)
{
   FILE *fp;
   char str2;
   int n;
   
   fopen_s(&fp, path, "rb");
   if (fp != NULL)
      {
      unsigned len;
      unsigned char *mem=NULL;

      fseek(fp, 0, SEEK_END);
      len=ftell(fp);

      mem= (unsigned char *) malloc(len+16);
      if(!mem) {fclose(fp);}

      memset(mem, 0, len+16);

      fseek(fp, 0, SEEK_SET);

      fread((void *) mem, len, 1, fp);

      fclose(fp);

      for(n=0x20;n<0x200;n+=0x20)
         {
         if(!strcmp((char *) &mem[n], "TITLE_ID"))
            {
            n= (mem[n+0x12]<<8) | mem[n+0x13];
            memcpy(&str2, &mem[n], 16);
            
            }
         return str2;
         }
      }
}

}

Delphi-Quellcode:

function GetID(Files: string): AnsiString;
var
stream : TFileStream;
mem: TByteDynArray;
title_id: AnsiString;
str: word;
I, n: integer;
begin
   stream := TFileStream.Create(Files,fmOpenRead);
   SetLength(mem,stream.Size);
   stream.read(mem[0],stream.Size);

n:=32;
for I := 0 to 16 do
begin
  if lstrcmpA(@mem[n], 'TITLE_ID') = 0 then
  begin
        n:= (mem[n+18] shl 8) or mem[n+19];
            Move(mem[n], title_id, 16);
        Result:=title_id;
  end;
n:=n+32;
end;

[XXcD]

Ok hab das Problem gelöst.

So funktionierts:

Delphi-Quellcode:

function GetID(Files: string): AnsiString;
var
stream : TFileStream;
mem: TByteDynArray;
title_id: AnsiString;
str: word;
I: integer;
n: word;
begin
   stream := TFileStream.Create(Files,fmOpenRead);
   SetLength(mem,stream.Size);
   stream.read(mem[0],stream.Size);

n:=32;
for I := 1 to 16 do
begin
  if lstrcmpA(@mem[n], 'TITLE_ID') = 0 then
  begin
        n:= (mem[n+18] shl 8) or mem[n+19];
        SetString(title_id, PAnsiChar(@mem[n]), lstrlen(PAnsiChar(@mem[n])));
        Result:=title_id;
        break;
  end;
  inc(n, 32);
end;
Stream.Free;
end;

Vielen, Vielen Dank nochmal.