Daten aus DB in eine Memo

[mikhal]

Zitat:

In diesem Beispiel werden die Daten eines Memofeldes aus einem BLOB-Stream gelesen und in einer Memokomponente angezeigt.

Code:

procedure TForm1.Button2Click(Sender: TObject);

var
  Buffer: PChar;
  MemSize: Integer;
  Stream: TBlobStream;
begin
  Stream := TBlobStream.Create(query1.FieldByName('Notes') as TBlobField, bmRead);
  try
    MemSize := Stream.Size;
    Inc(MemSize); { Platz für Terminierungszeichen des Puffers schaffen }
    Buffer := AllocMem(MemSize);     { Speicher zuweisen }
    try
      Stream.Read(Buffer^, MemSize); { Feld Notes in Puffer einlesen }
      Memo1.SetTextBuf(Buffer);      { Pufferinhalt anzeigen }

    finally
      FreeMem(Buffer, MemSize);
    end;
  finally
    Stream.Free;
  end;

end;

Zitat stammt aus der OH für Delphi 7 Professional (Stichwort TBlobStream und Methode Read).

Grüße
Mikhal