Eduardo, Ent�o me desculpe, este comando � o que eu uso e funciona perfeitamente. Ok.
Eduardo Silva � <[EMAIL PROTECTED]> wrote: Rafael, testei a sua procedure para gravar imagens jpg em tabelas paradox e deu erro de BMP n�o � uma imagem v�lida. -----Mensagem original----- De: Rafael Souza [mailto:[EMAIL PROTECTED] Enviada em: segunda-feira, 31 de janeiro de 2005 15:58 Para: Delphi Grupo Assunto: [delphi-br] Comando - Grava Img. JPG Este comando grava imagens no formato jpg. D�em uma olhada e fa�am novos testes ok. Abra�o. Rafael Souza 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; __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que n�o continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um servi�o oferecido por: S�o Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Bras�lia ---------------------------------------------------------------------------- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que voc� faz do Yahoo! Grupos est� sujeito aos Termos do Servi�o do Yahoo!. [As partes desta mensagem que n�o continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Yahoo! Grupos, um servi�o oferecido por: function SearchComboBox() { if (document.form_combo.keyword.value.length==0){ alert("Por favor, digite algo."); return false; }else { document.form_combo.action ="http://br.rd.yahoo.com/SIG=12a6kpho8/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1107338963/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";; } return true;} [input] [input] [input] --------------------------------- Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que voc� faz do Yahoo! Grupos est� sujeito aos Termos do Servi�o do Yahoo!. __________________________________________________ Converse com seus amigos em tempo real com o Yahoo! Messenger http://br.download.yahoo.com/messenger/ [As partes desta mensagem que n�o continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que voc� faz do Yahoo! Grupos est� sujeito aos: http://br.yahoo.com/info/utos.html
