RES: [delphi-br] Ajuda Gravar Imagens
Tenta assim IF SaveDialog1.execute then Begin Image1.Picture.SaveToFile(SaveDialog1.FileName); End; Ve se roda De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jose Newton Araujo Enviada em: segunda-feira, 9 de novembro de 2009 19:42 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Ajuda Gravar Imagens 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] No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.425 / Virus Database: 270.14.58/2493 - Release Date: 11/09/09 19:40:00 [As partes desta mensagem que não continham texto foram removidas]
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
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
* 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
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
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
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]
RES: [delphi-br] Ajuda Gravar Imagens
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]
[delphi-br] Ajuda Gravar Imagens
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]
