[FUNCION] Autoit TCP File Send

[79137913]

HOLA!!!

Tuve muchos problemas para recibir datos binarios enviados con autoit, por eso cree esta funcion, a la cual se le pasa un socket conectado, el path del archivo a enviar y el tamaño del bufer de salida.

Nota: Esta funcion no notifica al otro lado cuando inicia o termina un archivo, aunque al terminar su ejecucion el archivo ha sido enviado correctamente por lo que pueden enviar un identificacador de inicio antes de llamar a la funcion y otro despues.

Código (autoit) [Seleccionar] Expandir

Func _TCPFileSend($sock, $File, $MaxLen) ;Envia datos binarios desde archivo.
Local $BytesRead = 0
$FileHandle = FileOpen($File, 16)
While 1
$Data = FileRead($FileHandle, $MaxLen)
If @error Then ExitLoop
$BytesRead += TCPSend($sock, $Data)
Wend
FileClose($FileHandle)
Return SetError(0, 0, 1)
EndFunc   ;==>_TCPFileSend

GRACIAS POR LEER!!!