Einzelnen Beitrag anzeigen

Benutzerbild von ATS3788
ATS3788

Registriert seit: 18. Mär 2004
Ort: Kriftel
646 Beiträge
 
Delphi XE Starter
 
#1

TBlobField.LoadFromStream

  Alt 7. Dez 2017, 15:37
Datenbank: Firebird • Version: 3.1 • Zugriff über: firedac
Hallo
Kann mir jemand mir Efahrung erklären was in der folgenden
Prozedur geschieht ?

Ich übergebe einen Stream an LStream der vorher Created wird

Der Stream wird nach LStream übergeben und dann sofort destroyed.
Wo sind jetzt die blöden Daten von dem Blob?

Hintergrund. Ich möchte das gerne ein TDBImage so überschreiben
um auch JPeg's und andere Datenformate zu speichern und auszugeben.


Delphi-Quellcode:
procedure TBlobField.LoadFromStream(Stream: TStream);
var
  LStream: TStream;
begin
  LStream := DataSet.CreateBlobStream(Self, bmWrite);
  try
    LStream.CopyFrom(Stream, 0);
  finally
    LStream.Free;
  end;
end;
Martin MIchael
  Mit Zitat antworten Zitat