×
Ir ao conteúdo
  • Cadastre-se

Pascal ler alterar salvar no richmemo1 textos formatados vindo o campo blob banco


xikara

Posts recomendados

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

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!