Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Вниз

Как показать и распечатать PDF файл?   Найти похожие ветки 

← →
Макс Черных   (2002-03-19 19:46) [4]

Идея одна. Скорее всего не правильно передается параметр
в LoadFile. Нижеприведенный код у меня, например, работает без проблем.

type
TForm1 = class(TForm)
Pdf1: TPdf;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then Pdf1.LoadFile(StringToOlestr(OpenDialog1.FileName));
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c