Пишу чат на UDP (помогите дописать)

[Mars2107]

Все набросал как нужно, отправляет куда нужно. Встал вопрос о проверки дохода дейтаграмм до получателя, если не дошла, то отсылаем запрос на повторную отправку. Думаю лучше всего сделать через TimeStamp проверку. Как с этим работать не знаю, помогите ребята

Делал проверку другим способом, отправкой сообщения об посылке и обратно что пришло сообщение, но это лишняя нагрузка на канал. Нужно через саму дейтаграмму.


_____
Удалил вложенный файл с заражённым EXE

модератор

[Slym]

1. Зачем столько (четыре!) UDP сокета? хватает одного IdUDPServer (по секрету сервер и посылать умеет IdUDPServer1.Send(...)
2. два таймера и никчемный поток...
это не дописывать, переделайте все за мной

[Mars2107]

Как вы и сказали убрал все лишнее. Все эти компоненты и код были моими тщетными попытками реализации проверки датаграмм.

У вас есть идеи как сделать оптимально проверку?

Чат1(исходник).zip

___________
я пересобрал архив, удалив из него заражённый Project1.exe
Лечите вирус (Virus.Win32.Induc.b) на своём компьютере!!

Модератор

[Slym]

подтвердить приемку можно только ответным сообщением...
Опять exeшник упаковал в архив! на экзешник ругается антивирь (win32.Induc) и гасит весь архив, нормально не скачать! перезалей и полечи компутер свой

[Mars2107]

Благодарю за совет, сам его не заметил. Все почистил, удалил. Отчёт VT только все равно одна бяка осталась. Но серьезного в ней нету.

Ув. Slym могли бы вы взглянуть на мой исходный код (ниже прикреплен), где я сделал проверку прихода сообщений и сказать, так ли вы имели ввиду? И если можно обойтись без лишних подтверждений и нагрузки на канал, можно ли еще проще сделать, чтобы избежать этого: отправил запрос, что сообщение послал и ждешь обратного запроса что пришло сообщение.

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

Допустим: 1клиент(1к) отправил сообщение 2к и если второй клиент получил его то отправляет отчет 1к, если 2к ничего не получил, то не отправляет ничего и в этом случае 1к ждет отчета, но через n секунд понимая, что обратного запроса нет, выдает сообщение о недоставке.

Вроде всю мысль изложил, поправте если где ошибаюсь пжл.

[alextrof94]

Секунды - слишком долго. Udp вроде посылает данные по частям по N байт (8 вроде), доставку и целостность каждого пакета надо проверять. Затем клиент эти пакеты должен собрать и обработать. Сам могу ошибаться.
Более того Udp может и вовсе не посылать клиенту пакеты, т.е. посылать их в пустоту и это тоже надо проверять теми же обратными сообщениями.

[Slym]

я бы делал так.
1. Очередь сообщений:
можно обычной TStringList для начала, но доп вкусности там сложно хранить.
а хранить надо iport, IDсообщения (случайная величина при старте приложения потом +случайный x для каждого сообщения), таймаут подтверждения, само сообщение. так что сразу бадяжим record

псевдокод (дельфи под рукой нет)

type
TMessage=record
  ID:integer;
  PeerIP:string;
  PeerPort:word;
  TimeOut:integer;
  Data:string;
end;

PUDPMsg=^TUDPMsg;
TUDPMsg=packed record
  MsgType:word;
  ID:integer;
  Data:array[0..0] of byte;
end;

var RndID=random(maxint);

procedure SendMessage(PeerIP,PeerPort,Msg);
var Message:TMessage;
begin
Inc(RndID,1+random(32));
Messages.id:=RndID;
Messages.PeerIP:=PeerIP;
Messages.PeerPort:=PeerPort;
Messages.TimeOut:=3000;
Message.Data:=Msg;
Messages.add(Message);
end;

procedure TimerOnTimer;
var UDPMsg:PUDPMsg;
UDPMsgLength:integer;
begin
  for i:=0 to Messages.Count-1 do
  begin
    if(Messages[i].TimeOut<=0) then
    begin
      Messages.delete(i);
      Log.add('message delivery failed');
    end;
    //нужно сформировать посылку
    UDPMsgLength:=SizeOf(UDPMsg.MsgType)+SizeOf(UDPMsg.ID)+length(Message[i].Data);
    GetMem(UDPMsg,UDPMsgLength);
    UDPMsg.MsgType:=TypeMsgSend;
    UDPMsg.id:=Messages[i].id;
    move(UDPMsg.Data,Messages[i].Data,length(Messages[i].Data));


    Udp.Send(Messages[i].PeerIP,Messages[i].PeerPort,UDPMsg,UDPMsgLength);
    FreeMem(UDPMsg);
    dec(Messages[i].TimeOut,1000);
  end;
end;

procedure UDPOnRead;
var Msg:PUDPMsg;
UDPMsgLength:integer;
begin
  Msg:=ParsePacket(stream);//лень писать
  case Msg.TypeMsg of
    TypeMsgSend: Log.add('message '+Msg.Data);Udp.Send(PeerIP,PeerPort,TypeMsgConfirm+Msg.id);
    TypeMsgConfirm: Log.add('message delivered');Messages.DeleteMsgByID(Msg.id);
  end;
end;

заметь никаких потоков! UDP не блокирует (или я не нарывался?) сокет.

[Mars2107]

Немногое я отсюда понял, но куда это все вставлять? (я не так давно занимаюсь программированием)

var RndID=random(maxint);

на это ругается, вместо "=" ставлю ":" все равно ругается.

Потом вставляю процедуру

procedure SendMessage(PeerIP,PeerPort,Msg);

тоже ругается а дальше просто ничего не понял. Если не затруднит, можете вставить это в pas файл который в моем примере.

[alextrof94]

Если недавно пишешь программы, зачем лезть в UDP? Юзай TCP и отправку строк, tcp все проверки сделает за тебя.

[Slym]

Держи...
как-то так