[by_trojan]

Возникает проблема при передачи файла, он оказывается битым(передаю txt)

Клиент(передает файл серверу)

Код:

var
l:^Byte;
Rtext: string; // Принятый текст
Name: string; // Имя файла
Size: integer; // Размер файла
Receive: boolean; // Режим клиента
MS: TMemoryStream; // Буфер для файла

procedure transfer(files:string);
begin
  MS := TMemoryStream.Create; // Создаём буфер для файла
  MS.LoadFromFile(files); // Загружаем файл в буфер
  // Посылаем информацию о файл (команда # название # размер)
  Form1.ClientSocket1.Socket.SendText('file#'+files+'#'+IntToStr(MS.Size)+'#');
  MS.Position := 0; // Переводим каретку в начало файла
  l := MS.Memory; // Загружаем в переменную "l" файл
  Size := Form1.ClientSocket1.Socket.SendBuf(l^, MS.Size); // Посылаем файл
end;

Сервер(принимает файл)

Код:

var
  MS: TMemoryStream; // Буфер для файла
  Size: integer;
  P: ^Byte;
  Rtext: string; // Принятый текст

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Rtext := Socket.ReceiveText;
if Receive then // Если клиент в режиме приёма файла, то...
   Writing(RText) // Записываем данные в буфер
      else // Если клиент не в режиме приёма файла, то...
           if Copy(Rtext, 0, Pos('#', Rtext) -1) = 'file' then // Если это файл, то...
               begin
                    MS := TMemoryStream.Create; // Создаём буфер для файла
                    Delete(Rtext, 1, Pos('#', Rtext)); // Определяем имя файла
                    Name := Copy(Rtext, 0, Pos('#', Rtext) -1); // Определяем имя файла
                    Delete(Rtext, 1, Pos('#', Rtext)); // Определяем размер файла
                    Size := StrToInt(Copy(Rtext, 0, Pos('#', Rtext) -1)); // Определяем размер файла
                    Delete(Rtext, 1, Pos('#', Rtext)); // Удаляем последний разделитель
                    Receive := true; // Переводим сервер в режим приёма файла
                    Writing(RText); // Записываем данные в буфер
                    //Memo1.Lines.Add('[ '+DateToStr(today)+' '+TimeToStr(today)+'] '+'Размер файла: '+IntToStr(Size)+' байт'+' Имя файла: '+Name);
                end;

end;
procedure TForm1.Writing(Text: string);
begin
if MS.Size < Size then // Если принято байт меньше размера файла, то...
     MS.Write(Text[1], Length(Text)); // Записываем в буфер
     ProgressBar1.Position := MS.Size*100 div Size; // Выводим прогресс закачки файла
     //Memo1.Lines.Add('[ '+DateToStr(today)+' '+TimeToStr(today)+'] '+'Принято '+IntToStr(MS.Size)+' из '+IntToStr(Size));
        if MS.Size = Size then // Если файл принят, то...
           begin
                 Receive := false; // Переводим клиента в нормальный режим
                 MS.Position := 0; // Переводим каретку в начало буфера
                 MS.SaveToFile('Download/'+ExtractFileName (Name)); // Сохраняем файл
                 ServerSocket1.Socket.Connections[0].SendText('end'); // Посылаем команду "end", то есть файл принят
                 MS.Free; // Убиваем буфер
                 //Memo1.Lines.Add('[ '+DateToStr(today)+' '+TimeToStr(today)+'] '+'Файл принят');
            end;
end;