создание и отправка udp пакета в delphi

Log('Socket: ' + IntToStr(Sock));

Log('error: can''t bind socket on port');

if bind(Sock, ServerAddr, SizeOf(ServerAddr)) <> 0 then

ServerAddr.sin_port := htons(DEFAULT_PORT_IN);

ServerAddr.sin_family := AF_INET;

Log('error: can''t create socket object');

Sock := socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP);

log('MaxSize UDP : ' + IntToStr(Wdata.iMaxUdpDg));

log('MaxSockets : ' + IntToStr(WData.iMaxSockets));

log('Description : ' + WData.szDescription);

if WSAStartup($0101, wData) = 0 then

TBuffer = array [0..BUF_SIZE - 1] of Byte;

TNetIP = array [0..3] of Byte;

Открываю порт так:

Стоит задача отправлять UDP пакеты с жестко заданного порта, ессно при условии что он свободен. Используется WinSock + Delphi.

Постоялец 9 янв. 201219:32

Отправить пакет с указанного порта

/ / / Отправить пакет с указанного порта

Программирование игр, создание игрового движка, OpenGL, DirectX, физика, форум

Отправить пакет с указанного порта / Форум / Программирование игр / GameDev.ru Разработка игр