Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

UDP + WinXP%( [D6, Win95/98, WinME, NT4, Win2k, WinXP]

anmak © (2002-10-30 17:21:00)
Ктонибудь отсылал бродкастовые UDP пакеты

код ниже под win2k пашет под WinXP нет

пашет только под 2к

------------------
............

function send(IP:PChar; APort:integer; msg:PChar):integer; stdcall;
var
addr:sockaddr_in;
SockOpt:boolean;
tmp:string;
buff:array [1..4096] of char;
sock:TSocket;
rez,i:integer;
begin
SockOpt:=true;
result:=0;
try
tmp:=msg;
for i:=1 to length(tmp) do
buff[i]:=tmp[i];
buff[i]:=#0;
// move(tmp,buff,length(tmp));
sock:=socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);
if ip="255.255.255.255" then
begin
addr.sin_addr.s_addr := INADDR_BROADCAST;
rez:=setsockopt(sock,SOL_SOCKET,SO_BROADCAST, PChar(@SockOpt),
sizeof(SockOpt));
if rez=-1 then
begin
rez:= WSAGetLastError;
// showmessage(inttostr(rez));
end;
end
else
addr.sin_addr.s_addr := inet_addr(IP);
addr.sin_family:=PF_INET;
addr.sin_port:=htons(aport);
rez:=sendto(sock, buff,sizeof(buff), 0, addr,sizeof(addr));
if rez=-1 then begin end;
winsock.closesocket(sock);
except
result:=-1;
end;
{ result:=0;
try
TSockSend.Create(msg,ip,aport);
except
result:=-1;
end;
}

end;

.........

initialization

WSAStartup($0101, WSAData);

finalization

WSACleanup;

ВидеоЛорд (2002-11-01 22:06:00) [1]
Я использую Indy. Под XP все шлется прекрасно.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »