ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

KKE 2006/03/01(ｿｽｿｽ) 12:18:56

ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ。KKEｿｽﾆ申ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽAUPnPｿｽﾌテｿｽXｿｽgｿｽｿｽｿｽｿｽ謔､ｿｽﾆ思ｿｽｿｽｿｽAUDPｿｽ¥ｿｽPｿｽbｿｽgｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽgｿｽpｿｽｿｽｿｽﾄ、
ｿｽ}ｿｽｿｽｿｽ`ｿｽLｿｽｿｽｿｽXｿｽgｿｽAｿｽhｿｽｿｽｿｽX239.255.255.250:1900ｿｽﾉ対ゑｿｽｿｽﾄデｿｽ[ｿｽ^ｿｽ送信ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽﾇのようｿｽﾉ托ｿｽｿｽMｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAUDPｿｽ¥ｿｽPｿｽbｿｽgｿｽﾌ使ｿｽpｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾔでゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽﾎ、ｿｽﾇなゑｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽRｿｽ[ｿｽhｿｽ頂ゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽQｿｽlURLｿｽﾈどでゑｿｽ¥ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽﾆ、ｿｽoｿｽｿｽｿｽｿｽﾎデｿｽ[ｿｽ^ｿｽｿｽMｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ幸ｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾅゑｿｽ 2006/03/01(ｿｽｿｽ) 13:40:36

TIdIPMCastServerｿｽｿｽgｿｽｿｽｿｽﾎ簡単ｿｽB

KKE 2006/03/01(ｿｽｿｽ) 14:53:11

ｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽpｿｽPｿｽbｿｽgｿｽAｿｽiｿｽｿｽｿｽCｿｽUｿｽ[ｿｽ¥ｿｽtｿｽgｿｽﾅ鯉ｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽｿｽｿｽMｿｽﾍ出ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽxｿｽﾍ、ｿｽｿｽMｿｽﾌ場合ｿｽﾍどのようｿｽﾉゑｿｽｿｽｿｽﾎゑｿｽしｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽcｿｽH
ｿｽpｿｽPｿｽbｿｽgｿｽAｿｽiｿｽｿｽｿｽCｿｽUｿｽ[ｿｽﾅはｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽ`ｿｽ`ｿｽﾌようｿｽﾈデｿｽ[ｿｽ^ｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆは包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾛにプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽﾅはどのようｿｽﾉ趣ｿｽMｿｽｿｽｿｽｿｽﾎゑｿｽしｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾗてはみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽﾆ包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

KKE 2006/03/01(ｿｽｿｽ) 23:56:48

ｿｽﾇ記ｿｽﾈのでゑｿｽｿｽｿｽｿｽATIdIPMCastClientｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽ
MulticastGroupｿｽｿｽPortｿｽｿｽTIdIPMCastServerｿｽﾆ難ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
IPMCastReadｿｽCｿｽxｿｽｿｽｿｽgｿｽﾍ費ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ{ｿｽIｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽｿｽｿｽLｿｽﾉコｿｽ[ｿｽhｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB


procedure TForm1.Button1Click(Sender: TObject);
begin
IdIPMCastServer1.MulticastGroup := '239.255.255.250';
IdIPMCastServer1.Port := 1900;
IdIPMCastServer1.Active := True;
IdIPMCastServer1.Send('M-SEARCH * HTTP/1.1'#13#10'MX: 3'#13#10'HOST: 239.255.255.250:1900'#13#10'MAN: "ssdp:discover"'#13#10'ST: urn:schemas-upnp-org:service:WANIPConnection:1'#13#10#13#10);
IdIPMCastServer1.Active := False;
end;

procedure TForm1.IdIPMCastClient1IPMCastRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
begin
// ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾊ知ｿｽﾌゑｿｽ
Memo1.Lines.Add('Receive');
end;

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