Re: [delphi-br] Ajuda Gravar Imagens

2009-11-10 Por tôpico Júlio César Santiago Guiótti
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

2009-11-10 Por tôpico Gilvan Costa
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]