Ver Mensaje Individual
  #4  
Antiguo 10-03-2011
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 19
Chris Va por buen camino
Es que en Delphi la función que buscas se llama CreateOleObject.

Por ejemplo, te comparta un procedimiento de la clase TOOOWriter, que es una clase que escribí hace rato para interactuar con OpenOffice y éste me permitiera convertir documentos Word en PDF.
Código Delphi [-]
function TOOoWriter.Connect: boolean;
begin
    if  VarIsEmpty(fOpenOffice) then
        fOpenOffice := CreateOleObject('com.sun.star.ServiceManager');

    fConnected := not (VarIsEmpty(fOpenOffice) or VarIsNull(fOpenOffice));
    Result := fConnected;
end;
La variable fOpenOffice es de tipo Variant.

También vas a necesitar agregar a tu uses las unidades Variants, ComObj, y talvez ActiveX si es necesario
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita