• Lunes 23 de Diciembre de 2024, 03:43

Autor Tema:  Re: LO CONSEGUÍÍÍÍ ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡  (Leído 2009 veces)

HurryCrack

  • Miembro MUY activo
  • ***
  • Mensajes: 206
    • Ver Perfil
Re: LO CONSEGUÍÍÍÍ ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
« en: Sábado 22 de Marzo de 2003, 18:07 »
0
Ya lo he conseguido, he mandado un archivo binario a traves de WINSOCK sin necesidad de FTP :yes: ahora estoy liado con la compresion/descompresion de esos archivos desde visual basic. Alguna idea? me dieron la de ZLIB, pero esta en C así que ya vereis la movida. Bueno pal ke lo kiera ke lo diga.:beer::suerte:

Gerard

  • Miembro MUY activo
  • ***
  • Mensajes: 188
    • Ver Perfil
Re: LO CONSEGUÍÍÍÍ ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
« Respuesta #1 en: Sábado 22 de Marzo de 2003, 20:15 »
0
HurryCrack, me puedes mandar eso?
Gracias, un saludo :adios:
Moderador Noticiario - Programador Visual Basic

José D

  • Miembro MUY activo
  • ***
  • Mensajes: 235
    • Ver Perfil
Re: LO CONSEGUÍÍÍÍ ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
« Respuesta #2 en: Sábado 22 de Marzo de 2003, 21:28 »
0
Citar
Bueno pal ke lo kiera ke lo diga.:beer::suerte:


Hey me gustaría mucho ver eso, un experto del winsock como tu tarde o temprano iba a solucionarlo:D

Si no puedes subirlo aquí, o como quieras, puedes enviarlo por correo, la desición es tuya :beer:
Saludos

hat

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: LO CONSEGUÍÍÍÍ ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
« Respuesta #3 en: Jueves 27 de Marzo de 2003, 15:55 »
0
HurryCrack, me puedes mandar eso?
Gracias, un saludo  
por mail :adios:

HurryCrack

  • Miembro MUY activo
  • ***
  • Mensajes: 206
    • Ver Perfil
Re: LO CONSEGUÍÍÍÍ ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
« Respuesta #4 en: Viernes 28 de Marzo de 2003, 17:08 »
0
Solo teneis que darle el nombre del archivo, imagen o lo ke kerais enviar y el index del socket por el que esta conectado el cliente, osea, el numero de la matriz de controles winsock, OK? bueno pos este es el codigo. :comp:

Por cierto es algo lento para archivos grandes, por lo que estoy comprimiendo los archivos a enviar a traves de visual basic, ya he conseguido comprimirlos, antes de enviarlos, solo que da descomprimirlos en cliente.:hitcomp:

:hippi:

Private Sub Enviar_Ftp(Index As Integer, Cabe As String, Linea As String)
Dim Pos As Long, kkk As String

If WFtp(Index).State = sckConnected Then
    kkk = Cabe + Chr(10) + Linea
    WFtp(Index).SendData kkk
    DoEvents
End If
End Sub

Private Sub SendFile(ByVal vsLocalName As String, Index As Integer)
    Dim hFile           As Integer
    Dim lReadBytes      As Long
    Dim iSendPercent    As Integer
    Dim sBuffer As String
    Const Buffersize    As Long = 1024
   
    hFile = FreeFile: sBuffer = "": Tamaño_Arch = 0
   
    Open vsLocalName For Binary Access Read As hFile
   
    Do While Not EOF(hFile)
       If LOF(hFile) - Seek(hFile) < Buffersize Then
          lReadBytes = LOF(hFile) - Seek(hFile) + 1
       Else
          lReadBytes = Buffersize
       End If
       
       
       DoEvents
       sBuffer = Input$(lReadBytes, hFile)
       Enviar_Ftp Index, "PLANO_SOLAR", sBuffer
       iSendPercent = (Seek(hFile) / LOF(hFile)) * 100
               
       If iSendPercent > 100 Then
          iSendPercent = 100
       End If
       If lReadBytes < Buffersize Then
          Exit Do
       End If
   
    Loop
    Close #hFile
   
   
End Sub


:adios:

J.M.Movilla

  • Miembro MUY activo
  • ***
  • Mensajes: 427
    • Ver Perfil
Re: LO CONSEGUÍÍÍÍ ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
« Respuesta #5 en: Viernes 28 de Marzo de 2003, 17:43 »
0
Supongo te sirva esto. Yo lo estoy usando para hacer las copias de seguridad en todas mis aplicaciones y me va de coña...

Te agradecería también tu código para envío con WinSock.

Saludos
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

José D

  • Miembro MUY activo
  • ***
  • Mensajes: 235
    • Ver Perfil
LO CONSEGUÍÍÍÍ ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
« Respuesta #6 en: Viernes 28 de Marzo de 2003, 18:30 »
0
Gracias por esa a ambos, cuidense.
Saludos