Large_Integer SetFilePointerEx Error 183

[EWeiss]

Ich habe mich jetzt mal drangegeben.. Bisher sieht es so aus.

Delphi-Quellcode:

    //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); //BufferSize sollte in Ordnung sein da kleiner wie FileStream.Size
        //if FGetAt(FileStream.Handle, anih.offset - 1, sBuffer) = S_OK then
        //begin

FileStream.Read füllt den sBuffer nicht der als TBytes definiert ist.

gruss

[Uwe Raabe]

Zitat von EWeiss:

FileStream.Read füllt den sBuffer nicht der als TBytes definiert ist.

Das muss ja auch so heißen:
        FileStream.Read(sBuffer[0], BufferSize);

[EWeiss]

Zitat von Uwe Raabe:

Zitat von EWeiss:

FileStream.Read füllt den sBuffer nicht der als TBytes definiert ist.

Das muss ja auch so heißen:
        FileStream.Read(sBuffer[0], BufferSize);

Danke Uwe habe es im anderen Thread schon bereinigt

grusss