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;
mArquivo, mFoto: string;
mResultado: integer;
mSr: TSearchRec;
FileOut: TFileStream;
BlobField: TBlobField;
if not (dmCadastro.cdsFoto.IsEmpty) then
begin
dmCadastro.cdsFoto.DisableControls;
dmCadastro.cdsFoto.First;
while not dmCadastro.cdsFoto.Eof do
begin
mFoto := 'C:\Monit\bin\arqs\' + dmCadastro.cdsFotofoto.Value;
FileOut := TFileStream.Create(mfoto, fmCreate or
fmShareExclusive);
try
BlobField(dmCadastro.cdsFoto.FieldByName('foto')).SaveToFile(FileOut );
//BlobField(dmCadastro.cdsFoto.FieldByName('foto')).SaveToStream(FileOut
);
finally
FileOut.Free;
end;
end;
dmCadastro.cdsFoto.EnableControls;
end;
Agradeço mais uma vez a atenção dispensada.
Fraterno abraço, Carlos
