QuickReport - Armazenando num Blob

Top  Previous  Next

QR armazenado num Blop

 

Os campos do Tipo TBlobField, tem metodos que permitem que

sejam armazenados dados contidos em arquivos, ou em um Stream...

No primeiro caso (dos arquivos), o codigo seria algo como:

 

TBlobField(SuaTabela.FieldByName('SeuCampo')).LoadFromFile('NomedoArquivo');

 

No segundo caso, poderia ser feito um exemplo com o TRichEdit:

 

var

Stream : TMemoryStream;

begin

Stream := TMemoryStream.Create;

try

RichEdit1.Lines.SaveToStream(Stream);

Stream.Seek(0,soFromBeginning);

TBlobField(SuaTabela.FieldByName('SeuCampo')).LoadFromStream(Stream);

finally

Stream.Free;

end;

end;

 

Ambos os exemplos, assumem que a tabela ja' estaria em modo

de Edicao ou de Insercao.