Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 01.12.2015, 03:37   #1
rachina
Пользователь
 
Регистрация: 15.03.2015
Сообщений: 27
Репутация: 10
По умолчанию 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


22:44.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.