schreiben/Lesen von bitmaps zu einem tfilestream

habe ich gesucht und gesucht und kann nicht scheinen, nichts zu finden, der beschreibt, was ich bin Aussehen zu tun, im delphi-code. die solutins sind manchmal nah, aber nicht nah genug für mich, um herauszufinden. so hier bin ich gefragt..

ich habe viele bitmaps, ich bin retreaving von screenshots. was ich Tue ist zu speichern, um bitmaps_001.bmp, aber es braucht eine Menge Speicherplatz, so dass ich aktualisiert die routine zum speichern als bitmaps_001.png-und das spart noch mehr Platz, aber jetzt will ich speichern, um eine Datei, ein tfilestream, und Lesen Sie von es mit eine tprogressbar, die ich ziehen kann, Links/rechts, wie die Bilder zeigen auf dem Bildschirm.

grundsätzlich bin ich versucht zu acomplish die folgenden:

procedure SaveBMPtoStream(st: tfilestream; bmp: tbitmap);
procedure ReadBMPfrStream(st: tfilestream; bmp: tbitmap; bnum: integer);

bisher den code (unten)arbeitet als ist, (er schreibt und liest in einem bitmap-Bild, bei der Pressekonferenz einen tbutton), aber ich kann nur schreiben, ein bitmap-Bild. muss ich schreiben, so viele Bilder wie nötig pro Sitzung auf der tfilestream in Echtzeit, evtl. mit einer ttimer Kontrolle und lassen Sie es schreiben so viele Bilder, bis ich "Stopp" drücken tbutton. was kann ich tun, ändern Sie den code unten, um dieses Problem zu lösen? danke.

ich bin mit windows xp, an externe usb3.0 1-TB-Platte mit NTFS-Dateisystem.

type
  TMS = TFileStream; 
var
  MS:  TMS; 
  pos: int64;   // bnum for 0-99,999 images.
  sz:  integer; // size of the image/stream ?

//write bitmaps to stream
procedure SaveBMPtoStream(ms: TMS; Bmp: TBitmap; bnum: integer);
begin
  // create (or append to) stream
  if fileexists('d:\streams\s.stm') then MS := TFileStream.Create('d:\streams\s.stm', fmOpenReadWrite)
    else MS := TFileStream.Create('d:\streams\s.stm', fmCreate);
  //sz:=MS.Size; pos:=ms.Position;
  bmp.SaveToStream(MS); 
  // free stream
  ms.free;
end;

//read bitmaps from stream
procedure ReadBMPfrStream(ms: TMS; Bmp: TBitmap; bnum: integer);
begin
  // open stream.
  MS := TFileStream.Create ('d:\streams\s.stm', fmOpenReadWrite); 
  // read in bitmap from stream
  //sz:=MS.Size; pos:=ms.Position;
  bmp.LoadFromStream(MS);
  // free stream
  ms.free;
end;

