SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: HurryCrack en Sábado 22 de Marzo de 2003, 18:07
-
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:
-
HurryCrack, me puedes mandar eso?
Gracias, un saludo :adios:
-
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:
-
HurryCrack, me puedes mandar eso?
Gracias, un saludo
por mail :adios:
-
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:
-
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
-
(http://members.lycos.co.uk/ryu168/thumb.gif) Gracias por esa a ambos, cuidense.