Utilizando arquivos PDFs

Delphi

27/09/2003

Caro amigo, a resposta que vc me deu sobre como abrir arquivos pdf, está completamente certa, só que o caminho e o nome do arquivo tem que ser passado da seguinte maneira: ´C:\TESTE.PDF´ como vc faria para abrir um arquivo que foi digitado num edit por exemplo?

Voce certamenrte faria o seguinte onde fosse pra colocar o nome do arquivo você colocaria edit1.ext sim isso é muito fácil, mas ná hora de cmpilar da erro.

será que vc poderia me ajudar.


soda limonada
balceiro@bol.com.br

[b:973288d7a9]Título editado pelo Moderador - AZ[/b:973288d7a9]


Balceiro

Balceiro

Curtidas 0

Respostas

Cebikyn

Cebikyn

27/09/2003

[b:cdf6ed5097]PChar(Edit1.Text)[/b:cdf6ed5097]

Deve funcionar.

OBS:
Não se usa direcionar um tópico a uma pessoa em especial, para isso use MP´s


GOSTEI 0
Balceiro

Balceiro

27/09/2003

pois é só que isso não funciona....


GOSTEI 0
Mmtoor

Mmtoor

27/09/2003

Prezado amigo.
Como disse, só se eu fizesse pra vc, e vc esta com sorte, pois tenho um exemplo com fontes para abrir arquivos pdf.
Faz o seguinte: Para não ficarmos digitando muito, informe seu mail pra eu te enviar o exemplo que tenho, ok?
MMTOOR2003


GOSTEI 0
Mmtoor

Mmtoor

27/09/2003

pode analisar a rotina para criar um exemplo se quiser:

unit PDF;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, FileCtrl, ShellAPI,Buttons;

type
TFrm_PDF = class(TForm)
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
FilterComboBox1: TFilterComboBox;
Edit1: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
procedure PDF(const aAdress: String);
{ Public declarations }
end;

var
Frm_PDF: TFrm_PDF;

implementation
var
buffer: String;
k: string;

{$R *.dfm}
procedure TFrm_PDF.PDF(const aAdress: String);
begin
k:= label1.caption+´\´+edit1.text;
buffer := k;
ShellExecute(Application.Handle, nil, PChar(buffer), nil, nil, SW_SHOWNORMAL);
end;

procedure TFrm_PDF.SpeedButton1Click(Sender: TObject);
begin
PDF(k);
end;
end.


MMTOOR2003


GOSTEI 0
Balceiro

Balceiro

27/09/2003

obrigado.


GOSTEI 0
POSTAR