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
