Neuer Blog über FireMonkey Entwicklung eröffnet

[Sir Rufo]

Mal eine bescheidene Frage:

Hast du das wirklich so in einer realen Anwendung drin?

Delphi-Quellcode:

function ShowBitmapFromStream (ms: TMemoryStream; fn: shortString): ShortString; 
var 
  Filter: FMX.Filter.TFilter; 
begin 
  Filter := TFilterManager.FilterByName('PaperSketch'); 

  try 
    F_Filters := TF_Filters.Create(Application); 
    F_Filters.ImageViewer1.bitmap.LoadFromStream(ms); 

    if F_Filters.ShowModal = mrOK then begin 

      Filter.ValuesAsBitmap['Input'] := F_Filters.ImageViewer1.bitmap; 
      Filter.ValuesAsFloat ['BrushSize'] := F_Filters.TrackBar1.Value; 
      F_Filters.ImageViewer1.bitmap := TBitmap (Filter.ValuesAsBitmap['Output']); 

      F_Filters.ImageViewer1.bitmap.SaveToFile (fn); 

      Result := fn; 
   end else begin 
     Result := ''; 
  end; 

  finally 
    F_Filters.Free; 
  end; 
end;

Da fallen mir so ein paar Dinge auf, die ich so nicht machen würde:

• den Dateinamen würde ich per WideString übergeben
• den Stream würde ich per IStream übergeben
• ich würde überhaupt keinen Dateinamen übergeben und den Austausch auch nicht über eine Datei machen, sondern per IStream zurückliefern

[Harry Stahl]

Also die tatsächliche Implementierung hat natürlich noch ein paar Sicherheitsprüfungen an verschiedenen Stellen dazu, die ich aber zur besseren Lesbarkeit des Source-Codes hier weggelassen habe.

Zu IStream kann ich nicht viel sagen, da ich bislang damit noch nichts zu tun hatte.

Aber ich lerne gerne dazu.
Warum würdest Du also IStream hier verwenden?
Und gibt es das überhaupt für FireMonkey?

Weshalb ich einen Shortstring verwende, habe ich ja im Blogbeitrag beschrieben.
Warum würdest Du statt dessen lieber Widestring verwenden?

Ich stimme Dir zu, die Rückgabe eines Bitmap-Streams wäre eleganter (und noch ein wenig performanter). Habe ich ja selber im Blogbeitrag beschrieben, dass ich es mir ein wenig bequem mache. Es war letztlich aber nicht nur Bequemlichkeit.

Wenn ich einen FireMonkey-Bitmap-Memorystream (oder IStream?) wieder auf VCL-Seite annehmen würde, müsste ich dort wieder notgedrungen einige FMX-Units aufnehmen, um über eine Firemonkey-TBitmap eine Konvertierung in eine VCL-TBitmap vorzunehmen. Was grundsätzlich geht, aber es wären einfach eine Reihe zusätzlicher Randbedingungen in meinem Source-Code zu ändern gewesen, so dass ich eben die Lösung mit der temporären Datei gewählt habe.

Und die Empfehlung von EMBA, VCL-Code und FMX-Code nicht zu mischen, macht für mich auch grundsätzlich Sinn.

Jedenfalls funktioniert es in meiner Anwendung tadellos.

[Sir Rufo]

Die Funktionalität will ich deiner Umsetzung gar nicht absprechen, sie ist nur unschön.

• WideString kann auch Unicode und ist somit in der Lage wirklich alle Dateinamen zu transportieren
• IStream ist ein Stream-Interface von Microsoft und hat nichts mit FMX oder VCL zu tun. Das Interface ist in Winapi.ActiveX zu finden und mit einem System.Classes.TStreamAdapter kannst du dir so einen IStream von einem normalen TStream holen.

Der ganze Aufruf sieht dann mit einem IStream so aus (die Rückgabe erfolgt im gleichen Stream ):

Delphi-Quellcode:

function ProcessBitmap( ABitmap : TBitmap ):Boolean
var
  LStream : TStream;
begin
  LStream := TMemoryStream.Create;
  try
    ABitmap.SaveToStream( LStream );
    if ShowBitmapFromStream( TStreamAdapter.Create( LStream, soReference ) ) then
    begin
      LStream.Seek( 0, soFromBeginning );
      ABitmap.LoadFromStream( LStream );
    end;
  finally
    LStream.Free;
  end; 
end;

BTW:

Ich habe gerade die Vorlage für deinen Code entdeckt
http://blogs.embarcadero.com/stephen...l-application/

Nun ja, die Beispiele sind von denen halt auch nicht so der Brüller.

Und den Grund für die Rückgabe als Datei habe ich auch entdeckt (ein echter Schenkelklopfer):

FMX.Graphics.TBitmap.LoadFromStream analysiert den Stream und erkennt das Grafikformat - sehr löblich.

