Boa tarde Carlos,
Não consigo fazer funcionar.. me retorna este errro JPEG ERROR #53.
img1.Picture := nil;
ExibeFoto(NTClientes, 'foto', img1);
img1.Picture.SaveToFile('C:\DBSOFT\FOTOCLIENTES\FOTO1.jpg');
img1.Picture := nil;
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Carlos
Enviada em: segunda-feira, 18 de agosto de 2008 09:54
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: RES: Res: [delphi-br] Salvar uma imagem
É claro meu camarada, não é abuso nenhum, aliás, é uma correção, haja
vista eu achava que já a tinha enviado.
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;
Fraterno abraço
Carlos
No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.6.5/1618 - Release Date: 18/8/2008
06:51
[As partes desta mensagem que não continham texto foram removidas]
