TFIleStream Read füllt Buffer nicht

[EWeiss]

Neues Problem neues Thema.

Mein Fortschritt

Delphi-Quellcode:

  if (GetPngAnimation(gp.PngList[SelectedIndex], anih)) then
  begin
    //if FOpen(PWideChar(wsFile), 0, 0, hFileIn) = 0 then
    FileStream := TFileStream.Create(wsFile, fmOpenRead);
    if FileStream.Handle <> 0 then
    begin
      DC := CreateIC('DISPLAY', nil, nil, nil);
      ImgHDC := CreateCompatibleDC(DC);

      hDIB := SKAERO_CreateDIBSection(ImgHDC, anih.Width * anih.Frame, anih.Height, 32);
      SelectObject(ImgHDC, hDIB);
      if GDIP_CreateFromHDC(ImgHDC, Graphics) = OK then
      begin
        BufferSize := FileStream.Size - anih.offset - sizeof(anih) + 1;
        SetLength(sBuffer, BufferSize);
        FileStream.Seek(anih.offset - 1, soFromBeginning);
        FileStream.Read(sBuffer, BufferSize);
        //if FGetAt(FileStream.Handle, anih.offset - 1, sBuffer) = S_OK then
        //begin

FileStream.Read füllt den Buffer nicht fehlt noch was, oder habe ich was übersehen ?

gruss

[himitsu]

Erstmal hat TStream.Read doch einen Rückgabewert, den man auswerden könnte.

BlockRead und Co. werfen Exceptions, wenn nicht die volle angeforderte Anzahl gelesen wurde.

[EWeiss]

Zitat von himitsu:

Erstmal hat TStream.Read doch einen Rückgabewert, den man auswerden könnte.

BlockRead und Co. werfen Exceptions, wenn nicht die volle angeforderte Anzahl gelesen wurde.

Ok sorry habe mich damit noch nicht beschäftig ist Neuland für mich.

Edit:
Die Rückgabe ist 0 und der sBuffer nicht gefüllt.

gruss

[Zacherl]

Und es sollte Read(sBuffer[0], BufferSize) sein, sonst schreibst du an die falsche Adresse.

[EWeiss]

Zitat von Zacherl:

Und es sollte Read(sBuffer[0], BufferSize) sein, sonst schreibst du an die falsche Adresse.

Arggghhh das hatte wir schon
Danke dir.

gruss

[himitsu]

Zitat von EWeiss:

Zitat von Zacherl:

Und es sollte Read(sBuffer[0], BufferSize) sein, sonst schreibst du an die falsche Adresse.

Seit einer ganzen Weile gibt es überladene Versionen der Read/Write-Methoden, welche direkt ein TBytes als Parameter annehmen.

Gut, jemand hat auch nicht angegeben, ob es sich hier um ein älteres Delphi handeln könnte.

[Zacherl]

Zitat von himitsu:

Gut, jemand hat auch nicht angegeben, ob es sich hier um ein älteres Delphi handeln könnte.

Delphi 2010, habe ich aus dem anderen Thread im Kopf, also durchaus schon etwas älter

[EWeiss]

Zitat von Zacherl:

Zitat von himitsu:

Gut, jemand hat auch nicht angegeben, ob es sich hier um ein älteres Delphi handeln könnte.

Delphi 2010, habe ich aus dem anderen Thread im Kopf, also durchaus schon etwas älter

JO aber gut das hat andere gründe.

gruss

[himitsu]

Hmmm, keine Ahnung seit wann das da ist.
Irgendwann nach den Generics wurde das eingebaut, falls ich mich nicht irre, und 2010 ist auch schon ein kleines bisschen danach.

TStream.Read sagt man "lies maximal soviele Bytes" und im Result sagt es dann, was es gelesen hat, also falls z.B. die Datei vorher zuende ist.

[EWeiss]

Zitat:

TStream.Read sagt man "lies maximal soviele Bytes" und im Result sagt es dann, was es gelesen hat, also falls z.B. die Datei vorher zuende ist.

Bei mir hat er 0 zurück gegeben.

gruss