Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » abrir un pdf mediante EXEC() pascal

Pascal/Turbo Pascal - abrir un pdf mediante EXEC() pascal

Volver
Nuevo Tema
<<>>
 
Vista:

abrir un pdf mediante EXEC() pascal

Publicado por leonel (1 intervención) el 06/12/2011 18:12:19
hola gente..

tengo problemas para abrir un pdf desde un programa escrito en pascal.
implementé este código pero no dio resultado... (simplemente no hace nada)

{$M 2000,0,0 } { 2000bytes pila, sin heap}

program PRUEBA;

uses DOS;

begin
swapvectors;
exec('AdobeReader9Lite\AcroRd32.exe','CUPAS.PDF');
swapvectors;
end.

donde el primer parámetro del procedimiento corresponde a la dirección de un portable (lector de pdfs) ubicado en la carpeta de ejecucion del programa PRUEBA, y el segundo, el pdf que quiero abrir, ubicado en la misma carpeta. He probado tambien copiarlos al C y abrirlos desde alli, pero sin resultados, es decir,

parametros:
p1 -> C:\AdobeReader9Lite\AcroRd32.exe
p2 -> C:\CUPAS.PDF

gracias de antemano....

leonel.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

abrir un pdf mediante EXEC() pascal

Publicado por ramon (2158 intervenciones) el 07/12/2011 14:12:45
Estas intentando abrir una aplicación de windows en un sistema de dos no te dejara nunca
dos 16 bit windows 32 bit mala combinación tendrías que volver a windows pasando le el
comando para arrancar acrord32 no lo acertara windows desiste si quieres ver en archivo en
dos tendrás que preparar un programa que lea ese archivo en dos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

abrir un pdf mediante EXEC() pascal

Publicado por leonel (1 intervención) el 10/12/2011 23:16:51
y un archivo html podría abrirlo desde DOS ?, si es así, como lo pudiera hacer.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

abrir un pdf mediante EXEC() pascal

Publicado por ramon (2158 intervenciones) el 14/12/2011 20:13:25
{Este programa te ayudara pero como archivo de texto}

program html;
uses
crt;
const
inicio : string[10] = '<HTML>';
final : string[10] = '</HTML>';
inicabecera : string[10] = '<HEAD>';
finalcabecera : string[10] = '</HEAD>';
princtitulo : string[10] = '<TITLE>';
finaltitulo : string[10] = '</TITLE>';
princidocu : string[10] = '<BODY>';
finaldocu : string[10] = '</BODY>';
finlinea : byte = 10;
nombre : string = 'none~1.html';
var
f : file;
datos : array[0..45000] of byte;
salir, tam2, tama1 : longint;
i : longint;
line1, y : integer;
sal : boolean;
tecla : char;

procedure carga_archivo(nomb : string);
begin
assign(f,nomb);
{$I-} reset(f,1); {$I+}
if ioresult <> 0 then
exit;
tama1 := filesize(f);
tam2 := tama1;
if tama1 > 45000 then
tama1 := 45000
else
tama1 := filesize(f);
seek(f,0);
blockread(f,datos,tama1);
close(f);
end;


begin
clrscr;
carga_archivo('c:\tp\' + nombre);
writeln(tam2,' ',tama1);
writeln;
i := 0;
y := 1;
line1 := 45;
sal := false;
repeat
if datos[i] <> finlinea then
write(chr(datos[i]))
else
begin
writeln;
y := y + 1;
if y > (line1 - 2) then
begin
y := 1;
writeln;
writeln('Desea Segir Viendo Datos [S/N]');
repeat
tecla := readkey;
until tecla in['s','S','n','N'];
if tecla in['s','S'] then
begin
clrscr;
writeln;
end
else
sal := true;
end;
end;
i := i + 1;
until (i > tama1) or (sal = true);
if sal = true then
clrscr
else
begin
writeln('Pulse [Enter]');
readln;
end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar