VPF::WinSock, передача файлов, клиент пишет в два раза

winsockuser

Дата 18.5.2009, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 18.5.2009

Репутация: нет
Всего: нет

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

    ...

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

Это сообщение отредактировал(а) winsockuser - 18.5.2009, 21:38

Matematik

Дата 18.5.2009, 23:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

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

)

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

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

Это сообщение отредактировал(а) Matematik - 18.5.2009, 23:31

dvamaster

Дата 19.5.2009, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 2
Всего: 10

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

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »