Problem mit Blobs

[Hansa]

Hi,

habe hier ein Blob-Feld (als Text). Wie komme ich jetzt da dran ? Am besten wäre ein Funktions-Rückgabewert. Wenn dafür kein Typ bereitsteht ist es auch egal. Müßte trotzdem wissen, wo und wie man das Blob unterbringen kann. Die Daten stehen bereit und ein DBMemo liefert die auch. Das paßt aber so nicht in das Programm-Konzept. Mit TMemo aleine gehts nicht.

[marabu]

Hallo Hansa,

probier mal, ob du das für deine Zwecke anpassen kannst:

Delphi-Quellcode:

uses
  Classes, 
  DB;

function GetBlobText(mf: TMemoField): String;
var
  s: TStream;
begin
  s := mf.DataSet.CreateBlobStream(mf, bmRead);
  SetLength(Result, s.Size);
  s.ReadBuffer(Result[1], Length(Result));
  s.Free;
end;

Grüße vom marabu