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;
mOutlook :TOutlookApplication;
mArquivo :String;
mFoto :String;
mResultado :integer;
mSr :TSearchRec;
//FileOut :TFileStream;
//BlobField :TBlobField;
begin
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\';
//a parte do nome do arquivo é apenas uma sugestão, use algum
codigo ou outro identificador melhor que o RecNo
TBlobField( dmCadastro.cdsFoto.FieldByName( 'foto' )).SaveToFile(
mFoto + IntToStr( RecNo ) + '.jpg' );
Next;
end;
dmCadastro.cdsFoto.EnableControls;
end;
2008/8/13 Carlos <[EMAIL PROTECTED]>
> 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
>
>
>
--
.......................................................
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
.......................................................
[As partes desta mensagem que não continham texto foram removidas]
