Re: [delphi-br] Inserir fotografia
Então tenho que criar uma pasta dentro da minha aplicação com as fotos dos funcionários e toda vez que eu for gravar buscar a foto desta pasta. Mas uma pergunta. Se eu fizer o form e criar um botão de busca para as fotos, por exemplo. Entrou um funcionário novo vou scanear a foto e salvar na pasta do sistema depois eu alimento os dados do novo funcionário e no momento de inserir sua foto clico no botão e busco a foto e gravo, como eu faço isso? Que componentes usar do delphi? PAULO FERNANDES PORTO ALEGRE/RS [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
RES: [delphi-br] Inserir fotografia
Paulo,
eu faço o seguinte:
var xorigem,xdestino:string;
begin
OpenPictureDialog1.InitialDir:='';
OpenPictureDialog1.Filename:='';
if OpenPictureDialog1.execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
xorigem:=OpenPictureDialog1.filename;
xdestino:= application.ExeName;
xdestino:=
extractfilepath(xdestino)+'imagens\'+extractfilename(OpenPictureDialog1.File
name);
If not FileExists(xdestino) then
copyfile(xorigem,xdestino);
xdestino:= 'imagens\'+extractfilename(OpenPictureDialog1.Filename);
xdestino:= PATH PARA GRAVAR...
PARA CARREGAR
xdestino:= application.ExeName;
xdestino:=
extractfilepath(xdestino)+DM1.SqlQuery1.fieldbyname('pathpapelparede').AsStr
ing;
FcheckCtrl.Image1.Picture.LoadFromFile(xdestino);
Espero ter ajudado,
qualquer duvida,
Otavio
Cidreira/RS
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Info Desenvolvimento
Enviada em: quarta-feira, 1 de junho de 2005 08:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Inserir fotografia
Então tenho que criar uma pasta dentro da minha aplicação com as fotos dos
funcionários e toda vez que eu for gravar buscar a foto desta pasta.
Mas uma pergunta. Se eu fizer o form e criar um botão de busca para as
fotos, por exemplo. Entrou um funcionário novo vou scanear a foto e salvar
na pasta do sistema depois eu alimento os dados do novo funcionário e no
momento de inserir sua foto clico no botão e busco a foto e gravo, como eu
faço isso? Que componentes usar do delphi?
PAULO FERNANDES
PORTO ALEGRE/RS
[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
--
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
Re: [delphi-br] Inserir fotografia
Sim amigo, vc tem que criar a pasta e guardar as imagens lá, eu faço da mesma forma que nosso amigo lhe ensinou e funciona que um maravilha. Em 01/06/05, Info Desenvolvimento[EMAIL PROTECTED] escreveu: Então tenho que criar uma pasta dentro da minha aplicação com as fotos dos funcionários e toda vez que eu for gravar buscar a foto desta pasta. Mas uma pergunta. Se eu fizer o form e criar um botão de busca para as fotos, por exemplo. Entrou um funcionário novo vou scanear a foto e salvar na pasta do sistema depois eu alimento os dados do novo funcionário e no momento de inserir sua foto clico no botão e busco a foto e gravo, como eu faço isso? Que componentes usar do delphi? PAULO FERNANDES PORTO ALEGRE/RS [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 Termos do Serviço do Yahoo!. -- []'s Emerson Moreno Mascate Automação Desenvolvedor -- 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
Re: [delphi-br] Inserir fotografia
Grave o endereço da foto que o usuário quiser por exemplo, vc escaneia e salva na pasta c:\sistema\fotos\ como nome de foto1.jpg No banco, vc cria um campo para armazenar o endereço da foto (com nome e tudo) Qnd vc quiser carregar use um componente image.. acho que tem um método chamado LoadFromFile(´Caminho\nome\´) Se der certo nos avise []s Neek Info Desenvolvimento wrote: Então tenho que criar uma pasta dentro da minha aplicação com as fotos dos funcionários e toda vez que eu for gravar buscar a foto desta pasta. Mas uma pergunta. Se eu fizer o form e criar um botão de busca para as fotos, por exemplo. Entrou um funcionário novo vou scanear a foto e salvar na pasta do sistema depois eu alimento os dados do novo funcionário e no momento de inserir sua foto clico no botão e busco a foto e gravo, como eu faço isso? Que componentes usar do delphi? PAULO FERNANDES PORTO ALEGRE/RS [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
Re: [delphi-br] Inserir fotografia
Está dando esse erro:
[Error] UFoto.pas(41): Incompatible types: 'String' and 'PChar'
SEU CÓDIGO:
Paulo,
eu faço o seguinte:
var xorigem,xdestino:string;
begin
OpenPictureDialog1.InitialDir:='';
OpenPictureDialog1.Filename:='';
if OpenPictureDialog1.execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.Filename);
xorigem:=OpenPictureDialog1.filename;
xdestino:= application.ExeName;
xdestino:=
extractfilepath(xdestino)+'imagens\'+extractfilename(OpenPictureDialog1.File
name);
If not FileExists(xdestino) then
LINHA 41...copyfile(xorigem,xdestino);
destino:= 'imagens\'+extractfilename(OpenPictureDialog1.Filename);
xdestino:= PATH PARA GRAVAR...
PARA CARREGAR
xdestino:= application.ExeName;
xdestino:=
extractfilepath(xdestino)+DM1.SqlQuery1.fieldbyname('pathpapelparede').AsStr
ing;
FcheckCtrl.Image1.Picture.LoadFromFile(xdestino);
Espero ter ajudado,
qualquer duvida,
Otavio
Cidreira/RS
[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
[delphi-br] Inserir fotografia
Alguém sabe como eu faço para inserir fotografia no delphi 5 com paradox. O que eu já fiz foi inserir um campo na minha tabela chamado foto tipo Graphic, mas quero inserir um código no meu form de cadastro, um botão e esse botão irá inserir a foto do funcionário. PAULO FERNANDES PORTO ALEGRE/RS [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
Re: [delphi-br] Inserir fotografia
Lah vai
Obs.: Deve existir um maneira mais limpa de se fazer isto, mas fiz isto no
Delphi3 e tah assim ateh hj. Este eh o meu unico software q nao migrei para
outras versoes do Delphi. E qdo fiz era maGavilha.
GRAVAR:
===
Tabela.Append;
TabelaCAMPOFOTO.LoadfromFile('C:\imagem.bmp');
Tabela.Post;
===
EXIBIR no TImage
===
TabelaCAMPOFOTO.SaveToFile('C:\TEMP.bmp');
Image1.Picture.LoadFromFile('C:\TEMP.bmp');
// Se quiser pode deletar aqui o Temp.bmp
===
Obs.: O problema eh q soh aceita bmp.
[]'s
Jéferson
Porto Alegre-RS
- Original Message -
From: Info Desenvolvimento [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 31, 2005 5:11 PM
Subject: [delphi-br] Inserir fotografia
Alguém sabe como eu faço para inserir fotografia no delphi 5 com paradox.
O que eu já fiz foi inserir um campo na minha tabela chamado foto tipo
Graphic, mas quero inserir um código no meu form de cadastro, um botão e
esse botão irá inserir a foto do funcionário.
PAULO FERNANDES
PORTO ALEGRE/RS
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
--
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
