Manipulando Campo Blob no delphi
Após muitas dificuldades de utilizar o recurso segue simplificadamente como utilizei para ler e exibir o conteúdo de arquivos em banco de dados.
TBlobField(Tabela.FieldByName('NomedaColuna')).LoadFromFile('NomeArquivo.NomeExtensao');
Salvar o conteudo da tabela em um arquivo fisico do disco
TBlobField(MyTable.FieldByName('NomedaColuna')).SaveToFile('NovoArquivo.NomeExtensao');
TBlobField(MyTable.FieldByName('NomedaColuna')).SaveToFile('NovoArquivo.NomeExtensao');
Limpar conteudo da tabela
TBlobField(MyTable.FieldByName(' NomedaColuna' )).Clear;
with MyTable do
if not TBlobField(MyTable.FieldByName(´SOM)).IsNull then
TBlobField(MyTable.FieldByName(´SOM)).SaveToFile(´MyWaveCopy.wav´);
Para saber quanto um campo BLOB está ocupando num registro do seu arquivo
em byte, use a propriedade BlobSize:
TBlobField(MyTable.FieldByName('NomedaColuna').BlobSize;
TBlobField(MyTable.FieldByName(' NomedaColuna' )).Clear;
with MyTable do
if not TBlobField(MyTable.FieldByName(´SOM)).IsNull then
TBlobField(MyTable.FieldByName(´SOM)).SaveToFile(´MyWaveCopy.wav´);
Para saber quanto um campo BLOB está ocupando num registro do seu arquivo
em byte, use a propriedade BlobSize:
TBlobField(MyTable.FieldByName('NomedaColuna').BlobSize;
Usando os mesmos métodos, você também pode armazenar e manipular filmes
AVI, apresentações, documentos, etc
Abraço a todos !!!