Hast du noch ein paar copy/paste-Fehler (?), like type TMS: TFileStream;. 😉 Wenn die Informationen nicht haben, um zu beharren in Sitzungen, Sie können wahrscheinlich halten Sie einen separaten index, der die bitmap-Nummer - stream-position/Größe, und kopieren Sie diesen Teil in eine temporäre stream zum Lesen. Andernfalls können Sie Lesen, bitmap-info-Header aus dem stream, um vorab den stream, bis der angeforderte index und kopieren Sie dann erneut, oder erstellen Sie einen index auf die gleiche Weise in den start der Anwendung. Aber das letztere wäre mehr Arbeit.
oh, das war ein Tippfehler. korrigiert jetzt. danke.
wo sehen Sie (//sz:=MS. Größe; pos:=ms.Position;) ich wurde untersucht, teilen von code-snippets in verschiedenen Orten, während Sie auszuprobieren. das ist alles verwirrend für mich und ich kann nicht scheinen, um es herauszufinden. seine über meinem Kopf, aber ich muss alles ausrechnen, also ich bin immer noch bei ihm, Monate später. das ist, warum ich kam hier erhalten Sie die Antworten. aber noch keiner. so, ich werde weiter suchen. vielen Dank für den Versuch.
Ich erkannte, dass ich etwas ausgelassen (zu den Bildern) und vielleicht könnte mir dabei helfen, einige Antworten. die Bilder sind die gleichen Abmessungen 300 x 300 Pixel. aber die dimension kann sich zur Laufzeit ändern. der andere Abend, ich fülle einen Ordner mit über 60 tausend png-Bilder. es bewirkt, dass meine hdd zu sperren. ich kann mich an vielleicht 40 thousdand Bilder, aber es dauert eine lange Zeit für den Ordner, um mir die Dateien anzuzeigen. das ist, warum ich denke, dass geht den tfilestream route ist die beste, seit ich das schreiben in eine Datei.
Es klingt wie das, was Sie wirklich versuchen zu tun ist notieren Sie den Bildschirm. Wenn Ihr Programm tun wird, und dann nicht die Mühe, schreiben Ihre eigenen. Verwenden Sie einfach eine von der Stange.
danke, Rob. ich bin mir bewusst von Ihnen. aber keine Antwort auf meine Frage, wie code meiner eigenen routine für das schreiben von mehreren bitmaps zu einem tfilestream.
was u wollen, ist TAR-Datei-format und Google oder torry.net/pages.php?id=302 zeigt eine Reihe von Beispielen von TEER in delphi. Aber warum denken Sie, würden Sie sparen viel Speicherplatz als die Speicherung von PNGs als separate Dateien ?
Arioch, bitmaps sind sehr groß und durch R/G/B-Größe, - und jpeg-selbst bei 100% Komprimierung zeigt zu viel, deutliche pixel - /Kompressions-Artefakte. Die alternative ist png, kleiner als bitmap-und verlustfreier Qualität. Ich bin mir nicht bewusst, TEER, geschweige denn, wenn delphi 6 hat eine Komponente/unit, die für Sie (nur bewusst tjpeg und pngunit). Speichern von Dateien braucht mehr Zeit, Ressourcen und Festplattenspeicher. Die Lösung ist eine einzelne Datei-stream, und die letzten, die ich brauchte, das wissen über tfilestream und mehrere bitmaps, da konnte ich nicht finden, eine tatsächliche funktionierende Beispiele überall. Und danke an bummi für die Versorgung der ersten Beispiele.
Mit JPEG(eingeführt für Natürliche photoshots) für screenshots ist, wie integral-Berechnungen über text-strings. Screenshots zu machen andere archivers eingeführt wurden, wie veraltete GIF und PNG. Ich Frage mich, wenn Sie sparen können Sie Bildschirm in animierte PNG 🙂
TAR ist eine bekannte standard-Dateiformat für das speichern der Vielzahl von Dateien ohne Kompression. Wenn die Komprimierung benötigt wird - es wird über die daraus resultierende TAR. So könnte es Ihre Bedürfnisse anzupassen (obwohl Sie NIH). Was ist mit den code - vor allem die spped des Codes -, die ich oben erwähnt mindestens zwei Seiten, wo u können versuchen, zu finden fertige Implementierungen von TAR für Delphi. Was ist mit PNG-Kompressoren gibt es eine Reihe von Delphi-Wrapper, mit wahrscheinlich unterschiedlichen Geschwindigkeiten sowie. BTW VCL TBitmap basiert auf der Windows-GDI-kernel, so wäre nicht eh schnell.

InformationsquelleAutor johnm2 | 2012-12-16

7
```
Function LoadBMPFromStream(const fn: String; Bmp: TBitmap; Nr: Integer):Boolean;
var // Nr is 0 based first Bitmap=0
  fs: TFileStream;
  ms: TMemoryStream;
  intNr: Integer;
  pos: Cardinal;
  size: DWord;
begin
  intNr := 0;
  if fileexists(fn) then
  begin
    Result := true;
    fs := TFileStream.Create(fn, fmOpenRead or fmShareDenyNone);
    try
      fs.Read(size, SizeOf(DWord)); // Read Size of first Bitmap
      while (Nr > intNr) and (fs.Position < fs.size) do
      begin
        fs.Seek(size, soFromCurrent);
        fs.Read(size, SizeOf(DWord)); // Read Size of  Bitmap with intNr
        inc(intNr);
      end;
      if fs.Position < fs.size then
      begin
        ms := TMemoryStream.Create;
        try
          ms.CopyFrom(fs, size);
          ms.Position := 0;
          Bmp.LoadFromStream(ms);
        finally
          ms.Free;
        end;
      end
      else Result := false;
    finally
      fs.Free;
    end;

  end;
end;


procedure SaveBMPtoStream(const fn: String; Bmp: TBitmap);
var
  fs: TFileStream;
  ms: TMemoryStream;
  pos: Cardinal;
  size: DWord;
begin
  if fileexists(fn) then
  begin
    fs := TFileStream.Create(fn, fmOpenReadWrite or fmShareDenyNone);
    fs.Seek(0, soEnd);
  end
  else
  begin
    fs := TFileStream.Create(fn, fmCreate or fmShareDenyNone);
  end;
  try
    ms := TMemoryStream.Create;
    try
      Bmp.SaveToStream(ms);
      size := ms.size;
      ms.Position := 0;
      fs.Write(size, SizeOf(DWord)); // Write Size of next Bitmap first
      fs.CopyFrom(ms, size);
    finally
      ms.Free;
    end;
  finally
    fs.Free;
  end;

end;

procedure TForm6.Button2Click(Sender: TObject);
begin
  // load first Picture
  LoadBMPFromStream('C:\temp\test.str', Image3.picture.bitmap, 0);
  // load third picture
  // LoadBMPFromStream('C:\temp\test.str', Image3.picture.bitmap, 2);
end;

procedure TForm6.Button1Click(Sender: TObject);
begin
  SaveBMPtoStream('C:\temp\test.str', Image1.picture.bitmap);
  SaveBMPtoStream('C:\temp\test.str', Image2.picture.bitmap);
  SaveBMPtoStream('C:\temp\test.str', Image1.picture.bitmap);
end;
```
- Ihr code tun kann, mit einigen try finally Blöcke.
- du hast Recht ...
- bummi, danke, die lese - /schreib-routine arbeitete als-ist. ich fügte hinzu, die progressbar und können scan nach Links/rechts. Allerdings, ein kleines problem, da ich nicht weiß, das Letzte Bild die Nummer, wenn ich aus der Vergangenheit eine bestimmte Anzahl, die routine stürzt ab. Gibt es eine Möglichkeit zu speichern, das Letzte Bild Nummer? ich bin mit gl_cntr als die Anzahl der aufgezeichneten Bilder. ich kann hinzufügen, ein weiterer tbutton wird, schließen Sie die Datei mit der letzten Nummer. danke.
- Ich habe eine änderung, sollte keinen crash mehr. Es gibt verschiedene Möglichkeiten für die Speicherung zusätzlicher Informationen wie die Gesamtzahl. Sie hätten einen festen header mit zB. 4Bytes Dword für rechnen, Lesen und schreiben müsste angepasst werden. Man könnte auch anfügen, die zählen als DWord am Ende Ihres stream, was bedeuten würde, schreiben würde beginnen bei fs.Zu suchen(4, soEnd); eine Andere Möglichkeit könnte sein, mit einer Art "FETT" an den start zB. mit Platz für 100 Bilder und ein Zeiger auf die nächste "FETT" wie sructure, wenn nötig, und so weiter. So weit ich weiß nicht, was Sie vorziehen würde, hatte ich nicht weitere änderungen.
- Hallo bummi. ich entdeckte ein kleines problem. Ihre routine richtig ist, wie Sie ist. aber wenn der screen-capture zu wachsen beginnt, die Sammlung gestartet, um zu pausieren oder zögern Sie jeweils nach einer bestimmten Anzahl von Sekunden. B. alle 5 Sekunden, es hält für zwei Sekunden und weiter, konstant wie diese. Also auf dem Konto ist, die Bilder fallen lässt. Ich glaube, dass Ihr durch öffnen/schließen/Suche nach jedem frame erfasst. Ich denke, diese Zeit, die es braucht, um einmal geöffnet werden, beim start der app (gegeben mit dem Namen) und wenn es gestoppt wird, um flush/close, etc. klingt das richtig für Sie?
- Ja, natürlich, Sie haben Recht. Es ist nicht optimierten jet -, nur einfach gehalten, für die demonstration. Können Sie einmal öffnen und schließen, wenn Sie finisihed.
- ich möchte einen Schuss auf ändern, um einen zusammenhängenden stream öffnen..ich lasse Sie wissen, wie es geht.
- ich schaffte es zu überarbeiten, die SaveBMPtoStream zu einem zusammenhängenden, und die pause/zögern aufgehört hat. ich bin mir jetzt nicht sicher, ob die Methode die ich verwende, ist der beste Weg, aber es funktioniert zumindest. ich würde nach dem code hier oben, so könnte jemand prüfen es für mich, aber ich bin nicht in der Lage, um in diesen Kommentaren.
- Ich weiß nicht, wie Sie die Umsetzung. Eine Möglichkeit könnte sein intitally erstellen von Streams für Lesen und schreiben, mit Ihnen und, wenn fertig, befreien Sie. Vielleicht könnte man einen neuen thread aufmachen mit der Frage nach alternativen für Ihre Umsetzung.
- Dies funktioniert gut speichern TIcon auch statt TBitmap.
InformationsquelleAutor bummi
0

Den Sie speichern wollen Alle Bilder in der GLEICHEN Datei? Ihre einfachste Wahl, dann wäre mit einer 7zip Datei mit 0 Kompression (nur speichern), wird das verwalten der Indizierung/speichern/abrufen von Dateien aus dem Archiv für Sie sehr leicht.

Hier ist eine gute Kostenlose Komponente, die dies tun können: http://www.rg-software.de/rg/index.php?option=com_content&view=article&id=29&Itemid=51

Könnte man auch versuchen, mit nur bitmaps jetzt wieder, während man eine schnelle Einstellung der Komprimierung in das 7zip, das wird wahrscheinlich der bessere Geschwindigkeiten als PNG.
- dies funktioniert nicht für mich, da bin ich beim Lesen/schreiben von Bildern so schnell wie möglich und in Echtzeit.
- Brauchen Sie, um die Bilder zu speichern dauerhaft, oder nur während das Programm läuft, zeitweilig?
- ich bin mir nicht sicher. aber die Art und Weise habe ich getan bis zu diesem Punkt war speichern das png-Bild auf die Festplatte, eins nach dem anderen, wie es läuft. es gibt einen Zähler, um lassen Sie mich wissen, wie viele png-Bilder erstellt wurden, plus die Anzahl ist der index gepolstert, um das mit dem Namen also, bmp001.png bmp002.png, ... bmp998.png, etc. dann habe ich auf öffnen in einer anderen app anzeigen. aber ich will alles tun, was diese (und mehr) aus in meine eigene app. schreiben in eine Datei (stream) spart mir den Raum und helfen, den Prozess effizienter gestalten.
- ich etwas nicht verstehe. was ist der Zweck dieser Zeilen.Position := 0;), wo s=tmemorystream, unter der Annahme, dass 's.position "ist auf" Bild ändern " index, warum ist es immer gleich null? was ist der Punkt der Einstellung? nun, lassen Sie mich weiter Bezifferung dieses alles aus.
- Es würde helfen, wenn ich wüsste, was genau Ihre app zu tun braucht. Wenn Sie schreiben, um einen filestream, müssen Sie Versuchen, das Ende zuerst, dann schreiben Sie die bmp von dort auf eine andere Weise, aber dann müssen Sie auch halten Sie die position in der Datei für jedes Bild. Wenn Sie nur brauchen, um die Bilder, während die app ausgeführt wird, verwenden Sie ein array von TMemoryStream oder ein ObjectList-wenn Sie brauchen, um in der Lage zu löschen, Bilder dynamisch. Ein Array von TMemoryStream, mit zu beginnen, dann erstellen Sie einen neuen stream für jeden pic und laden Sie von dort als gebraucht wird, wird extremelly schneller als Festplatte.
- Versuchen Sie zu erklären, Ihre app im detail, dann kann ich dir ein paar code-in.
- wie es sich herausstellt, diese sind dauerhaft, sobald auf die Festplatte geschrieben. aber ich fürchte, ich trat das falsche forum, da es scheint, habe ich gesagt, zu stoppen.
InformationsquelleAutor hikari

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.