Filestream Datei nicht gefunden bei FOpenWrite

[himitsu]

Zitat von EWeiss:

Ach lass mal

Dabei steht dort sogar das Warum.

fmCreate erstellt eine neue Datei und überschreibt notfalls eine Besehende.
fmOpenWrite öffnet eine bestehende Datei und löscht dabei den Inhalt.

Und genau das selbe Problem hat man auch mit der WinAPI, wenn man da eben statt CREATE_ALWAYS (fmCreate) ein TRUNCATE_EXISTING (fmOpenWrite) verwendet.

Zitat:

mache es mit der API jetzt

Ist also keine Lösung, wenn man dort den selben Fehler machen würde.

[EWeiss]

Zitat:

Ist also keine Lösung, wenn man dort den selben Fehler machen würde.

Habe ich aber nicht da ich mich mit der API auskennen im Gegensatz zu FileStream.

gruss

[Neutral General]

Zitat von EWeiss:

Zitat:

Ist also keine Lösung, wenn man dort den selben Fehler machen würde.

Habe ich aber nicht da ich mich mit der API auskennen im Gegensatz zu FileStream.

gruss

Jetzt weißt du ja wies mim FileStream geht
Verstehe dich nicht so ganz. Die API ist ein ganzes Stück komplizierter und unbequemer.
Du musst natürlich selbst wissen wie du gerne programmieren möchtest aber die direkte Nutzung der Windows API ist eigentlich nur selten notwendig.
Mit den Klassen oder Funktionen der RTL wird dein Code deutlich einfacher und übersichtlicher und diese Klassen sind grundlegend einfacher zu benutzen als die APIs.
Mit ein wenig Einarbeitung könntest du dir theoretisch ne Menge Arbeit/Ärger sparen

[himitsu]

OK, die alten Konstanten haben ein paar Nachteile, gegenüber aktuelleren Implementationen mit Enums.

Oder man nimmt die aktuellere API http://docwiki.embarcadero.com/Libra....TFile_Methods
TFile.Exists
TFile.Create
TFile.Open
TFile.OpenRead
TFile.OpenWrite (fmOpenWrite)
TFile.Delete

TFile.AppendText
TFile.OpenText
TFile.ReadAllLines
TFile.ReadAllText

TFile.ReadAllBytes, wobei hier bestimmt eine Variante mit Offset+Länge auch ganz nett wäre. (kann man sich aber über Class Helper nachrüsten, wenn Emba das nicht hinbekommt)

uvm.


PS: API?
Windows-API (z.B. Win32 ... heißt unter 64 Bit genauso, da die selben Schnittstellen ... WinRT wäre eine andere Windows-API)
Delphi-API (z.B. RTL)

[Hobbycoder]

Läuft doch alles auf's gleiche raus.
Wenn ich bei der API oder bei TFile die falsche Funktion/Parameter nehme, geht's halt nicht/kommt ne Exception.

Und, soooo kompliziert ist TFileStream je nun auch nicht.

In Anbetracht des obigen Codes wäre das ein Parameter zu ändern gewesen. Somit verstehe ich die ganze Diskussion nicht.

[EWeiss]

Zitat von Neutral General:

Zitat von EWeiss:

Zitat:

Ist also keine Lösung, wenn man dort den selben Fehler machen würde.

Habe ich aber nicht da ich mich mit der API auskennen im Gegensatz zu FileStream.

gruss

Jetzt weißt du ja wies mim FileStream geht
Verstehe dich nicht so ganz. Die API ist ein ganzes Stück komplizierter und unbequemer.
Du musst natürlich selbst wissen wie du gerne programmieren möchtest aber die direkte Nutzung der Windows API ist eigentlich nur selten notwendig.
Mit den Klassen oder Funktionen der RTL wird dein Code deutlich einfacher und übersichtlicher und diese Klassen sind grundlegend einfacher zu benutzen als die APIs.
Mit ein wenig Einarbeitung könntest du dir theoretisch ne Menge Arbeit/Ärger sparen

JO du hast grundsätzlich recht.
Das sieht man ja auch daran das ich teilweise immer wieder aufstoße (Hier nachfragen muss) wenn es um die VCL geht.
Das mit der WinApi mache ich nicht wegen der kleinen Dateien sondern deshalb weil ich es gewohnt bin.
Die Macht der Gewohnheit halt

Zitat:

In Anbetracht des obigen Codes wäre das ein Parameter zu ändern gewesen.

Aber wenn man es nicht weis aber bei der WinApi32 schon macht das schon einen Unterschied.

gruss

[Hobbycoder]

Zitat von EWeiss:

Zitat:

In Anbetracht des obigen Codes wäre das ein Parameter zu ändern gewesen.

