Alternative für String Assign

[Neutral General]

Man nimmt einen Pointer mit GetMem oder ggf. auch ein Byte Array.

[Uwe Raabe]

Zitat von EWeiss:

Dann nehme ich nen PWideChar.. oder besser PWideString?

Auf keinen Fall! Wenn du eine Reihe von Bytes lesen willst, dann nimm TBytes - dafür ist das da.

Delphi-Quellcode:

function TAnimatePng.FGet(hFile: THandle; var sBuffer: TBytes): LongInt;  // <===
var
  ByttesReaded: DWORD;
  LenBuf: DWORD;
begin

  Result := 0;
  if hFile <> 0 then
  begin
    ByttesReaded := 0;
    LenBuf := Length(sBuffer);
    if LenBuf <> 0 then
    begin
      if ReadFile(hFile, sBuffer[0], LenBuf, ByttesReaded, 0) = false then   // <===
        Result := GetLastError();
    end;
  end;
end;

[EWeiss]

Zitat von Uwe Raabe:

Zitat von EWeiss:

Dann nehme ich nen PWideChar.. oder besser PWideString?

Auf keinen Fall! Wenn du eine Reihe von Bytes lesen willst, dann nimm TBytes - dafür ist das da.

Delphi-Quellcode:

function TAnimatePng.FGet(hFile: THandle; var sBuffer: TBytes): LongInt;  // <===
var
  ByttesReaded: DWORD;
  LenBuf: DWORD;
begin

  Result := 0;
  if hFile <> 0 then
  begin
    ByttesReaded := 0;
    LenBuf := Length(sBuffer);
    if LenBuf <> 0 then
    begin
      if ReadFile(hFile, sBuffer[0], LenBuf, ByttesReaded, 0) = false then   // <===
        Result := GetLastError();
    end;
  end;
end;

Wie bleibt das denn mit dem setzen des Buffer SetLength bei TBytes?
Belassen?

ok sollte gehn ist ja ein Array

gruss

[Uwe Raabe]

Zitat von EWeiss:

Wie bleibt das denn mit dem setzen des Buffer SetLength bei TBytes?
Belassen?

Ja, denn dann bekommst du auch wirklich einen Buffer mit N Bytes. Bei einem String wären das nämlich doppelt so viele.

Delphi-Quellcode:

var
  s: string;
  b: TBytes;
begin
  SetLength(s, 10); // 20 Bytes
  SetLength(b, 10); // 10 Bytes;

[EWeiss]

Zitat von Uwe Raabe:

Zitat von EWeiss:

Wie bleibt das denn mit dem setzen des Buffer SetLength bei TBytes?
Belassen?

Ja, denn dann bekommst du auch wirklich einen Buffer mit N Bytes. Bei einem String wären das nämlich doppelt so viele.

Delphi-Quellcode:

var
  s: string;
  b: TBytes;
begin
  SetLength(s, 10); // 20 Bytes
  SetLength(b, 10); // 10 Bytes;

Danke Uwe hoffe das bringt mich weiter

gruss

[EWeiss]

yep jetzt klappt das gut mit MoveMemory war gar nichts vorher.

MoveMemory(pGlobalBuffer, @sBuffer[0], BufferSize);

gruss

[EWeiss]

Ich hoffe mal das mir das keine neuen Probleme einhandelt.
Eigentlich wollte ich mit SetFilePointerEx und LARGE_INTEGER arbeiten aber das Delphi
verbietet mir das weil diese Funktion nicht existiert.

Jetzt musste ich deshalb auf LongInt ausweichen.
Ob das später Problem bereitet ?

Das wollte ich versuchen

Delphi-Quellcode:

var
  li: LARGE_INTEGER;
begin

  li.LowPart := PosByte;

muss aber nun darauf zurückgreifen.

Delphi-Quellcode:

var
  li: LongInt;
begin

  li := PosByte;

gruss

[Neutral General]

Du kannst die LARGE_INTEGER ja selbst definieren.
Es macht halt Probleme wenn irgendeine API einen 64-Bit-Wert erwartet und nur 32-Bit ankommen.
Ansonsten sollte es keine Probleme machen solange du keine PNGs lädst die > 4GB sind.

Gibt es einen Grund für SetFilePointer etc?
Du könntest einfach nen TFileStream benutzen. Ist ein ganzes Stück angenehmer als direkt die API Funktionen zu benutzen.

[Uwe Raabe]

LARGE_INTEGER ist ein Record. Versuch doch TLargeInteger , das entspriche Int64 .

[Uwe Raabe]

Zitat von Neutral General:

Du kannst die LARGE_INTEGER ja selbst definieren.

Ist gar nicht nötig (aus Winapi.Windows):

Delphi-Quellcode:

  PLargeInteger = ^TLargeInteger;
  _LARGE_INTEGER = record
    case Integer of
    0: (
      LowPart: DWORD;
      HighPart: Longint);
    1: (
      QuadPart: LONGLONG);
  end;
  {$EXTERNALSYM _LARGE_INTEGER}
  {$NODEFINE TLargeInteger}
  TLargeInteger = Int64;
  LARGE_INTEGER = _LARGE_INTEGER;
  {$EXTERNALSYM LARGE_INTEGER}