|
114
|
Programación / Programación Visual Basic / aplicacion para conectar con servidor
|
en: 15 Agosto 2009, 01:58 am
|
hola amigos, quiero hacer un programa que pueda guardar y obtener archivos de un servidor mediante ftp con visual basic, y no se como puedo hacer la conexion con el servidor.
me podriais decir que componente usar o como puedo hacer la conexion por favor??
muchas gracias
|
|
|
116
|
Programación / Programación Visual Basic / Re: conectar con un equipo remoto sin servidor
|
en: 23 Junio 2009, 11:58 am
|
aqui va el codigo cuando el cliente envia los datos
Private Sub Command2_Click()
Dim error As Variant Dim enviar As String enviar = Text2.Text
If Me.Winsock1.State = 0 Or Me.Winsock1.State = 9 Then error = MsgBox("CONEXION TERMINADA, (DESCONECTADO)", vbCritical, "DISCONECTED") = vbOK
Else
Me.Winsock1.SendData enviar Text2.Text = ""
End If
End Sub
y aqui cuando el servidor recibe los datos
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String Me.Winsock1.GetData datos, vbString Text1.Text = Text1.Text + vbNewLine + "**CLIENTE**" Text1.Text = Text1.Text + vbNewLine + datos
End Sub
aqui cuando el servidor acepta la conexion
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Dim alert As Variant If Winsock1.State <> sckClosed Then Winsock1.Close End If Me.Winsock1.Accept requestID alert = MsgBox("cliente se ha coenctado", vbInformation, "conectando") = vbOK Label2.Caption = "conectado" End Sub
a ver si podeis ayudarme. muchas gracias
|
|
|
|
|
|
|