FTP и 1С81

а это нормально - что 1С файлик весом 140кб - записывает порядка 17 сек
а far - 3-4 сек

вот код
Функция FTP_Connect()
// Вставить содержимое обработчика.
ИмяFTPСервера = элементыформы.Ftp_сервер.Значение;
ПортFTPСоединения = элементыформы.Ftp_порт.Значение;
ПользовательFTPСоединения = элементыформы.Ftp_пользователь.Значение;
ПарольFTPСоединения = элементыформы.Ftp_пароль.Значение;
ПассивноеFTPСоединение = элементыформы.ПассивныйРежим.Значение;

#Если Клиент Тогда
Состояние("Выполняется подключение к FTP: " + ИмяFTPСервера);
#КонецЕсли

Попытка

Соединение = Новый FTPСоединение(ИмяFTPСервера, ПортFTPСоединения, ПользовательFTPСоединения, ПарольFTPСоединения, ,ПассивноеFTPСоединение);

Исключение

Соединение = Неопределено;
сообщить ("Ошибка при подключении к FTP : " + ИмяFTPСервера + " ! " + ОписаниеОшибки());
конецпопытки;

Возврат Соединение;

конецфункции

- и сама отправка

Процедура Кнопка2Нажатие(Элемент)
Соединение = FTP_Connect();
#Если Клиент Тогда

Состояние("");
#КонецЕсли

Запрос = Новый Запрос();
Запрос.УстановитьПараметр("ВидДанных", перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение);
Запрос.УстановитьПараметр("ПометкаУдаления", Ложь);

Запрос.Текст =
"ВЫБРАТЬ
| ХранилищеДополнительнойИнформации.Ссылка
|ИЗ
| Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
|ГДЕ
| ХранилищеДополнительнойИнформации.ВидДанных = &ВидДанных
| И ХранилищеДополнительнойИнформации.ПометкаУдаления = &ПометкаУдаления";

ВыборкаФайлов = Запрос.Выполнить().выбрать();

Элементыформы.Индикатор1.МинимальноеЗначение=0;
Элементыформы.Индикатор1.МаксимальноеЗначение=ВыборкаФайлов.Количество();

cx=0;
Пока ВыборкаФайлов.Следующий() цикл
cx = cx+1;
Элементыформы.Индикатор1.Значение =cx;

НайденнаяСтрока = тз_отправленныхФото.Найти(сокрлп(ВыборкаФайлов.Ссылка.уникальныйидентификатор())+".jpg", "ИмяФайла");
Если НайденнаяСтрока = Неопределено Тогда

Если ВыборкаФайлов.Ссылка.ВидДанных=перечисления.ВидыДополнительнойИнформацииОбъектов.Файл Тогда
ОткрываемыйФайл = Новый Файл(ВыборкаФайлов.Ссылка.ИмяФайла);
Если ОткрываемыйФайл.Существует() Тогда
//ДвоичныеДанныеКартинки = Новый ДвоичныеДанные(ВыборкаФайлов.Ссылка.ИмяФайла);
//Соединение.записать(ИмяФайла,ЭлементыФормы.Ftp_сервер.Значение+"\foto\"+ВыборкаФайлов.Ссылка.уникальныйидентификатор()+".jpg");
//Соединение.записать(ИмяФайла,"\foto\"+ВыборкаФайлов.Ссылка.уникальныйидентификатор()+".jpg");
Иначе
//Сообщить("Указанный файл " + ВыборкаФайлов.Ссылка.ИмяФайла + " не существует");
КонецЕсли;
Иначе
//ДвоичныеДанныеКартинки = ВыборкаФайлов.Ссылка.Хранилище.Получить().ПолучитьДвоичныеДанные();

ДвоичныеДанныеКартинки = ВыборкаФайлов.Ссылка.Хранилище.Получить();
ИмяФайла = КВФ+сокрлп(ВыборкаФайлов.Ссылка.уникальныйидентификатор())+".jpg";
ДвоичныеДанныеКартинки.Записать(ИмяФайла);

//НайдФ = Соединение.найтиФайлы("foto",Сокрлп(ВыборкаФайлов.Ссылка.уникальныйидентификатор())+".jpg");
//Если НайдФ.Количество()=0 тогда
сообщить (ТекущаяДата());
Соединение.записать(ИмяФайла,"\foto\"+ВыборкаФайлов.Ссылка.уникальныйидентификатор()+".jpg");
сообщить ("-");