[FUNCION] Autoit TCP File Send

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.

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!!!