Witajcie !!
mam takie oto pytanko:
jak wysylac i odbierac wiadomosci (nie kodowane, kodowaniem zajme sie potem ;P) przez protokol UDP z roznymi nagłowkami, jak rozrozniac te wiadomosici, jak pobrac adres ip z ktorego przyszly, i jak odpowiednio reagowac na wiadomosc z damym naglowkiem (oczywiscie wszystko bazuje na "Broadcast")
prosze o przyklady, bylbym tez wdzieczny za udostepnienie mi materialow na temat tego protokolu (z zastosowaniem go w delphi).
Z gory dziekuje za pomoc ;]
mmmmmmm sam sobie porób nagłówki............. i wysyłaj co tylko chcesz.......
np. zrób sobie procedurke która by wysyłała ci np tak informacje:
procedure Wyslij(Naglowek1,Naglowek2,Tekst:String; Port:Integer)
begin
UDPClient.Broadcast(Naglowek1+'|'+Naglowek2+'|'+Tekst, Port);
end;
bardzo proste :)))))
a poźniej np jak odbierasz tekst to robisz:
procedure TMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
Buffor:Array[0..1023] of Char;
Rec, Naglowek1, Naglowek2, Tekst:String;
begin
AData.Read(Buffor,SizeOf(Buffor));
Rec:=Buffor;
Naglowek1:=Copy(Rec,1,Pos('|',Rec)-1);
Delete(Rec,1,Pos('|',Rec));
Naglowek2:=Copy(Rec,1,Pos('|',Rec)-1);
Delete(Rec,1,Pos('|',Rec));
Tekst:=Rec;
if Naglowek1='cos tam' then...........
end;
[browar]