[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: Пользуемся тегами!

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

[PhoeniX]

Дык нахерища file of char??? //Сорри за выражение, привет модерам))
Просто file, и будет те Щастье.

[winsockuser]

без него вываливается с i\o error 1784

[Russruss]

и будет вываливаться все правильно )))
iret := recv(sServerListen, bigrecy, length(bigrecy), 0);
в этой строке ты читаешь данные
но сколько байт прочитать из сокета ты не задал !!!!
узнается эта цифра из функции IoctlSocket(s, ааа, Siz);
справка тебе в помощь это там есть.
р.s.
эта функция вернет чтото больше 0 если данные реально пришли
и вернет сколько именно байт пришло в противном случае ты в своем примере читаешь участок памяти в котором данных нет вообще там просто мусор.

[Casper-Hacker]

Исходник!