Image from Stream laden?

[OrNEC]

Zitat von NamenLozer:

EDIT: Das ist übrigens Blödsinn mit

Delphi-Quellcode:

ms := TMemoryStream.Create;
ms := tb.FieldAsBlob(tb.FieldIndex['picture']);

Da wird zwei mal ein Stream erzeugt, aber nur einmal freigegeben! (Ich hoffe zumindest, du gibst ihn frei...)

Danke dir! Aber sag mal welche uses brauche ich für die TGrafic-Komponente? Irgendwie kann ich das nirgends finden. Und wieso wird der Stream zwei mal erzeugt? .Create wird doch nur ein mal erzeugt.

[Namenloser]

Create rufst du zwar nur einmal explizit auf, aber anschließend überschreibst du ja die Variable mit einer Referenz auf eine neue Instanz (die von FieldAsBlob zurückgegeben wird). Folglich wird beim Aufruf von Free am Ende nur eine von zwei Instanzen freigegeben.

TGraphic (wie auch TPicture) ist in der Unit Graphics deklariert, die eigentlich standardmäßig eingebunden ist, wenn man ein neues Formular anlegt.

[OrNEC]

Hm... so muss es richtig sein, nur schlägt es irgendwie fehl...

Delphi-Quellcode:

        // Picture zeigen
        if tb.FieldAsBlob(tb.FieldIndex['picture']) <> nil then
        begin
          ms := TMemoryStream.Create;
          pic := TJPEGImage.Create;

          try
            ms := tb.FieldAsBlob(tb.FieldIndex['picture']);
            ms.Position := 0;

            pic.LoadFromStream(ms);
            Self.DetailsMediaImage.Picture.Graphic := pic;
          finally
            ms.Free; // <--- schlägt fehl
            pic.Free; // hier auch
          end;
        end else DetailsMediaImage.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'books.jpg');

[Namenloser]

Was heißt „schlägt fehl“? Fehlermeldung? Wenn ja, welche?

Ich hab noch mal ein bisschen gegoogelt und Quellcode von einer Methode namens FieldAsBlob gefunden. Ich weiß nicht, ob es sich um die gleiche Methode handelt, um die es bei dir geht, da du nicht verraten hast, zu welcher Klasse/Bibliothek das gehört. Jedenfalls ist es bei der Implementierung, die ich gefunden habe, offenbar – anders als ich dachte – so, dass da keine neue Instanz erzeugt wird sondern eine bereits angelegte zurückgeliefert wird, die von der Besitzer-Klasse automatisch später freigegeben wird. Also darf Free nicht aufgerufen werden.

Delphi-Quellcode:

        if tb.FieldAsBlob(tb.FieldIndex['picture']) <> nil then
        begin
          // ms := TMemoryStream.Create; NEIN! Speicherleck!
          ms := tb.FieldAsBlob(tb.FieldIndex['picture']);
          ms.Position := 0;
          DetailsMediaImage.Picture.LoadFromStream(ms);
        end 
        else 
          DetailsMediaImage.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'books.jpg');

[OrNEC]

Zitat von NamenLozer:

Delphi-Quellcode:

        if tb.FieldAsBlob(tb.FieldIndex['picture']) <> nil then
        begin
          // ms := TMemoryStream.Create; NEIN! Speicherleck!
          ms := tb.FieldAsBlob(tb.FieldIndex['picture']);
          ms.Position := 0;
          DetailsMediaImage.Picture.LoadFromStream(ms);
        end 
        else 
          DetailsMediaImage.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'books.jpg');

Sag ma wieso wird da Speicherleck erzeugt?

[Sir Rufo]

Zitat von OrNEC:

Zitat von NamenLozer:

Delphi-Quellcode:

        if tb.FieldAsBlob(tb.FieldIndex['picture']) <> nil then
        begin
          // ms := TMemoryStream.Create; NEIN! Speicherleck!
          ms := tb.FieldAsBlob(tb.FieldIndex['picture']);
          ms.Position := 0;
          DetailsMediaImage.Picture.LoadFromStream(ms);
        end 
        else 
          DetailsMediaImage.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'books.jpg');

Sag ma wieso wird da Speicherleck erzeugt?

Ich will es mal mit einem Beispiel aus der Realität veranschaulichen:

Code:

Ich leihe mir ein Auto vom Autoverleiher
Mit dem Auto vom Chef mache ich meine Besorgungen

Wenn du das jetzt öfters machst, dann hast du den Hof voller gemieteter Wagen stehen und musst dir auch noch die Frage gefallen lassen, warum du die überhaupt angemietet hast.

Ok, versuchen wir es mal anders

Code:

Ich leihe mir ein Auto vom Autoverleiher
Mit dem Auto vom Chef mache ich meine Besorgungen
Dieses Auto gebe ich bei dem Autoverleiher wieder ab

MÖÖÖÖP - Der Verleiher schaut mich ungläubig an und der Chef ist kurz vor der Kernschmelze, es ist sein Auto

Also

• entweder ich leihe mir das Auto vom Verleiher, benutze es und gebe auch dieses geliehene Auto wieder ab
• oder ich nehme das Auto vom Chef (weil es da ist und keine Leihgebühren kostet)

[Namenloser]

Klasse Beispiel