Загрузка в RichEdit поля типа Blob из БД

[le7o]

Как загрузить форматированный текст из БД в RichEdit?

procedure LoadServiceData;
var
  Query: TFDQuery;
begin
  Query := TFDQuery.Create(nil);
  Query.Connection := DM.fdConn ;

  Query.Active := false ;
  Query.SQL.Clear;

  Query.SQL.Text := 'SELECT id, format_field2, format_field2 FROM service');
  Query.SQL.Append('WHERE id=:p_id');
  Query.ParamByName('p_id').Value := 1;
  Query.Open;
  Query.First;

RichEdit1.Lines.LoadFromStream(Query.FieldByName('format_field1'));
RichEdit1.Lines.LoadFromStream(Query.FieldByName('format_field2'));

  FreeAndNil(Query);
end;

[Stilet]

procedure LoadServiceData;
var
  Query: TFDQuery;
  Stream1: TBlobStream;

begin
  Query := TFDQuery.Create(nil);
  Query.Connection := DM.fdConn ;

  Query.Active := false ;
  Query.SQL.Clear;

  Query.SQL.Text := 'SELECT id, format_field2, format_field2 FROM service');
  Query.SQL.Append('WHERE id=:p_id');
  Query.ParamByName('p_id').Value := 1;
  Query.Open;
  Query.First;

  Stream1 := TBlobStream.Create(Query.FieldByName('format_field1'), bmRead);
   RichEdit1.Lines.LoadFromStream(Stream1); Stream1.Free;
  Stream1 := TBlobStream.Create(Query.FieldByName('format_field2'), bmRead);
   RichEdit1.Lines.LoadFromStream(Stream1);Stream1.Free;

  FreeAndNil(Query);
end;

Как-то так если верить хелпу.

[le7o]

То что нужно было, спасибо

Сообщение от Stilet

procedure LoadServiceData;
var
  Query: TFDQuery;
  Stream1: TBlobStream;

begin
  Query := TFDQuery.Create(nil);
  Query.Connection := DM.fdConn ;

  Query.Active := false ;
  Query.SQL.Clear;

  Query.SQL.Text := 'SELECT id, format_field2, format_field2 FROM service');
  Query.SQL.Append('WHERE id=:p_id');
  Query.ParamByName('p_id').Value := 1;
  Query.Open;
  Query.First;

  Stream1 := TBlobStream.Create(Query.FieldByName('format_field1'), bmRead);
   RichEdit1.Lines.LoadFromStream(Stream1); Stream1.Free;
  Stream1 := TBlobStream.Create(Query.FieldByName('format_field2'), bmRead);
   RichEdit1.Lines.LoadFromStream(Stream1);Stream1.Free;

  FreeAndNil(Query);
end;

Как-то так если верить хелпу.

[Stilet]

Пожалуйста )