Large_Integer SetFilePointerEx Error 183

[EWeiss]

Zitat von Luckie:

Dazu gibt es bestimmt in Netz Tutorials.

Möglich aber wofür haben wir hier das Forum ?
Wenn ich alles im Netzt suche brauche ich nicht hier Angemeldet zu sein oder?
Zumal das dann andere davon auch profitieren könnten.

gruss

[Neutral General]

Würde ich so nicht sagen.
Die Forenmitglieder sind ja nicht dein persönliches Tutorial.
Foren sind da um Fragen zu speziellen Problemen zu stellen, nicht um komplette Themen zu lernen

TFileStream ist auch nicht wirklich schwer zu benutzen. Es gibt sicher Tutorials aber ich denke man kann da im Zweifelsfall auch allein ganz gut zurecht kommen wenn man sich die Klasse mal anschaut und ein bisschen ausprobiert.

[Luckie]

Verständnisfragen sind hier immer willkommen. Meine Tutorials sind aus meiner Neugier entstanden.

[Zacherl]

Im Grunde ist TFileStream recht simpel: Der Constructor ist das Äquivalent zu CreateFile, SetFilePointer ist Seek , ReadFile ist Read und GetFileSize einfach TFileStream.Size . Die Parameter sind ebenfalls recht ähnlich.

[EWeiss]

Will mich jetzt nicht hier rumstreiten. Sei's drum.
Definitiv ist aber mit dem Stream in welcher weise er auch generiert wird etwas nicht in Ordnung.
Muss noch was ackern und analysieren hab ja sonst nix zu tun.
siehe Pic

Zitat:

Meine Tutorials sind aus meiner Neugier entstanden.

Die hast du hier aber auch groß breitgetreten wie auch immer.
Aber andere dürfen ihre Themen nicht ausleben ok kein Problem für mich. wird jetzt OT:

gruss

[EWeiss]

Zitat von Zacherl:

Im Grunde ist TFileStream recht simpel: Der Constructor ist das Äquivalent zu CreateFile, SetFilePointer ist Seek , ReadFile ist Read und GetFileSize einfach TFileStream.Size . Die Parameter sind ebenfalls recht ähnlich.

Danke dir für die Infos.
Muss mich damit mal beschäftigen auch wenn es nicht gerade von Erfolg gekrönt ist.

gruss

[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