FMX.Graphics.TBitmap.SaveToStream speichert das Bild stumpf als PNG in den Stream
FMX.Graphics.TBitmap.SaveToFile speichert das Bild in dem Format ab, was von der Dateiendung erkannt wird.

Schaut man sich den Code von TBitmap.SaveToStream an, dann sieht man aber auch sofort, wie man das abändern kann

[Harry Stahl]

Vielen Dank für Deine Erläuterungen:

* Für Widestring müsste man wieder die ShareMem-Interface-Unit einbinden und zusätzlich die BORLNDMM.DLL weitergeben.
Warum sollte ich das machen, wenn ich bei der gezeigten Implementation gar keine Unicodenamen brauche? Wenn ich es doch brauchen sollte, verwende ich PChar, so kann ich Unicode verwenden, brauche aber die erwähnte Unit und DLL nicht.

* Ich hatte zuvor für mich schon einmal die Rückgabe mit dem TMemoryStream implementiert. Die Rückgabe funktionierte genau so, wie die hier von Dir vorgeschlagene Lösung mit dem IStream. Beides mal kommen für sich gesehen auch gültige Streams an. Das habe ich insofern getestet, als dass ich den Stream als Bitmap-Datei gespeichert habe und mit einer FireMonkey-Applikation konnte man diese Bitmap-Datei dann einlesen.

Aber auch bei Deiner Lösung wird das einlesen des Streams in die VCL-Bitmap mit der Fehlermeldung quitiert, dass die Bitmap ungültig sei.

Grund ist der, dass ja ein Stream für eine FireMonkey-Bitmap zurückgeliefert wird und den kann ich nun mal nicht in eine VCL-Bitmap einlesen, weil die eben nicht kompatibel sind.

Insofern funktioniert der von Dir vorgeschlagene Weg mit dem IStream als "schönere" Lösung hier leider auch nicht.

[Harry Stahl]

Oh, da hat sich Deine ergänzende Antwort mit meiner überschnitten.

In

Delphi-Quellcode:

procedure TBitmap.SaveToStream(Stream: TStream);
var
  Surf: TBitmapSurface;
begin
  Surf := TBitmapSurface.Create;
  try
    Surf.Assign(Self);
    TBitmapCodecManager.SaveToStream(Stream, Surf, '.png');
  finally
    Surf.Free;
  end;
end;

hatte ich natürlich auch schon reingesehen, aber jetzt durch Deinen Hinweis, dass man es "sofort sehen würde, was man abändern kann", habe ich nun auch gesehen, dass der Stream im PNG-Format gespeichert wird. OK. Das sollte man in der Tat ändern können, muss mal sehen, wie ich das am Besten mache. Dann sollte auch der Weg über einen Stream insgesamt gehen.

Aber heute nicht mehr, morgen mach ich weiter...

Jedenfalls Danke für Deine Hinweise, es freut mich immer wieder, wenn am Ende eine neue Erkenntnis steht.

[Sir Rufo]

Da ein WideString von Windows verwaltet wird, benötigt man eben kein ShareMem.

Die Verwendung von IStream ermöglicht es zudem, diese DLL nicht nur von Delphi Anwendungen benutzen zu können.

[Harry Stahl]

Zitat von Sir Rufo:

Da ein WideString von Windows verwaltet wird, benötigt man eben kein ShareMem.

Na schon wieder was dazu gerlernt.
Wir sollten uns vielleicht öfter mal unterhalten...

Zitat von Sir Rufo:

Die Verwendung von IStream ermöglicht es zudem, diese DLL nicht nur von Delphi Anwendungen benutzen zu können.

OK, das hatte ich schon vermutet. Hatte aber für mich in der gezeigten Umsetzung keine Relevanz, da die DLL ja nur von meinem Programm genutzt und das Beispiel einfach gehalten werden sollte. Im Wesentlichen ging es ja um die FMX-DLL zu VCL-Nutzung. Ist aber insgesamt ein berechtigter Hinweis von Dir. Ich werde meinen Blogeintrag noch mal überarbeiten und eine entsprechende Info aufnehmen. Aber wie gesagt, erst morgen (Abend) wieder...

[Harry Stahl]

So, ich habe den Blogbeitrag nun aktualisiert, auch die Rückgabe des Bitmaps geht nun per Stream, eine temporäre Datei wird nicht mehr benötigt.

Ich habe am Ende des Blogbeitrags auch einen Download-Link des Demos hinzugefügt, so spart man sich das tippen (evt. mal F5 zur Browser-Aktualisierung drücken). Den Source-Code könnt Ihr natürlich frei verwenden.

Vielen Dank noch mal an Sir Rufo, durch seine Hinweise konnte die Sache deutlich verbessert werden.