Fórum Como gravar Imagem JPG via SQL ? #229003

Esse trecho de código deve ajudar....

CDSUtil.CommandText := ´INSERT INTO ´ARQEXTERNO´ ´+
´(NomeArquivo, DataHora, Conteudo) ´+
´values (:NomeArquivo, :DataHora, :Conteudo)´ ;

CDSUtil.Params.FindParam(´NomeArquivo´).AsString := FileArq ;
CDSUtil.Params.FindParam(´DataHora´).AsSQLTimeStamp := DateTimeToSQLTimeStamp(FileDateToDateTime(HDAge)) ;
CDSUtil.Params.FindParam(´Conteudo´).LoadFromFile(FileDisk,ftTypedBinary) ;

CDSUtil.Execute ;



Para Ler do Arquivo e gravar no disco:

CDSUtil.CommandText := ´Select Conteudo from ARQEXTERNO ´ +
´where NomeArquivo = ´+QuotedStr(FileArq) ;
CDSUtil.Open ;

TBlobField(CDSUtil.FieldByName(´Conteudo´)).SaveToFile(FileDisk);