Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.12.2015, 02:37   #1
rachina
Пользователь
 
Регистрация: 15.03.2015
Сообщений: 27
По умолчанию FTP. лишние байты при отправке файлов

доброго времени суток!
помогите, пожалуйста, с одной проблемой.
отправляю файлы серверу, всё хорошо, отправляет, но где-то добавляет к ним лишние байты (вроде, 4). в следствие чего файлы становятся недоступны (кроме текстовых, конечно. там просто лишние закорючки появляются и всё).
чуть ниже прикрепил код программы:


Код:
procedure TForm1.Button2Click(Sender: TObject);
  var FileStream: TFileStream;
  len: DWORD; servmes,path : string;
  filka: string;
begin
  OpenDialog1.Execute;
  filka:=OpenDialog1.FileName;
  path:= extractfilename(OpenDialog1.FileName);
  FileStream:=TFileStream.Create(filka, fmOpenRead);
   ClientSocket1.Socket.SendText('PASV ' + #13#10);              //a*256+b   порт
passiv:= True;
sleep(100);
   servmes:= ClientSocket1.Socket.ReceiveText;
   servmes:= Trim(servmes);
  if passiv then begin
  PortX(servmes);  passiv:= False;
   ClientSocket2.ClientType:= ctBlocking;
   ClientSocket2.Open;  end;
  ClientSocket1.Socket.SendText('STOR '+ path + #13#10);
  try
    len:=FileStream.Size;
    ClientSocket2.Socket.SendBuf(len, SizeOf(len));
    ClientSocket2.Socket.SendStream(FileStream);
  except
    FileStream.Free;
    ClientSocket2.Close;
  end;
end;
rachina вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибки при отправке файла. FTP 425 No data connection Qwarri Windows 2 16.08.2015 23:14
Ошибка при отправке запросов Nugrom Общие вопросы Delphi 12 18.10.2014 17:22
Кодировка при отправке запроса Voody Работа с сетью в Delphi 4 16.12.2009 12:26
ошибка при отправке D_E_N Работа с сетью в Delphi 11 01.11.2009 00:41
Многопоточность при отправке почты sanchopansa Работа с сетью в Delphi 4 04.10.2008 14:57