https://foro.gambas-es.org/viewtopic.php?f=1&t=2045
-----------------------------------
jcontasti
Martes, 22 Noviembre 2011, 15:45

Como Correr Un Programa Externo Dentro De Un Formulario En Gambas
-----------------------------------
Hola amigos gamberos hoy traigo una dudad como hago para correr un pequeño programa externo dentro de un formulario de gambas, es decir, cada vez que abre ese formulario automáticamente se me cargue en ese formulario ese programa externo, he escguchado algo de Embebido pero no entiendo que es si alguien me puede ayudar se lo agradeceria y si pueden colocar un ejemplo mejor.


-----------------------------------
jsbsan
Martes, 22 Noviembre 2011, 17:12

Re: Como Correr Un Programa Externo Dentro De Un Formulario En Gambas
-----------------------------------
Jcontasti:
[quote].... para correr un pequeño programa externo.... [/quote]

Tu puedes ejecutar "programas externos" con las ordenes Shell y Exec

Saludos


-----------------------------------
jguardon
Martes, 22 Noviembre 2011, 18:37

Re: Como Correr Un Programa Externo Dentro De Un Formulario En Gambas
-----------------------------------
Efectivamente eso es posible, sólo hay que usar el objeto embedder pasándole un puntero de la id de la ventana que quieres embeber. El objeto embedder sólo se encuentra disponible con el componente gb.qt.

Mira el siguiente código, así es como yo lo hice, aunque creo haber visto otros ejemplos en el foro. Una búsqueda en el foro debería devolver algún resultado.

[code linenumbers=false syntax=gambas]Public Sub Form_Open()

  Dim sTitle As String
  Dim aHandle As New Pointer[]
  Dim iHandle As Integer

  sTitle = ("DX Map") ' el título de la ventana embebida
  Me.Title = sTitle   ' ponemos el mismo título que la ventana original

  While aHandle.Count < 1

    aHandle = Desktop.find(Trim(sTitle))
    Wait 0.1

  Wend

  iHandle = aHandle[0]
  Try Embedder1.Embed(iHandle)

End[/code]

Saludos


