Помогите доработать чат

[BakX]

Доброго всем времени суток.
Господа программисты помогите. Недавно начал разбирать работу с сетью в Delphi и решил написать свой чат. Все бы ничего, чат написан. Проблема в слеующем:
Я живу в общаге, следовтельно IP: 192.168.X.***(вмесо X - 4,5,6,7,8,9)
Мой чат отправляет сообщения видимые пользователям только одной маски, к примеру 192.168.6.255.


Помогите кто знает:
1) чтобы все пользователи читали общак, при этом чтобы небыло разделения на сервер и клиент;
2)отображались пользователи находящиеся в чате.


Вот моя прога:

[Квэнди]

http://programmersforum.ru/showthread.php?t=26880
в частности читайте RFC-1918

[s.Creator]

Сообщение от BakX

Помогите кто знает:
1) чтобы все пользователи читали общак, при этом чтобы небыло разделения на сервер и клиент;
2)отображались пользователи находящиеся в чате.

используй широковещательные UDP пакеты

[Квэнди]

Сообщение от s.Creator

используй широковещательные UDP пакеты

если вы имеете ввиду просто UDP то это ничего не решает. Если вы имеете ввиду multicast, то далеко не везде он пройдет, и не факт что дойдет до адресата, хотя, безусловно, это решение

[s.Creator]

Сообщение от Квэнди

если вы имеете ввиду просто UDP то это ничего не решает. Если вы имеете ввиду multicast, то далеко не везде он пройдет, и не факт что дойдет до адресата, хотя, безусловно, это решение

multicast (или broadcast), думаю для сети общежития вполне подойдет
можно конечно еще предпринять меры по поводу потери пакетов.
где то в инете встречал примеры внутресетевых чатов на UDP

[BakX]

Квэнди
Я прочел эти статьи, но не совсем понял как мне они помогут решить проблему...

s.Creator
Я с сетью в Delphi только начинаю общаться, поэтому multicast и broadcast. Если я правильно понял то они рассылают сообщения на все Ip в сети по очереди, но разве тогда не будет ее засорения?

В данный момоент в моем чате общаются только 192.168.6.***

[Квэнди]

значит вы плохо прочитали.
ответье на вопрос что есть 192.168.0.0 255.255.0.0 ?

[BakX]

Сообщение от Квэнди

значит вы плохо прочитали.
ответье на вопрос что есть 192.168.0.0 255.255.0.0 ?

1 - IP; 2 - DNS; и какой вывод? Как мне через UDP использовать их.


Я пробовал перебором, но ничегл не выходит.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
a:string;
begin
If not(edit1.Text='') then begin
a:=edit1.Text;
IdUDPClient1.Send('<'+Edit2.Text+'> '+' : '+a);
//Edit1.Text:='';
end
else begin
showmessage('Напишите сообщение');
End;
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);

var
StringFormatedStream:TStringStream; s: String;
begin
StringFormatedStream:= TStringStream.Create('');
StringFormatedStream.CopyFrom(AData , AData.Size);
Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s [1], Length(s));
StringFormatedStream.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=4 to 9 do begin
IdUDPClient1.Active:=false;
IdUDPClient1.Host:='192.168.'+intto str(i)+'.255';
IdUDPClient1.Active:=true;
SpeedButton1Click(Sender);
end;
Edit1.Text:='';
end;

Можно конечно попробовать сначала пропинговать, затем отсылать сообщение в цикле на каждый найденный IP. Я считаю это не выгодно: неизвестно запущена ли прога на данном IP => засоряется сеть... Как быть тогда.

[s.Creator]

http://www.delphisources.ru/files/so...year/i_net.zip