Abir documento 'pdf' desde un Formulario
Publicado por chi_flao (15 intervenciones) el 14/04/2003 13:59:56
Hola a todos, lo que estoy intentando hacer no hay manera de encontrarlo por ningún lado, espero que alguno de vosotros pueda ayudarme. Desde un formulario normal intento abir un documento pdf, para abir un documento de word lo he echo de la siguiente manera:
declare
MyApplication OLE2.OBJ_TYPE;
MyDocuments OLE2.OBJ_TYPE;
MyDocument OLE2.OBJ_TYPE;
MySelection OLE2.OBJ_TYPE;
args ole2.list_type;
begin
MyApplication := ole2.create_obj('Word.Application');
ole2.set_property(MyApplication,'Visible',1);
MyDocuments := OLE2.GET_OBJ_PROPERTY (MyApplication,'Documents');
args := OLE2.CREATE_ARGLIST;
ole2.add_arg(args,:blk_documentos.d_ruta);
Mydocument := ole2.invoke_OBJ(MyDocuments,'Open',args);
OLE2.DESTROY_ARGLIST(args);
end;
Estoy buscando la manera de hacer algo parecido para abrirlo en pdf, si alguno puede ayudarme, os agradecería que me echaseis una mano.
Un Saludo.
declare
MyApplication OLE2.OBJ_TYPE;
MyDocuments OLE2.OBJ_TYPE;
MyDocument OLE2.OBJ_TYPE;
MySelection OLE2.OBJ_TYPE;
args ole2.list_type;
begin
MyApplication := ole2.create_obj('Word.Application');
ole2.set_property(MyApplication,'Visible',1);
MyDocuments := OLE2.GET_OBJ_PROPERTY (MyApplication,'Documents');
args := OLE2.CREATE_ARGLIST;
ole2.add_arg(args,:blk_documentos.d_ruta);
Mydocument := ole2.invoke_OBJ(MyDocuments,'Open',args);
OLE2.DESTROY_ARGLIST(args);
end;
Estoy buscando la manera de hacer algo parecido para abrirlo en pdf, si alguno puede ayudarme, os agradecería que me echaseis una mano.
Un Saludo.
Valora esta pregunta


0