[Сеть, интернет] Передача файлов по TCP

[ZloePelme666ko]

Версия: 1.1

Категория: Вспомогательные функции, Сеть

Описание:
Доброго времени суток! Искал готовую UDF с передачей файлов по TCP - не нашел. Как истинный программист - написал сам. Выкладываю здесь, вдруг кому пригодиться.

Особенности:
1.Выбор папки в которую загружается файл(по умолчанию @scriptdir)
2.Возможность установить собственный callback. Функция должна принимать один параметр. в функцию отдается массив, содержащий:
[О] - статус передачи(0 - получение/передача сведений о файле, 1-получение/передача файла, 2 - ожидание окончания
[1] - имя передаваемого файла
[2] - размер файла в байтах
[3] - размер пакетов в байтах, которыми передается файл
[4] - таймаут приема/передачи, мс
[5] - метка времени начала приема/передачи, для использования с timerDiff()
[6] - размер полученного/переданного в байтах


Код/Пример: во вложении UDF и простенький пример

История версий:
1.0 - релиз
1.1 - убрана проверка контрольной суммы :( (на больших файлах время вычисления превышало время ожидания),
- В функцию _TCP_filetransfer_recv добавлена переменная $sFolder(путь,по которому будет сохранен файл)
- код оптимизирован и приведен к каноническому виду
- временный файл в случае ошибки теперь удаляется

Источник: autoit-script.ru
Автор: Pelme666ko

В случае обнаружения ошибок прошу дублировать на [email protected]

 

[k790]

Привет, нашёл ошибку:
Надо заменить 179 строку:

FileClose($sFolder&'\'&$tmpfile)

На:

FileClose ($hFile)

Ушёл дублировать на почту...