AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

C++ zu Delphi funktion umschreiben

Ein Thema von XXcD · begonnen am 5. Okt 2010 · letzter Beitrag vom 5. Okt 2010
 
Benutzerbild von XXcD
XXcD

Registriert seit: 19. Sep 2006
581 Beiträge
 
Delphi 2007 Professional
 
#4

AW: C++ zu Delphi funktion umschreiben

  Alt 5. Okt 2010, 21:49
Also ich bekomme den Code noch nicht so ganz zum laufen.

Beim ausführen bekomme ich immer ein Access Violation.

Delphi-Quellcode:
var
stream : TFileStream;
mem: TByteDynArray;
title_name: AnsiString;
indx: integer;
str: word;
pos : word;
begin
   stream := TFileStream.Create(Files,fmOpenRead);
   stream.read(mem,2048);


str := mem[8] or (mem[9] shl 8);
pos := mem[12] or (mem[13] shl 8);
indx := 0;
title_name := '';
while str < Length(mem) do
begin
  if mem[str] = 0 then break;
  if not lstrcmpA(@mem[str], 'TITLE') = 0 then
  begin
    SetString(title_name, PAnsiChar(@mem[pos]), Sizeof(mem));
    //title_name := Copy(title_name, 1, 63);
    break;
  end;
  while mem[str] <> 0 do inc(str);
  inc(str);
  inc(pos, mem[28 + indx] or (mem[29 + indx] shl 8));
  inc(indx, 16);
end;
end;

Edit: Ich nutze Delphi 2007, hatte nen paar Probleme mit OpenGL in der 2009 Version.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz