(Gelöst) Windows: Bitmaps Laden / Speichern

[Adrian]

Servus!

Lazarus 0.9.27 / WindowsXP
Ich habe in einem TImage eine Bitmap. Beim Programmstart speichere ich diese mittels "SaveToFile" ab, da ich sie im weiteren Verlauf noch mehrmals wieder im Urzustand brauche, wozu ich sie mir mit "LoadToFile" wieder lade.
Abhängig von Bitmap-Größe und Leistungsfähigkeit des PCs kommen da unangenehme Verzögerungen zustande (das Programm verwende nicht nur ich, sondern auch Vereinskollegen, die nicht unbedingt allzu große Erfahrungen mit PCs haben). Nun habe ich mir überlegt, wie das beschleunigt werden kann, und auch Versuche mit "SaveToClipboardFormat" und "SaveToStreamWithFileExt" angestellt, allerdings ohne Erfolg. Die Clipboard-Variante möchte ich ungern nutzen, da ich nicht sicherstellen kann, daß die Zwischenablage nicht überschrieben wird. Zur Stream-Variante finde ich leider so gut wie gar keine Beispiele, so daß ich nache einigen Versuchen nicht weitergekommen bin.
Was würdet ihr für mein Problem vorschlagen (mir fällt nichts weiter ein) und wo finde ich Hinweise zur Stream-Variante?

Gruß,

Adrian

[_X_]

Code: Alles auswählen

Stream:=TMemoryStream.Create;
 
//Speichern
TBitmap.SaveToStream(Stream);
 
//Laden
TBitmap.LoadFromStream(Stream);
 
//Über TImage:
TImage.Picture.Bitmap.SaveToStream(stream);

mfg _X_

[Adrian]

Servus!

Danke für den Ratschlag, aber:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  MyStream : TMemoryStream;
begin
  MyStream := TMemoryStream.Create;
  Image1.Picture.Bitmap.SaveToStream(MyStream);
  Application.ProcessMessages;
  Image2.Picture.Bitmap.LoadFromStream(MyStream);
  Application.ProcessMessages;
end;

funktioniert nicht.
Kompilieren geht, Programmausführung läuft, nur das Duplizieren des Bildes funktioniert halt auch nicht...

Gruß,

Adrian

[Scotty]

Wieso speicherst Du das Bild nicht in einer extra Variable?

Code: Alles auswählen

type 
  TForm1
  ...
    procedure FormShow()
  private
    FOriginalImage : TImage;
  public
  end;
 
procedure TForm1.FormShow();
begin
  FOriginalImage:=TImage.Create;
  usw.
end;

[monta]

Unabhängig davon, muss man nicht noch nach dem Laden die größe des Bitmaps manuell setzen, da es sonst keine hat und somit auvh nichts angezeigt wird, bspw. wenn du es aus dem Stream liest?

[Socke]

Servus!

Danke für den Ratschlag, aber:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  MyStream : TMemoryStream;
begin
  MyStream := TMemoryStream.Create;
  Image1.Picture.Bitmap.SaveToStream(MyStream);
  Application.ProcessMessages;
  Image2.Picture.Bitmap.LoadFromStream(MyStream);
  Application.ProcessMessages;
end;

funktioniert nicht.
Kompilieren geht, Programmausführung läuft, nur das Duplizieren des Bildes funktioniert halt auch nicht...

Gruß,

Adrian

Argh... da fehlt ein MyStream.Free...
..aber Scotty hat auch recht, nur ist TImage zur Speicherung eines Bildes nicht notwendig, eine ganz normale TGraphic-Klasse reicht aus (oder eben TPicture):

Code: Alles auswählen

type
  tfrm = clas(TForm)
  private
    bild1: TImage;
    originalbild: TBitmap; // wenn mehr als ein Format verwendet werden können soll, ist wohl TPicture besser
  end;
 
// erst alles erstellen
bild1 := TImage.Create(Self);
originalbild := Tbitmpa.Create;  // muss später wieder freigegeben werden
originalbild.LoadFromFile('/woher/auch/immer');
 
// und zum Laden
bild1.Picture.Bitmap.Assign(originalbild);

Mfg Socke

[Adrian]

Servus!

Da hab ich mich so in meine Stream-Theorie verrannt, daß ich die Möglichkeit, das Bild als Variable zu speichern, einfach nicht mehr bedacht habe. Manchmal sieht man wirklich den Wald vor lauter Bäumen nicht mehr.
Ja, MyStream.Free hab ich im Beispiel vergessen. Beim Original-Programm wirds in einer anderen Prozedur aufgerufen.
Danke für die Hilfe!

Gruß,

Adrian

[gerdi]

originalbild.LoadFromFile('/woher/auch/immer');

Ich würde gerne von STDIN das Bild laden.
Geht das auch?

Mein Hintergedanke:
Meine debian-eeepc-onboard-kamera spielt über mplayer ab.

Mplayer kann screenshots auf STDOUT senden.

Ich könnte also (wie auch immer?) das Lazarus-Programm veranlassen mplayer zu starten und einen Screenshot auf STDOUT zu senden. Den Screenshot könnte ich von Lazarus auswerten. So könnte ich in Lazarus die Bilder von der onboard-kamera verarbeiten.