https://foro.gambas-es.org/viewtopic.php?f=5&t=4445&p=25361#p25361
-----------------------------------
vuott
Lunes, 09 Marzo 2015, 01:55

Re: Trasladar A Un Texto A Editor Kate Mediante DBus
-----------------------------------
[quote user="jsbsan" post="25360"]
¿es posible mandar datos a hojas de cálculo, por ejemplo libreoffice? Seria interesante para pasar datos.[/quote]
No se. Tendrías que probar.
El problema, pero, yo creo está aqui:
[code linenumbers=false syntax=gambas]...["org.kde.kate-" & $oProc.Id]...[/code]
es decir, "[i]org.kde.kate-[/i]" se refiere a Kate; ...y para libreoffice ? O para Gedit ? Cual es el comando ? Yo no lo se. No conozco [i]DBus.[/i]   [img]http://www.gambas-it.org/smf/Smileys/gambasit-emoticons/undecided.gif[/img]


Para enviar texto desde Gambas a Gedit yo he escrito este codigo (no utiliza DBus) un poco enreversado (...todo un juego de Focus).
Se necesita:
- activar los componentes [i]gb.desktop[/i] y [i]gb.desktop.x11[/i];
- poner sobre el Form un objecto Editor y dos Button.
[code linenumbers=false syntax=gambas]Private dw As DesktopWindow
 
 
Public Sub Form_Open()
 
 Shell "gedit"
 
' Salimos del ciclo cuando la ventana de Gedit aparece:
  Do
    Wait 0.1
  Loop Until Desktop.FindWindow(Null, "*gedit*", Null).Count > 0
 
  dw = New DesktopWindow(Desktop.FindWindow(Null, "*gedit*", Null)[0])
 
  With Me
    .Show
    .Center
    Wait 0.1
    .SetFocus
  End With
 
End 
   
 
Public Sub Button1_Click()     ' Esta sub-procedura escribe en Gedit
 
' Da el Focus a la ventana de Gedit:
  dw.Activate()
 
  Wait 0.1 
   
' Escribe en Gedit  "todo el texto visible" en el objecto Editor:
  Desktop.SendKeys(Editor1.Text) 
   
' Esta da el Focus a el programa Gambas:
  Desktop.ActiveWindow = Me.Id
 
  Editor1.Text = Null
 
End
 
 
Public Sub Button2_Click()     ' Esta sub-procedura cierra el programa Gambas
 
  Quit
 
End[/code]   [img]http://www.gambas-it.org/smf/Smileys/gambasit-emoticons/rolleyes.gif[/img]


