VPF::что не так? передача через WinSock

v1m

Дата 19.6.2010, 21:31 (ссылка)

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

Загрузка ...

v1mka

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

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

Сабж.

Код

uses
  SysUtils,windows,winsock2;
const
  SVersion = $0101;
  SPort = 27000;

var
  WSData : TWSAData;
  CSocket : TSocket;
  address : PSockAddr;

  Procedure IfError(error : longint);
  begin
    if error<>0 then begin Writeln('> Error code: ',error); readln; halt(0); end;
  end;

begin
  IfError(WSAStartup(SVersion,WSData));
  CSocket:=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
  if GetLastError<>0 then writeln('> Error code: ',GetLastError);
  address.sin_family:=PF_INET;
  address.sin_addr.S_addr:=INADDR_ANY;
  address.sin_port:=htons(SPort);
  FillChar(address.sin_zero,sizeof(address.sin_zero),0);
  IfError(connect(CSocket,address,SIZEOF(address)));
  send(CSocket,$FF,1,0); //я не очень понял как отправлять?
  IfError(closesocket(CSocket));
  IfError(WSACleanup);
  readln;
end.

<_<

dvamaster

Дата 21.6.2010, 12:40 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(v1m @ 20.6.2010, 00:31

)

send(CSocket,$FF,1,0); //я не очень понял как отправлять?

$FF - на этом месте должна быть указана переменная с данными
1 - это длинна передаваемых данных

Код


var
  b: Byte;
...
  b := $FF;
  send(CSocket, b, 1, 0) // передаем 1 байт содержащий $FF с длинной 1 байт м флагом 0
...

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

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

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

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

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

v1m

Дата 22.6.2010, 10:58 (ссылка)

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

Загрузка ...

v1mka

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

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

сор) я тут уже разобрался в отправке у меня теперь проблема другая
странно изменил версию winsock-а с 2.2 на 1.1 и все заработало))

Код

{$APPTYPE CONSOLE}
uses
  windows,winsock;
const
  SVersion = $0101;
  SPort = 12345;

var
  WSData : TWSAData;
  CSocket : TSocket;
  address : TSockAddr;
  buf : string;

  Procedure IfError(error : longint);
  begin
    if error=-1 then begin error:=GetLastError; Writeln('> Error code: ',error); readln; halt(1); end;
  end;

begin
  IfError(WSAStartup(SVersion,WSData));
  CSocket:=socket(AF_INET,SOCK_DGRAM,0);
  IfError(CSocket); 
  address.sin_family:=aF_INET;
  address.sin_addr.S_addr:=inet_addr('127.0.0.1');
  address.sin_port:=htons(SPort);
  buf:='hello';
  IfError(sendto(CSocket,buf[1],length(buf),0,address,SIZEOF(address)));
  closesocket(CSocket);
  WSACleanup;
end.

обьясните в чем дело user posted image

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