VPF::Отсылка данных - Форум программистов

XSInet

Дата 13.2.2006, 20:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте, у меня проблема.
Подскажите где в коде ошибка ? Пишу программы Клиент - Сервер.

Клиент отсылает серверу данные(string) - всё нормально, сервер коректно их принимает.
Сервер посылает данные клиенту - клиент как то некоректно их принимает.

Помогите пожалуйста ! Срочно !

Вот код:

Сервер:

Код


program Serv;

{$APPTYPE CONSOLE}

uses
  Windows,
  Winsock2,
  SysUtils;

var
 WSA : TWsaData;
 OldSock, NewSock : TSocket;
 Server, NewServ : TSockaddrin;
 _OK : string[2] = 'OK';
 _NO : string[5] = 'Error';
 Len : Integer;
 DATA : string;

label Exit;

begin
Write('Initializing Ws2_32.dll...   ');
 if WSAStartup(MAKEWORD(2, 2), WSA) = 0 then Writeln(_OK)
  else
   begin
    Writeln(_NO);
    goto Exit;
   end;

Write('Creating socket...   ');
 OldSock := socket(AF_INET, SOCK_STREAM, 0);
 if OldSock <> 0 then Writeln(_OK)
  else
   begin
     Writeln(_NO);
     goto Exit;
   end;

Server.sin_family := AF_INET;
Server.sin_addr.S_addr := INADDR_ANY;
Server.sin_port := htons(777);
bind(OldSock, @Server, sizeof(TSockaddrin));

Writeln('Listening socket...');
listen(OldSock, 5);

Len := sizeof(TSockaddrin);
NewSock := accept(OldSock, NewServ, Len);

Writeln;
Writeln('Client connected');

DATA := 'Windows XP Professional Edition SP2';
send(NewSock, DATA, sizeof(DATA), 0);

{... Остальной код ...}
{Выход}
Exit:
 Readln;
end.

Клиент:

Код


program Client;

{$APPTYPE CONSOLE}

uses
  Windows,
  Winsock2,
  SysUtils;

var
  WSA : TWsaData;
  Sock : TSocket;
  Ser : Tsockaddrin;
  Res : String[150];

label Connect_;

begin

 WSAStartup(MAKEWORD(2, 2), Wsa);

 Sock := socket(AF_INET, SOCK_STREAM, 0);
 Ser.sin_family := AF_INET;
 Ser.sin_addr.s_addr := inet_addr('127.0.0.1');
 Ser.sin_port := htons(777);

Connect_:
 if connect(Sock, @Ser, sizeof(Ser)) = (-1) then
  begin
    Sleep(7000); 
    goto Connect_;
  end;

 recv(Sock, Res, sizeof(Res), 0);
 Write(Res);

 Readln;
end.

Snowy

Дата 13.2.2006, 21:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Потому что send и recv так импортированы.
Они должны принимать не указатель, как в MSDN, а буфер.
Соответственно в твоем коде нужно поправить:

Код


send(NewSock, DATA[1], Length(DATA), 0);
  // и
  FillChar(Res[1], Length(Res), 0);
  recv(Sock, Res[1], Length(Res), 0);
  Write(PChar(Res));

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