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;
dmCadastro.cdsFoto.First;
while not dmCadastro.cdsFoto.Eof do
begin
TBlobField((dmCadastro.cdsFoto.FieldByName( 'foto' )).SaveToFile(
'C:\Monit\bin\arqs\' + dmCadastro.cdsFotonome.Value + '.jpg' );
dmCadastro.cdsFoto.Next;
end;
dmCadastro.cdsFoto.EnableControls;
end;
sucesso ae.
2008/8/13 Carlos <[EMAIL PROTECTED]>
> 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 imagem no TImage;
>
> 3 - Salvei a imagem no local desejado.
>
> Segue abaixo, o pedaço de código usado e a função.
>
> Fraterno abraço a todos,
> Carlos
>
> if not (dmCadastro.cdsFoto.IsEmpty) then
> begin
> dmCadastro.cdsFoto.DisableControls;
> dmCadastro.cdsFoto.First;
> while not dmCadastro.cdsFoto.Eof do
> begin
> if (img1.Picture <> nil) then
> img1.Picture := nil;
> funcoes.ExibeFoto(dmCadastro.cdsFoto, 'foto', img1);
> img1.Picture.SaveToFile('C:\Monit\bin\arqs\' +
> dmCadastro.cdsFotonome.Value + '.jpg');
> dmCadastro.cdsFoto.Next;
> end;
> dmCadastro.cdsFoto.EnableControls;
> img1.Picture := nil;
> end;
>
> procedure ExibeFoto(DataSet : TDataSet; BlobFieldName : String;
> ImageExibicao : TImage);
> var
> BlobStream : TStream;
> JpegImage : TJPEGImage;
> bitmap:TBitMap;
> begin
> BlobStream :=
> DataSet.CreateBlobStream(DataSet.FieldByname(BlobFieldName), bmRead);
> if BlobStream.Size <> 0 then
> begin
> JpegImage := TJPEGImage.Create;
> try
> JpegImage.LoadFromStream(BlobStream);
> ImageExibicao.Picture.Assign(JpegImage);
> ImageExibicao.Center:=true;
> finally
> BlobStream.Free;
> JpegImage.Free;
> end;
> end
> else
> begin
> Bitmap:=TBitMap.Create;
> Try
> Bitmap.Width:=1;
> Bitmap.Height:=1;
> ImageExibicao.Picture.Assign(BitMap);
> ImageExibicao.Center:=false;
> finally
> Bitmap.Free;
> BlobStream.Free;
> end;
> end;
> end;
>
>
>
--
.......................................................
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]
