Array
(
)

Abrir Arquivo PDF, com o caminho do arquivo no edit

Jrcosmoluis
   - 08 abr 2006

Pessoal,

Conseguir abrir o arquivo dessa forma:

(Evento do Botão):


Citação:

procedure TForm1.AbrirPDF(Sender: TObject);
Var
Pdir: Pchar;
begin
GetMem(Pdir,256);
StrPCopy(Pdir,´C:\Documents and Settings\Administrador\Meus documentos\ApDELPHI7.pdf´);
ShellExecute(0,nil,´C:\Documents and Settings\Administrador\Meus documentos\ApDELPHI7.pdf´,nil,Pdir,SW_NORMAL);
FreeMem(Pdir,256);
end;


Porém, gostaria de chamar esse arquivo quando o usuário informar o caminho em um edit para depois acionar o botão. Já procurei na net mais infelizmente ainda não encontrei e se os amigos tiverem uma dica...

Obrigado


Marco Salles
   - 09 abr 2006

não funciona amigo , para o seu caso

#Código

procedure TForm1.AbrirPDF(Sender: TObject); 
Var
Pdir: Pchar;
begin
GetMem(Pdir,256);
StrPCopy(Pdir,Pchar(edit1.text));
ShellExecute(0,nil,Pchar(edit1.text),nil,Pdir,SW_NORMAL);
FreeMem(Pdir,256);
end;



Jrcosmoluis
   - 09 abr 2006

Marcos,

Obrigado pela atenção. A sua dica testei e funcionou beleza... também seguindo outra dica fiz da seguinte forma:



Citação:
Uses
Shellapi

procedure TForm1.AbriPDF(Sender: TObject);
begin
if FileExists(Edit1.Text) then
ShellExecute(0, ´Open´, PChar(Edit1.Text), nil, nil, SW_NORMAL)
else
ShowMessage(´Arquivo inexistente.´);
end;



Helton Garrido
   - 20 out 2014

Marcos,

Consegui abrir um Arquivo em PDF dentro de um FORM no Delphi com o seguinte código:

AcroPDF1.LoadFile('C:\Engenharia de Software.pdf');

sendo que eu gostaria de executar o arquivo digitando o nome do arquivo em uma edit...

Teria como me ajudar nessa por favor...

ti.garrido@live.com