Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.12.30;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.54 MB
Время: 0.029 c
6-99221
JC
2002-10-15 23:56
2002.12.30
Где можно найти пример


1-99053
tolik2003
2002-12-19 11:15
2002.12.30
закачка файла в инет и скачивание его оттуда


3-99021
Виталий Панасенко
2002-12-10 17:32
2002.12.30
DBGridEh


4-99420
Dimon14
2002-11-15 02:51
2002.12.30
Как отследить изменение битовой матрицы, например какя то часть д


14-99328
Anatoly Podgoretsky
2002-12-10 07:36
2002.12.30
Именинники 10 декабря





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский