Timage

Question

como fa�o pra abrir a imagem q ta no Timage como o visualizador padrao do windows [code:1:885cec6614]winexe(image1.piture.imagem,0)[/code:1:885cec6614]valew...

Michael · Answer

Ol� amigo!A primeira id�ia q tive foi salvar o arquivo na mem�ria, para evitar de ter q acessar o disco, mas infelizmente n�o sei como fazer outro programa abrir o arquivo pela mem�ria!  :oops: A meu ver, �nica alternativa seria vc salvar a imagem para a pasta tempor�ria do sistema e ent�o abr�-la usando ShellExecute. N�o sei se WinExec vai funcionar.Bom, eis minha dica:[code:1:1a7341c7f9]Image1.Picture.SaveToFile(�C:Imagem.bmp�);ShellExecute(handle, PAnsiChar(�C:Imagem.bmp�), nil, nil, SW_SHOWNORMAL);[/code:1:1a7341c7f9]Use uma fun��o para obter a pasta tbm do sistema. Pesquise no f�rum por ela. N�o me lembro de cabe�a. ;-)Abra�os!...

Guilherme · Answer

tenho q declarar alguma coisa pra usar o shellexecute ???? o q ?...

Michael · Answer

[quote:ae52a20af0=�gborges_13�]tenho q declarar alguma coisa pra usar o shellexecute ???? o q ?[/quote:ae52a20af0]Ops amigo! Mil perd�es. Esqueci de dizer: declare ShellAPI na cl�usula [b:ae52a20af0]uses[/b:ae52a20af0] da sua unit. :oops:...

Guilherme · Answer

to usando esse codigo [code:1:6cac28f02a]ShellExecute(handle,PAnsiChar(Dm1.TBFotoCAMINHO_PADRAO.Value+FrmCliente.TBDados_finanVEI_FOTO1.Value), nil, nil, SW_SHOWNORMAL); [/code:1:6cac28f02a]so q da erro de imcompatibilidade de tipos integer pansiChar !!...

Michael · Answer

Os valores vindos do banco de dados n�o devem ser do tipo string ent�o. Tente usar AsString ao inv�s de Value.[]�s...

Guilherme · Answer

mesmo assim continua o erro ! ambos campos sao string�s...

Guilherme · Answer

na verdade eu preciso abrir uma imagem ate sei o caminho dela so q nao estou conseguindo abrir via o shellexecute e nen winexec alguem sabe como fa�o para abrir ????

obrigado

valew

p.s o caminho da imagem ta em uma base de dados q � a seguinte :

Dm1.TBFotoCAMINHO_PADRAO.Value+FrmCliente.TBDados_finanVEI_FOTO1.Value

F�rum Timage #280968