Neuer Blog über FireMonkey Entwicklung eröffnet

[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.

[Harry Stahl]

Ich habe den letzten Blogbeitrag noch um einen Link auf ein Youtube-Video ergänzt. Dort zeige ich, wie man die FMX-Form für die DLL, welche in der VCL-Anwendung genutzt wird, so modifiziert, so dass man sie auch direkt (also ohne DLL) in einer Firemonkey-Anwendung einbinden und verwenden kann.

Hier ist der Link zu diesem Beitrag aus meinem neuen FireMonkey Videoblog (FMX = RAD ++).

Ich werde in den nächsten Tagen noch weitere Videos produzieren und hochladen, wer da Interesse hat, kann meinen Kanal ja abonnieren, dann erhält er eine automatische Benachrichtigung, wenn es was neues gibt.

Tipp zum Video: In voller Bildschirmauflösung und bei 720 DPI ansehen.

[Harry Stahl]

Heute mal kein schriftlicher Blogbeitrag, sondern ein kleines Video.

Video zeigt, wie man ganz schnell eine VCL-Form in eine FMX-Form umwandeln kann.

HINWEIS: Mir ist bei der Demonstration leider ein kleiner Fehler unterlaufen, ich hätte vor der Hinzufügung des konvertierten Formulars zum FMX-Projekt noch den Suchpfad zum MIDA-Pack angeben müssten, daher funktionierte die Image-Konvertierung nicht. Also, in Wirklichkeit funktioniert es also noch etwas besser, als hier gezeigt)

Hier der Link.