[winsockuser]

Всем доброго времени суток.
Возникла проблема при написании клиента на 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;

Admin: Пользуемся тегами!

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