Aber wenn man es nicht weis aber bei der WinApi32 schon macht das schon einen Unterschied.

gruss

Nach dem ersten Post wusstest du es doch?
[Sarkasmus ein]Und im Zweifelsfall hat der Liebe Gott auch die F1-Taste erfunden [Sarkasmus aus]

Zitat:

Zitat aus der Hilfe:
fmCreate
Erstellt eine Datei mit dem angegebenen Namen. Ist eine Datei mit diesem Namen bereits vorhanden, wird die Datei zum Schreiben geöffnet.
System.Classes

fmOpenRead
Öffnet die Datei ausschließlich zum Lesen.
System.SysUtils

fmOpenWrite
Öffnet die Datei ausschließlich zum Schreiben. Beim Schreiben in die Datei wird der aktuelle Inhalt vollständig ersetzt.
System.SysUtils

fmOpenReadWrite
Öffnet die Datei so, dass der aktuelle Inhalt geändert werden kann, ohne dass er ersetzt wird.
System.SysUtils

Und Öffnen kann man nur was schon da ist. Ansonsten muss man es erstellen. Ist bei TFile und API auch nicht anders.

[EWeiss]

Zitat:

Nach dem ersten Post wusstest du es doch?

Nö weil ich vergessen habe mit FileStream.Seek an den Anfang der Datei zu springen.
Tja so geht das
Passiert mir unter Win32Api nicht.
Das sind die feinen Unterschiede.

ABER!
So geht's auch..

Delphi-Quellcode:

procedure TfrmMain.btnOpenGifClick(Sender: TObject);
var
  AniHeader: TAniHeader;
  Width, Height, W, H: single;
  DC: HDC;
  Graphics: GpGraphics;
  imgOUT: GPImage;
  TempPath: string;
  Ext: string;
  FileOut: string;
  Result: GPStatus;
  img, NewImg: GPImage;
  imgW, imgH: single;
  sBuffer: TBytes;
  offset: dword;
  FileReplaceExt: string;
  FileName: string;
  hFileOut: THandle;
  size: DWORD;
  dwBytesRead,
  dwByttesWritten: DWORD;
