Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.30;
Скачать: CL | DM;

Вниз

UDP + WinXP%(   Найти похожие ветки 

 
anmak ©   (2002-10-30 17:21) [0]

Ктонибудь отсылал бродкастовые 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) [1]

Я использую Indy. Под XP все шлется прекрасно.



Страницы: 1 вся ветка

Текущий архив: 2002.12.30;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
4-99418
AquaSun1
2002-11-09 03:15
2002.12.30
Небольшая проблемка


6-99231
Slym
2002-11-01 06:30
2002.12.30
IP2MAC


7-99384
wildcow
2002-10-24 15:50
2002.12.30
Расшаренный XML


6-99219
Hlor
2002-11-02 01:19
2002.12.30
Вопрос с сокетами


14-99273
Andrey V.
2002-12-06 20:32
2002.12.30
Хочу работать с dbf(или db) без bde