Comunidad Gambas-es

Cliente FTP. Un antiguo proyecto revivido

Shordi 03-03-2022, 14:17

Aprovechando que en los programas que hice para el trabajo había mucho manejo de FTP, allá por 2013 intenté hacer un cliente FTP tipo FileZilla que ya publiqué en este foro en su día y que supongo que estará en el foro antiguo. Hace unas semanas un gambero alemán, encargado del capítulo sobre FTP del wiki-libro de gambas que están haciendo en el foro alemán de gambas ( https://www.gambas-buch.de/doku.php ) y que quería partir de mi viejo programa para hacer el programa de ejemplo para el libro. Por supuesto que le ayudé y, de paso, aproveché para actualizar y terminar mi viejo programa, que nunca quedó finalizado a mi gusto.

Así, podéis encontrar el gbftp, que es como se llama, en la granja de gambas y aquí, en gitlab: https://gitlab.com/shordi/gbftp

Espero que os sirva.

Saludos

Aplicaciones/Fragmentos de Código Respuestas 3

SOLUCIONADO Incrustar un formulario dentro de otro.

YuHi 02-03-2022, 07:57

Buen día, a todos. Tengo dos Formularios y un módulo, El módulo abre una conexión a una base en mysql, el formulario FMain tiene un botón que abre el segundo formulario (ventana) la cual abre una tabla y llena un Gridview. Esto sí me funciona bien. Lo que quiero hacer ahora es que el formulario Ventana se incruste en el formulario FMain. Traté de utilizar el comando
Ventana.Load(Panel1)
donde Panel1 está en el formulario FMain, pero al ponerlo obtengo un error "Null object". Sí se incrusta El formulario Ventana dentro de Panel1, pero no puedo llenar el objeto Gridview con los datos de la Base Mysql.

Traté de ponerlo justo antes del comando
Ventana.show
Supongo que este error es porque al tratar de incrustarlo ya no estoy realmente en el formulario Ventana, pero no sé como resolverlo. ¿pueden por favor ayudarme? Les pongo el código con el que estoy haciendo las pruebas.

Código:
'''''''módulo que hace la conexión

Private hConn As Connection

Public Function ConexionBase() As Connection

  hConn = New Connection

         hConn.Type = "mysql"

         hConn.Host = "localhost"

         hConn.Login = "usuario"

         hConn.Password = "clave" 

         hConn.Name = "NombreBase"

  Try hConn.Open

  If Error Then

      Message.Error(Error.Text)

  Else

      Return hConn

  Endif

  Return Null  

End

Código:
''''''''''Formulario   FMain

Public Sub Form_Open()

End

Public Sub btnAbrir_Click()

  Ventana.Show

End

Código:
''''''''Formulario #2

Private hConn As Connection

Private rData3 As Result

Public Sub GridData3_Data(Row As Integer, Column As Integer)

   rData3.MoveTo(Row)

    GridData3.Data.Text = Str(rData3[Column])

End

Public Sub btnIniciar_Click()

  txtRequest3.Text = "SELECT * FROM `NombreTabla`"

  rData3 = hConn.Exec(txtRequest3.Text)

Inc Application.Busy

  GridData3.Rows.Count = 0

  GridData3.Columns.Count = rData3.Fields.Count

  GridData3.Rows.Count = rData3.Count 

Finally

Dec Application.Busy

Catch

    Message.Error("Cannot exec request." & "\n\n" & Error.Text)

End

Public Sub Form_Open()

  hConn = mConexBase.ConexionBase()

End

Public Sub Form_Close()

  hConn.Close

End