segunda-feira, 14 de setembro de 2009

Qr armazenado num blob

{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 já' estaria em modo de Edicao ou de Insercao. }

Nenhum comentário:

Postar um comentário