UDP протокол

[alex081993]

Народ, такой вопрос. Может есть у кого-то/видел/находил чат в виде клиент-сервер, который был реализован через UDP-протокол? без использования стандартных компонентов.

[Stilet]

без использования стандартных компонентов.

Тоесть на WinAPI c SOCK_DGRAM?

[alex081993]

Сообщение от Stilet

Тоесть на WinAPI c SOCK_DGRAM?

да, с подключение библиотеки, т.е. без использования Indy компонентов...

[Stilet]

Хм... Вообще-то у меня ТСР есть на сокетах, но... попробую его подогнать под UDP. Неточности могут быть но хотя бы подскажу куда смотреть:

begin
 SocketHandle:=socket(AF_INET,SOCK_DGRAM,0);

 if SocketHandle<0 then
  begin Error:='client socket:Ошибка создания сокета '+IntToStr(socketerror)+' '+SysErrorMessage(GetLastOSError);
 end else

 if connect(SocketHandle,@ServHandle,sizeof(ServHandle))=-1 then  begin
    Error:='client Connect: Ошибка коннекта '+IntToStr(socketerror)+' '+SysErrorMessage(GetLastOSError);  
 end else
 if send(SocketHandle,mem,mSize,0)=-1 then begin
    Error:='client Send data: Ошибка передачи данных '+IntToStr(socketerror)+' '+SysErrorMessage(GetLastOSError); 
 end

// Если надо закрыть канал CloseSocket(SocketHandle);

end;

Здесь:
mem - Массив посылаемых байтов.
mSize - его размер
Библиотека winsock кажись. Я правда не помню как она в Делфи называется точно. Winsock2 по-моему

Теперь сервер:

  ServHandle.sin_addr.s_addr:=INADDR_ANY;
  ServHandle.sin_family:=AF_INET;
  ServHandle.sin_port:=htons(Port);
  ServHandleSize:=SizeOf(ServHandle);

  SocketHandle:=socket(AF_INET,SOCK_DGRAM,0);

  if SocketHandle=-1 then 
begin Error:=' Ошибка создания сокета '+IntToStr(socketerror)+' '+SysErrorMessage(GetLastOSError);

  if bind(SocketHandle,@ServHandle,sizeof(ServHandle))=-1 then 
begin Error:='Server: Ошибка связывания сокета '+IntToStr(socketerror)+' '+SysErrorMessage(GetLastOSError);



  while true do begin
    Fillchar(buff,SizeOf(buff),0);
    sLen=sizeof(ServHandle);
    if recvfrom(SocketHandle,buff,sizeof(buff),0,ServHandle,sLen)<>-1 then begin
     В буффере данные
    end;
  end;
  closesocket(ServHandle);
  end;

где buf:array[1..1024] of byte;
ServHandle - sockaddr_in

Вроде бы так.
Еще раз акцентирую что это с потолка.

[Slym]

SOCK_DGRAM не нужен connect, можно сразу send

[Stilet]

Ну может быть. говорю же - с потолка.

[alex081993]

В принципе немного разобрался, как что, вроде написал для клиента приложение. В течении недели постараюсь сервер написать (как смогу), если не будет получаться, обращусь к вам)

[Stilet]

Угу. Создашь тему на форуме.
Одна голова хорошо - а много: Змей Горыныч )

[alex081993]

Народ, возник такой вопрос. Как определить размер получаемого сообщения в function RecvFrom(S:TSocket;var Buf;Len,Flags:Integer;
var From:TSockAddr;var FromLen:Integer):Integer;; вот в этом месте buf.
Посылаю от клиента сообщение. Это получается и будет размер сообщения.
Ну и также в отсылке этого сообщения в серверу какой там размер указывать.
З.Ы. написал очень коряво, не ругайте)

[Lardes]

Посмотрите этот исходник