Olá pessoal, Dimas, veja o exemplo "Paradox_and_JPG.zip" no link: http://www.4shared.com/dir/5679510/48848609/Uploads.html Um abraço a todos! Silvio Clécio ----- Mensagem original ---- De: Dimas Bolognani <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 3 de Setembro de 2008 8:19:58 Assunto: RES: [delphi-br] SAlvar imagem de uma tabela paradox para JPG.
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: [EMAIL PROTECTED] os.com.br [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Silvio Clécio Enviada em: terça-feira, 2 de setembro de 2008 19:44 Para: [EMAIL PROTECTED] os.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(MinhaImag em); 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:TOpenPicture Dialog); 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(MinhaImag em); 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.DBImage1Clic k(Sender: TObject); var jpg : TJPegImage; begin if OpenPictureDialog1. Execute then begin jpg := TJpegImage.Create; jpg.LoadFromFile( OpenPictureDialo g1.FileName) ; clipboard.Assign( jpg); DBImage1.PasteFromC lipboard; 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] a <mailto:dimas% 40dbsoftinformat ica.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] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
