Daten aus DB in eine Memo

[aerotech]

Hallo, ist es möglich in Delphi komplette Datentexte aus einer Datenbank in eine Memobox zu bekommen!?
Wenn ja wie...bitte schritt für schritt, danke!

[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

[Hansa]

Jetzt mal langsam. Habe gerade mal nachgesehen. Bei mir verwende ich schlicht und einfach ein DBMemo. Die DB ist allerdings auch darauf ausgelegt. Welche ist das bei dir ?