Eh Gilvan esta é a opção que gostaria pois assim gravase a imagem na tabela Paradox, porém no Delphi 7 não consigo configurar o campo TBlobField na estrutura da minha tabela.
Sds Jose Newton De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Gilvan Costa Enviada em: terça-feira, 10 de novembro de 2009 18:20 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ajuda Gravar Imagens Você pode usar a função abaixo: RenameFile(pathInicial, pathFinal); -------Original Message------- From: Júlio César Santiago Guiótti Date: 10/11/2009 18:04:07 To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Subject: Re: [delphi-br] Ajuda Gravar Imagens José, assim como você carrego a imagem em um TImage. Em seguida eu faço o seguinte: BS := TBlobStream.Create((TABELA.fieldByName('imagem') as TBlobField), BMWRITE); IMG := TBitMap.Create; IMG.LoadFromFile('caminhoDaImagem'); IMG.SaveToStream(BS); Sendo BS um TBlobStream, IMG um TBitMap e o campo imagem da minha tabela do tipo Blob. Espero ter ajudado, abraço, Júlio César Santiago Guiótti 2009/11/9 Jose Newton Araujo <jose.new...@jnewton.com.br <mailto:jose.newton%40jnewton.com.br> > > > > Moçada, aqui estou precisando de uma força (de novo) > > Tenho uma rotina que permite ao cabra escolher uma determinada imagem. O > sistema carrega a imagem através de OpenDialog num Image. Agora preciso > gravar esta imagem alterando o nome do arquivo. Estou tentando via > SaveDialog e não estou tendo sucesso. Quem pode me dar uma força ? > > Obrigado, SDS, > > Jose Newton > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
