Que bom que deu certo, mas só me pergunto uma coisa, você poderia salvar
direto do campo, sem a necessidade de carregar no TImage. Os arquivos já
estão gravados na tabela no formato JPEG não é? ficaria assim:
if not (dmCadastro.cdsFoto.IsEmpty) then
begin
dmCadastro.cdsFoto.DisableControls;
Senhores, boa tarde, consegui resolver de forma simples a referida
questão!
Quero agradecer a colaboração do colega Eduardo, e aproveitar a
oportunidade para informar qual a solução:
1 - Coloquei um componente TImage no Form e sua propriedade Visible =
False;
2 - Usei uma procedure para exibir a i
Carlos, eu não uso clientdataset mas creio que deva funcionar, é apenas uma
sugestão.
var
mSpace :NameSpace;
mMi:OleVariant;
mItem :OleVariant;
mMAPIFolder :OleVariant;
mFolder :OleVariant;
mOu
Meu camarada, bom dia mais uma vez, encaminho o pedaço de código onde
estou tentando passar a imagem para o disco, para que assim, dentro
das possibilidades, possa me auxiliar:
var
mSpace: NameSpace;
mMAPIFolder, mFolder: OleVariant;
mOutlook: TOutlookApplication;
mMi, mItem: OleVariant;
4 matches
Mail list logo
