sábado, 23 de maio de 2009

Armazenando em um 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 ja' estaria em modo de Edicao ou de Insercao.}

Nenhum comentário:

Postar um comentário