Qual o tipo de campo que vc usa para grvar a imagem ? Graphic ? -----Mensagem original----- De: Rafael Souza [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 1 de fevereiro de 2005 08:04 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Comando - Grava Img. JPG
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=br clubs/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] Yahoo! Grupos, um serviço oferecido por: ---------------------------------------------------------------------------- -- 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] 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