ler alterar salvar no RichMemo1 textos formatados vindo o banco de dados maria db blob. passo $50 vi

xikara
(usa Outra)

Enviado em 21/11/2021 - 12:46h

procedure Tfrmficha.formatarClick(Sender: TObject);
var
fp: TFontParams;
begin
if FontDialog1.Execute then
begin
fp.Color:=FontDialog1.Font.Color;
fp.Size:= FontDialog1.Font.Size;
fp.HasBkClr:= false;
fp.Style:= FontDialog1.Font.Style;
fp.Name:=FontDialog1.Font.Name;
RichMemo1.SetTextAttributes(RichMemo1.SelStart, RichMemo1.SelLength,fp);

end;

end;

procedure Tfrmficha.lerClick(Sender: TObject);
var M: TMemoryStream;
begin

DM.FichaTable.SQL.Text := 'select resumo from ficha where idFicha = :ID';
DM.FichaTable.ParamByName('ID').AsInteger := 1;
DM.FichaTable.Open;
if DM.FichaTable.RecordCount = 1 then begin
M := TMemoryStream.Create;
try

TBlobField( DM.FichaTable.FieldByName('resumo') ).SaveToStream(M); //salvar o field em um stream
M.Position := 0; //esta linha é necessária pois ao salvar o stream ele estará na posição final
//Ric
RichMemo1.LoadRichText(M);
finally
M.Free;
end;
end;
end;


procedure Tfrmficha.gravarClick(Sender: TObject);
var M: TMemoryStream;
begin
M := TMemoryStream.Create;
try
dm.FichaTable.close;
RichMemo1.Lines.SaveToStream(M); //salvar o RichEdit em stream


//Gravar blob na tabela via SQL
DM.FichaTable.SQL.Text := 'insert into ficha (idficha, resumo) values (:A , :B)';
DM.FichaTable.ParamByName('A').AsInteger := 1;
DM.FichaTable.ParamByName('B').LoadFromStream(M, ftBlob);
dm.FichaTable.ExecSQL;


finally
M.Free;
end;
end;

formatando e gravando no banco de dados eu consegui não esta alterado e nem lendo o arquivo do banco