ソス@ソスソスIdudpServer/ClientソスRソスソスソス|ソス[ソスlソスソスソスgソスフ使ソスソスソスソス
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
ソスソスソスツゑソスQソスlソスノゑソスソスソスソストゑソスソスソスソストゑソスソスワゑソスソスB
ソスソスソスン、LANソスソスノゑソスソスソスNソスソスソスソスソストゑソスソスソスPCソスソスソスソスXソスgソスノ表ソスソスソスソスソスソス¥ソスtソスgソスソス成ソスソスソストゑソスソスワゑソスソスB
ソスソスeソスヘ、ソスzソスXソスgソスソス,IPソスAソスhソスソスソスX,ソスOソスソスソス[ソスvソスソスソスネのでゑソスソスソスソスAソスソスソスフ包ソスソス@ソスニゑソスソストはソスソスbソスZソス[ソスWソスソスuソスソスソス[ソスhソスLソスソスソスXソスgソスソスソスト、ソスソスソスフソスソスbソスZソス[ソスWソスソスソスMソスソスソスソスソス邇ゥPCソスフ擾ソスソスソスヤゑソスソス謔、ソスネ仕ソスgソスンにゑソスソスソスソスソスソスニゑソスソスソスソスソストゑソスソスワゑソスソスB
ソスソスPCソスソスIPソスAソスhソスソスソスXソスAソスzソスXソスgソスソスソスフ取得ソスヘでゑソスソスソスフでゑソスソスソスソスEソスEソスB
ソス゚具ソスソスソスソスOソスソスソスソストゑソスrソスソスソスナ難ソスeソスソスソスIソスソスソスソストゑソスソスソスソスソスAソスソスソスXソスソスソスネゑソスソスソスフゑソスソスソスソスナ、ソスvソスソスソスOソスソスソスソスソスフ記ソスqソスフ仕ソスソスソスソスソスかソスソスワゑソスソスソスナゑソスソスソスソスBソスソスソスソスソスソスソストゑソスAソス謔「ソスTソスソスソスvソスソスソスソスソスネゑソスソスソスソスソスソストゑソスソスワゑソスソスB
UDPソス利用ソスソスソスソスソスAIdudpServer/ClientソスRソスソスソス|ソス[ソスlソスソスソスgソスフプソスソスソスOソスソスソスソスソスフ記ソスqソスソスiソスuソスソスソス[ソスhソスLソスソスソスXソスgソスソスソスソスAソスワゑソスソスAソスソスソスソスフ返信ソスjソスソスソスソスソスソストほゑソスソスソスソスフでゑソスソスソスソスB
ソスソスソスpソスソスソスソス齒奇ソスヘ托ソスwソスフ鯉ソスソスソスソスソスソスナ、ソスツ具ソスソスソスWin2kPro ソス{ Delphi6 Personal ソス{ IndyソスナゑソスソスB
ソスヌゑソスソスソスソスソスしソスソスソスソスソス閧「ソスソスソスワゑソスソスB
ソスIソスuソスWソスFソスNソスgソスCソスソスソスXソスyソスNソス^ソスナ以会ソスソスソスン抵ソスB
IdUDPServer1.Active := True;
IdUDPServer1.DefaultPort := 12345;
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPServer1.Broadcast('ソスソスソスワゑソスソスソスNソスソスソスニるかソスH', IdUDPServer1.Binding.Port);
end;
var
OwnReply: Boolean;
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
sMsg, sAddr: string;
SeqID: Integer;
begin
SetLength(sMsg, AData.Size);
AData.Read(sMsg[1], Length(sMsg));
Memo1.Lines.Add(ABinding.PeerIP + ' ソスソスPCソスソスソスソス "'+ sMsg +' "ソスソスソスM');
if not OwnReply then begin
OwnReply := True;
IdUDPServer1.Send(ABinding.PeerIP, ABinding.PeerPort, IdUDPServer1.LocalName +' ソスヘ起ソスソスソスニゑソスナ〜');
Memo1.Lines.Add(ABinding.PeerIP +' ソスソスPCソスソス "ソスソスソスソスヘ起ソスソスソスニゑソスナ〜" ソスソスヤ信');
end;
end;
ソスソスソス黷セソスソスソスHソスソスソスソス@ソスソスソスXソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスソスフソソス[ソスXソスソス^ソスソスソスソスソストゑソスソスソスソストみゑソスソスフでゑソスソスソスソスAソスRソスソスソスpソスCソスソスソスソスソスソス procedure IdUDPServer1UDPReadソスフとゑソスソスソスナ「ソスソスソスソス`ソスフ趣ソスソスハ子:ソスfTIdSocketHandleソスfソスvソスニエソスソスソス[ソスソスソスoソストゑソスソスワゑソスソスフでゑソスソスソスソスAソスソスソスソスソスソスソスソスソスネのでゑソスソス蛯、ソスソスソスH
ソスワゑソスソスAソスソスソスノゑソスソスソス@ソス‾ソスXソスフようソスネエソスソスソス[ソスソスソスoソストゑソスソスワゑソスソスワゑソスソスB
ソスRソスソスソスpソスCソスソスソスソスハゑソスソスソスソス゚にはどゑソスソスソスソスソスホよいソスフでゑソスソス蛯、ソスソスソスHソスソスしソスソスソスソスソス閧「ソスソスソスワゑソスソスB
ソスソスソスソス`ソスフ趣ソスソスハ子ソスGソスソスソス[ソスソスソスoソスト”ソスソスソスソスソスソスソスソスソスネのでゑソスソス蛯、ソスソスソスHソスhソスネどゑソス
ソスソスソス竄キソスソス謔、ソスナは先がソスvソスソスソスソスソスソスソスcソスソスソスネ?
TIdSocketHandleソスソスソスソス`ソスソスソスソストゑソスフは、IdSocketHandle.pas
Indyソスフバソス[ソスWソスソスソスソスソスソスソステゑソスソスフゑソスソスソスB
Delphi7ソスノ付ソスソスソスソスIndyソスナゑソスTIdSocketHandleソスヘ托ソスソスンゑソスソスワゑソスソスフで。
ソスノゑソスソスフゑソスソスソスOソスrソスソスソスさソスソスAソスソスソスXソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスソスソスソスソスナゑソスソスソスソスAソスソスソスソスIndyソスフバソス[ソスWソスソスソスソスソスソスソステゑソスソスフゑソスソスソスソスソスソスソスソスソスmソスソスワゑソスソスソスヒ。
Delphi6 + Indyソス@ソスナゑソスIndyソスフコソスソスソス|ソス[ソスlソスソスソスgソスソスUDPソスナブソスソスソス[ソスhソスLソスソスソスXソスgソスナゑソスソスネゑソスソスフでゑソスソス蛯、ソスソスソスH
ソスOソスrソスソスソスソスHソスソスソスソスフソスソスXソスフ意厄ソスソスヘ、IdSocketHandle.pasソスノ鯉ソスソスソスソスソスソスソスソスソスニゑソスソスソスソスソスソスニでゑソスソス蛯、ソスソスソスH
ソスソスソスフ環具ソスソスナは、ソスソスソスソスソスネのでゑソスソスソスソスH
ソスoソス[ソスWソスソスソスソスソスソスソスマゑソスソスニ仕ソスlソスソスRソスソスソスRソスソスソスマゑソスソスfソスソスソス轤オソスソスソスソスソスソスソスソスソスソスソスIndyソスB
Indy10ソスナは、UDPServerソスノゑソスBroadcastソスソスソス¥ソスbソスhソスソスSendソスソスソス¥ソスbソスhソスソスネゑソスソスB
Indy9ソスネゑソスAUDPServerソスソスBroadcastソスソスSendソスソスoソスソスソスソスB
Indy8ソスソスUDPServerソスナは、ソスヌゑソスソスソスソスソスソスソスソスソスソスネ?
>Indy10ソスナは、UDPServerソスノゑソスBroadcastソスソスソス¥ソスbソスhソスソスSendソスソスソス¥ソスbソスhソスソスネゑソスソスB
Indy10ソスナゑソスAUDPServerソスフ継ソスソスソスソスソスソスTIdUDPBaseソスソスBroadcastソスソスソス¥ソスbソスhソスASendソスソスソス¥ソスbソスhソスソスソスソスソス驍ゥソスソスgソスソスソスソスヒ。
>IdSocketHandle.pasソスノ鯉ソスソスソスソスソスソスソスソスソスニゑソスソスソスソスソスソスニでゑソスソス蛯、ソスソスソスH
ソスgソスpIndyソスoソス[ソスWソスソスソスソスソスソスソスsソスソスソスソスソスソスソスヌ、ソスソスソスソス`ソスGソスソスソス[ソスソスソスoソスソスネゑソスA
uses IdSocketHandle;
Indyソスニ秋ソスフ空さゑソスAソスソスソスHソスソスソスありがソスニゑソスソスソスソスソスソスソスソスワゑソスソスI
>uses IdSocketHandle;
ソスソスヌ会ソスソスソスソス驍アソスニでコソスソスソスpソスCソスソスソスソスソスハゑソスワゑソスソスソスソスB
ソスソスソスソスソスソスソスBソスBソスソスソスフアソスvソスソスソスAソスQソスツ以擾ソスヘ暦ソスソスソスソス繧ェソスソスワゑソスソスソスBソスuソスソスソス[ソスhソスLソスソスソスXソスgソスソスmソスFソスソスソスソスソスソスソスフでゑソスソスソスソスAソスEソス`ソスノゑソスPCソスソスソスソス艪オソスソスソスネゑソスソスフでゑソスソスソスソスEソスE
ソス謔「ソスソスソス@ソスソスソスソスソスソストゑソス轤ヲソスソスニゑソスソス黷オソスソスソスナゑソスソスB
ソスソスwソスフ鯉ソスソスソスソスソスソスナ難ソスソスソスmソスFソスナゑソスソスネゑソスソスフゑソスソスネ?
255.255.255.255ソスソスIPソスノ托ソスソスMソスソスソスト趣ソスソスソスソスソスPCソスノ届ゑソスソストゑソスソスソスホ、ソス皷橸ソスuソスソスソス[ソスhソスLソスソスソスXソスgソスoソスソスソストゑソスソス驍アソスニになゑソスニ思ソスソスソスソスソスヌ…
> if not OwnReply then begin
> OwnReply := True;
> IdUDPServer1.Send(ABinding.PeerIP, ABinding.PeerPort, IdUDPServer1.LocalName +' ソスヘ起ソスソスソスニゑソスナ〜');
> Memo1.Lines.Add(ABinding.PeerIP +' ソスソスPCソスソス "ソスソスソスソスヘ起ソスソスソスニゑソスナ〜" ソスソスヤ信');
end else begin
OwnReply := False;
> end;
ソスソスソスフようソスノ変更ソスソスソスネゑソスソスニ、ソスナ擾ソスソスフ1ソスだゑソスソスソスソスソスソスヤ信ソスソスソストゑソスソスソスネゑソスソスB
ソスソスソス蛯、ソスヌ搾ソスソスtソスxソスンで、ソスソスソスニに帰ソスネゑソスソストゑソスソスソスワゑソスソスソス(><;
>255.255.255.255ソスソスIPソスノ托ソスソスMソスソスソスト趣ソスソスソスソスソスPCソスノ届ゑソスソストゑソスソスソスホ、ソス皷橸ソスuソスソスソス[ソスhソスLソスソスソスXソスgソスoソスソスソストゑソスソス驍アソスニになゑソスニ思ソスソスソスソスソスヌ…
ソスソス255.255.255.255ソスフブソスソスソス[ソスhソスLソスソスソスXソスgソスAソスhソスソスソスXソスHソスヘどゑソスソスノ記ソスqソスソスソスソスラゑソスソスネゑソスナゑソスソス蛯、ソスBソスソスソス_ソスヘわかソスソスワゑソスソスソスソスADelphiソスナの記ソスqソスソスソスかソスソスワゑソスソスソスBソスB
ソスワゑソスソスAソスソスソスソスソスソスソスgソスノ届ゑソスソスソスソスソスソスソスソスナは、ソスFソスノブソスソスソス[ソスhソスLソスソスソスXソスgソスナゑソスソストゑソスソス驍ゥソスヘわかソスソスネゑソスソスフではなゑソスソスナゑソスソス蛯、ソスソスソスH
ソスQソスツ以擾ソスNソスソスソスソスソスソスソスト趣ソスソスソスソスソスソスソスソスソスソスフでゑソスソスソスソスEソスEソスB
ソスかソスソスソスソスAソスソスしソスソスソスソスソス閧「ソスソスソスワゑソスソスB
2ソスツ以擾ソスフ起ソスソスソスヘどゑソスソスソスソスソストゑソスソスソスソスソスナゑソスソス蛯、ソスソスソスH
ソス|ソス[ソスgソスヤ搾ソスソスソスマゑソスソスソスソスソスAソスtソスHソスソスソス_ソスソスハにゑソスソスト起ソスソスソスソスソスソスソスソスソス閧オソストみまゑソスソスソスソスソスソスAソスソスソスソスマりだソス゚でゑソスソスソスソスB
ソスヌゑソスソスノゑソスソスソスソスソス2ソスツ起ソスソスソスソスソスソスソスソスソスソスソスフでゑソスソスソスソスAソスソスソス@ソスヘゑソスソスソスワゑソスソスソスナゑソスソス蛯、ソスソスソスEソスE