Programación General > Visual Basic 6.0 e inferiores

 Re: LO CONSEGUÍÍÍÍ ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡

(1/2) > >>

HurryCrack:
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:
HurryCrack, me puedes mandar eso?
Gracias, un saludo :adios:

José D:

--- Citar ---Bueno pal ke lo kiera ke lo diga.:beer::suerte:

--- Fin de la cita ---


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:

hat:
HurryCrack, me puedes mandar eso?
Gracias, un saludo  
por mail :adios:

HurryCrack:
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:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente