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: [email protected]
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
