Проблемы и решения при передаче MP3 файлов в сетевых приложениях на Delphi и Pascal

Delphi , Интернет и Сети , Браузер

При передаче файлов MP3 в сетевых приложениях на языке программирования Delphi, разработчики могут столкнуться с рядом проблем. Одной из таких проблем является некорректная передача данных файла на сервер. В данной статье мы рассмотрим типичную проблему, связанную с передачей MP3 файлов, и предложим решение, основанное на использовании потоков данных и их корректной обработки на стороне клиента и сервера.

Описание проблемы

Разработчик столкнулся с проблемой при попытке передачи MP3 файла через сеть на сервер, где файл должен был воспроизводиться медиаплеером. Несмотря на то, что текущий код работал для строк, передача файлов осуществлялась некорректно. Проблема заключалась в неправильной отправке данных о файле, что приводило к ошибке на этапе записи потока.

Анализ кода клиента

procedure TForm1.Button1Click(Sender: TObject);
var
  MyStream: TFileStream;
  MP3: TFileName;
  Len: Int64;
begin
  MP3 := GetCurrentDir + '\Clocks.mp3';
  MyStream := TFileStream.Create(MP3, fmOpenRead);
  try
    Len := Length(MP3); // Ошибка: используется длина строки, а не размер файла
    MyStream.WriteBuffer(Len, SizeOf(Len));
    MyStream.WriteBuffer(Pointer(MP3)^, Len * SizeOf(MP3)); // Ошибка: попытка записи содержимого строки, а не файла
    // ...
  finally
    MyStream.Free;
  end;
end;

Анализ кода сервера

procedure TForm1.TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
var
  MP3: TFileName;
  Len: Int64;
begin
  // Получение сообщения от клиента
  ClientSocket.ReceiveBuf(Len, SizeOf(Len), 0);
  SetLength(MP3, Len);
  ClientSocket.ReceiveBuf(Pointer(MP3)^, Len * SizeOf(MP3), 0);
  // ...
end;

Проблема заключается в том, что клиент пытается отправить не содержимое файла, а его имя, что приводит к ошибке на этапе записи потока и не позволяет серверу корректно обработать получаемые данные.

Подтвержденное решение

Для решения проблемы необходимо использовать потоки для чтения и записи данных, а также корректно обрабатывать размер файла и его содержимое.

procedure TForm1.WriteMP3File(const aFilename: string);
var
  mData: TMemoryStream;
  mFile: TFileStream;
  mWriter: TWriter;
begin
  mData := TMemoryStream.Create;
  try
    mFile := TFileStream.Create(aFilename, fmOpenRead);
    try
      mWriter := TWriter.Create(mData);
      try
        mWriter.WriteInteger($BABE); // Заголовок пакета
        mWriter.WriteString(ExtractFileName(aFilename));
        mWriter.WriteVariant(mFile.Size);
        mWriter.FlushBuffer;
        mData.CopyFrom(mFile, mFile.Size);
      finally
        mWriter.Free;
      end;
    finally
      mFile.Free;
    end;
  finally
    mData.Position := 0;
    TcpClient1.SendStream(mData);
    mData.Free;
  end;
end;

procedure TForm1.ReadMP3File(const aMp3PlayPath: string; aStream: TStream);
var
  mReader: TReader;
  mFileData: TFileStream;
  mName: string;
  mSize: Int64;
begin
  mReader := TReader.Create(aStream);
  try
    if mReader.ReadInteger <> $BABE then
      raise Exception.Create('Invalid data package');
    mName := mReader.ReadString;
    mSize := mReader.ReadVariant;
    if mSize > 0 then
    begin
      mFileData := TFileStream.Create(aMp3PlayPath + mName, fmCreate);
      try
        mFileData.CopyFrom(aStream, mSize);
      finally
        mFileData.Free;
      end;
    end;
  finally
    mReader.Free;
    aStream.Free;
  end;
end;

Альтернативное решение

В качестве альтернативного подхода можно разделить процесс на отправку имени файла и его содержимого:

// Отправка имени файла
TcpClient1.SendBuf(MP3, Length(MP3) * SizeOf(Char));

// Отправка содержимого файла
MyStream.Position := 0;
TcpClient1.SendStream(MyStream);

На стороне сервера необходимо сначала получить имя файла, а затем его содержимое и сохранить на диске:

// Получение имени файла
ClientSocket.ReceiveBuf(Len, SizeOf(Len), 0);
SetLength(MP3, Len);
ClientSocket.ReceiveBuf(Pointer(MP3)^, Len * SizeOf(MP3), 0);

// Получение содержимого файла
var
  mFileData: TFileStream;
begin
  mFileData := TFileStream.Create(MP3, fmCreate);
  try
    TStreamCopy(MyStream, mFileData, mFile.Size);
  finally
    mFileData.Free;
  end;
end;

Заключение

При передаче файлов MP3 через сеть на Delphi важно корректно обрабатывать потоки данных, правильно определять размер файла и использовать механизмы потоковой записи и чтения. Правильное использование TWriter и TReader позволяет избежать ошибок, связанных с обработкой данных и их размером. Также, для дополнительной проверки, можно использовать отправку "магического" значения перед данными, что позволит проверить валидность пакета данных на стороне сервера.

Создано по материалам из источника по ссылке.

Проблема связана с неправильной передачей MP3 файлов в сетевых приложениях на Delphi из-за ошибок в обработке потоков и данных.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::