begin

  Result:= GenericError;

  OpenDialog := TOpenDialog.Create(self);
  OpenDialog.InitialDir := GetCurrentDir;
  OpenDialog.Options := [ofFileMustExist];
  OpenDialog.Filter := 'Animate Gifs|*.gif';

  if OpenDialog.Execute then
  begin
    Ext := ExtractFileExt(OpenDialog.FileName);
    if Ext = '.gif' then
    begin
      imgOUT := CreateMultiFrame(PWideChar(OpenDialog.FileName), AniHeader, 512);
      if Assigned(imgOUT) then
      begin
        Ext := '.png';
        FileReplaceExt := StringReplace(OpenDialog.FileName, '.gif', '.png', [rfReplaceAll]);
        FileName := ExtractFileName(FileReplaceExt);
        TempPath := SysUtils.GetEnvironmentVariable('temp');
        FileOut := TempPath + '\' + FileName;
        Result := SaveToPNG(PWideChar(FileOut), imgOUT);
        if Result = OK then
        begin
          lblStatus.Caption := 'Status = Ok';

          FileIn := PWideChar(FileOut);
          if FileExists(FileIn) then
          begin
            FileOut := FileReplaceExt;
            FileOne := PWideChar(TempPath + '\PNG_ani1.png');
            FileTwo := PWideChar(TempPath + '\PNG_ani2.png');

            GdipLoadImageFromFile(FileIn, img);
            GPStatus(GdipGetImageDimension(img, imgW, imgH));

            if Assigned(img) then
            begin
              DC := GetDC(0);

              if GdipCreateFromHDC(DC, Graphics) = OK then
              begin
                if GdipCreateBitmapFromGraphics(AniHeader.Width, AniHeader.Height, Graphics,
                  NewImg) = OK then
                begin
                  if GdipCloneBitmapAreaI(0, 0, AniHeader.Width, AniHeader.Height,
                    PixelFormat32bppARGB, img, NewImg) = OK then
                  begin
                    SaveToPNG(FileOne, NewImg);
                    GdipDisposeImage(NewImg);
                  end;
                end;

                if GdipCreateBitmapFromGraphics(round(imgW - AniHeader.Width), AniHeader.Height,
                  Graphics, NewImg) = OK then
                begin
                  if GdipCloneBitmapAreaI(AniHeader.Width, 0, round(imgW - AniHeader.Width),
                    AniHeader.Height, PixelFormat32bppARGB, img, NewImg) = OK then
                  begin
                    SaveToPNG(FileTwo, NewImg);
                    GPStatus(GdipDisposeImage(NewImg));
                  end;
                end;
                GPStatus(GdipDeleteGraphics(Graphics));
              end;
              ReleaseDC(0, DC);
              GPStatus(GdipDisposeImage(img));
            end;

            if FileExists(FileOne) then
            begin
              GetImageSizeFromFile(FileOne, Width, Height);
              hFileIn := CreateFile(FileOne, FILE_READ_DATA, FILE_SHARE_READ, nil, OPEN_EXISTING,
                FILE_ATTRIBUTE_NORMAL, 0);

              if hFileIn <> INVALID_HANDLE_VALUE then
              begin
                size := GetFileSize(hFileIn, nil);
                Setlength(sBuffer, size);

                if (ReadFile(hFileIn, sBuffer[0], size, dwBytesRead, nil)) then
                begin
                  offset := size + 1;
                  CloseHandle(hFileIn);

                  hFileOut := CreateFile(PWideChar(FileOut), GENERIC_WRITE, 0, nil, CREATE_ALWAYS,
                    FILE_ATTRIBUTE_NORMAL, 0);

                  if hFileOut <> INVALID_HANDLE_VALUE then
                  begin
                    WriteFile(hFileOut, sBuffer[0], size, dwByttesWritten, nil);

                    if FileExists(FileTwo) then
                    begin
                      GetImageSizeFromFile(FileTwo, W, H);

                      hFileIn := CreateFile(FileTwo, FILE_READ_DATA, FILE_SHARE_READ, nil,
                        OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

                      if hFileIn <> INVALID_HANDLE_VALUE then
                      begin
                        size := GetFileSize(hFileIn, nil);
                        Setlength(sBuffer, size);
                        dwBytesRead := 0;

                        if ReadFile(hFileIn, sBuffer[0], size, dwBytesRead, nil) then
                        begin
                          dwByttesWritten := 0;
                          WriteFile(hFileOut, sBuffer[0], size, dwByttesWritten, nil);

                          AniHeader.Frame := round((W / Width)) + 1;
                          AniHeader.Width := round(Width);
                          AniHeader.Height := round(Height);

                          if AniHeader.Frame < 4 then
                            AniHeader.Speed := 75
                          else if AniHeader.Frame < 8 then
                            AniHeader.Speed := 50
                          else if AniHeader.Frame < 12 then
                            AniHeader.Speed := 37
                          else
                            AniHeader.Speed := 30;
                        end;
                      end;

                      AniHeader.offset := offset;
                      AniHeader.reserved := 0;
                      AniHeader.Sign := ANIM;

                      dwByttesWritten := 0;

                      WriteFile(hFileOut, AniHeader, sizeof(AniHeader), dwByttesWritten, nil);
                    end; // end FileExists(FileTwo)
                    CloseHandle(hFileIn);
                  end; //end hFileOut <> INVALID_HANDLE_VALUE
                  CloseHandle(hFileOut);
                end; // end (ReadFile(hFileIn, sBuffer[0], size, dwBytesRead, nil))
              end; // end hFileIn <> INVALID_HANDLE_VALUE
            end // end FileExists(FileOne)L
            else
              CloseHandle(hFileIn);
          end;
        end; // end Result = OK

        FileOut := FileOut + 'Frame count =' + IntToStr(AniHeader.Frame);
        MessageBox(0, PWideChar(FileOut), 'GIFtoAPNG', 0);
        DeleteFile(FileOne);
        DeleteFile(FileTwo);
        DeleteFile(FileIn);
      end; // end Assigned(imgOUT)
    end; // end Ext := '.gif'
  end // end OpenDialog.Execute
  else
  begin
    lblStatus.Caption := 'Status = ' + (cStatus[Result]);
  end;
  if AniHeader.Frame = 0 then
    lblStatus.Caption := 'Status = ' + (cStatus[Result]);

  OpenDialog.Free;
end;

Ich hoffe habe dich jetzt nicht erschlagen.

gruss

[Hobbycoder]

Zitat von EWeiss:

Ich hoffe habe dich jetzt nicht erschlagen.

Nö, keine sorge

Zitat von EWeiss:

Zitat:

Nach dem ersten Post wusstest du es doch?

Nö weil ich vergessen habe mit FileStream.Seek an den Anfang der Datei zu springen.

Das mag sein, war aber auch nicht Thema der ursprünglichen Frage.
Da gibt es nicht um das Positionieren eine Zeigers, sondern darum eine Datei zu erzeugen.

Letztlich ist es mir ja egal, ob du das mit TFileStream, TFile, API, oder sonst wie machst.

Mich wunderte nur die Reaktion, Ala "Nee, lass mal. Ich mach's jetzt mit der API, da kenn ich mich eh aus", obwohl sich andere die Mühe machen dir die Lösung zu präsentieren.