Recent

Author Topic: OpenDocument problem  (Read 113 times)

Pompilio

  • Newbie
  • Posts: 1
OpenDocument problem
« on: April 07, 2021, 04:18:24 pm »
Buen día; tengo inconveniente con opendocument por si alguien me puede colaborar.
Uso el código:

uses ..., LCLintf;
...
procedure TForm1.FormClick(Sender: TObject);
begin
  opendocument('documento.pdf');
end;

Y me lo abre bien, pero si le paso una variable ya no me lo abre...???

lucamar

  • Hero Member
  • *****
  • Posts: 3773
Re: OpenDocument problem
« Reply #1 on: April 07, 2021, 07:08:33 pm »
¿Quieres decir algo como esto?:
Code: Pascal  [Select][+][-]
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.   Document: String;
  4. begin
  5.   Document := 'pg53289-images.pdf';
  6.   if not OpenDocument(Document) then
  7.     ShowMessage('OpenDocument failed');
  8. end;
Aquí funciona como debe. Lo único es que si el documento no está en el directorio actual (devuelto por GetCurrentDir) tienes que añadir la ruta a donde esté o  cambiar el directorio actual con SetCurrentDir().
Turbo Pascal 3 CP/M - Amstrad PCW 8256 (512 KB !!!) :P
Lazarus/FPC 2.0.8/3.0.4 & 2.0.12/3.2.0 - 32/64 bits on:
(K|L|X)Ubuntu 12..18, Windows XP, 7, 10 and various DOSes.

 

TinyPortal © 2005-2018