Bom dia Silvio Clécio,
Fiz o teste mas não deu certo. O campo da tabela paradox me parece que não é um Blob, aparece como GRAPHIC. // TbClientesCli_Foto é um variavel da tabela do tipo Blob , ta como GRAPHIC. Att. Dimas _____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Silvio Clécio Enviada em: terça-feira, 2 de setembro de 2008 19:44 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] SAlvar imagem de uma tabela paradox para JPG. Olá pessoal, Dimas, veja os códigos abaixo: Ler imagem JPG da tabela Paradox Procedure Le_Imagem_JPEG(Campo:TBlobField; Foto:TImage); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin if Campo.AsString <> '' Then Begin BS := TBlobStream.Create((Campo as TBlobField), BMREAD); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; End Else Foto.Picture.LoadFromFile('c:\temp\limpa.jpg'); End; procedure TForm1.Button1Click(Sender: TObject); begin Le_Imagem_JPEG(TbClientesCli_Foto, Image1); // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente end; ------ Gravar imagem JPG em tabela Paradox Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField; Foto:TImage; Dialog:TOpenPictureDialog); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin Dialog.InitialDir := 'c:\temp'; Dialog.Execute; if Dialog.FileName <> '' Then Begin if not (Tabela.State in [dsEdit, dsInsert]) Then Tabela.Edit; BS := TBlobStream.Create((Campo as TBlobField), BMWRITE); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromFile(Dialog.FileName); MinhaImagem.SaveToStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; Tabela.Post; DBISaveChanges(Tabela.Handle); End; End; procedure TForm1.Button1Click(Sender: TObject); begin Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1, OpenPictureDialog1); // TbClientes é o nome de alguma Tabela // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente // OpenPictureDialog1 é o componente para abrir a figura end; ou então procedure TForm1.DBImage1Click(Sender: TObject); var jpg : TJPegImage; begin if OpenPictureDialog1.Execute then begin jpg := TJpegImage.Create; jpg.LoadFromFile(OpenPictureDialog1.FileName); clipboard.Assign(jpg); DBImage1.PasteFromClipboard; jpg.Free; end; end; procedure TForm1.Button4Click(Sender: TObject); begin close; end; end. // colocar JPEG e Clipbrd na USES. Está no link: http://scriptbrasil <http://scriptbrasil.com.br/forum/index.php?showtopic=75468> .com.br/forum/index.php?showtopic=75468 Um abraço a todos! Silvio Clécio ----- Mensagem original ---- De: Dimas Bolognani <[EMAIL PROTECTED] <mailto:dimas%40dbsoftinformatica.com.br> tica.com.br> Para: [EMAIL PROTECTED] <mailto:delphi-br%40yahoogrupos.com.br> os.com.br Enviadas: Terça-feira, 2 de Setembro de 2008 18:13:19 Assunto: [delphi-br] SAlvar imagem de uma tabela paradox para JPG. Ola pessoal, Alguém poderia me passar como eu salvo uma imagem que esta em uma tabela Paradox para um arquivo JPG. Obrigado. Dimas Bolognani [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new. <http://br.new.mail.yahoo.com/addresses> mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]