Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > WinSock, передача файлов, клиент пишет в два раза

Автор: winsockuser 18.5.2009, 21:37

Всем доброго времени суток.
Возникла проблема при написании клиента на delphi 2009 для получения файлов. Цель - получить от сервера файл(не текст, как правило приложение\мп3). Сам сервер написан на перле и гарантированно работает, проверено никсовым клиентом на том же перле. Обязательна реализация на WinSock, никакие иные сетевые компоненты неприемлемы. Пытаюсь использовать следующий код:

Код

      

       ....

       // outy - хендл файла, в который надо произвести запись,
       // открытый через AssignFile и ReWrite. тип - file of char

      while (iret<>0) do
      begin
        iret := recv(sServerListen, bigrecy, length(bigrecy), 0);

      iRet := 1;
      while (iRet<>0) do
      begin
        iRet := Recv(sServerListen, BigRecy, length(BigRecy), 0);
        if (iRet = 0) then
         break;
        BlockWrite(outy, bigrecy, iret, counter);
      end;

      close (Outy);
      Stringy := '';
    end;

    ...

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

Автор: Matematik 18.5.2009, 23:25

Цитата(winsockuser @ 18.5.2009, 21:37

)

пишется непонятно что в совершенно невнятной кодировке наравне с нормальными данными

Насечет этого ничего не скажу.
Есть двазамечания:
Зачем два цикла?
+
Recv() возвращает кол-во прочитанных байт
или 0 (ноль) - если соединение закрыто
или SOCKET_ERROR при ошибке
т.е. проверки if (iRet = 0) then недостаточно

Автор: dvamaster 19.5.2009, 13:43

Delphi 2009 использует кодировку Unicode, тип Char для передачи байтовых данных неприменим, используй AnsiChar