Скопировать и послать udp-пакет

[Riply]

Есть сервер игры, который в ответ на событие отсылает пользователю определённый udp-пакет. Я попытался этот пакет отснифирить программой Wireshark, надеюсь, это то что мне нужно.
Таким образом, имеется отсниференный программой Wireshark udp-пакет:

Вопрос, как сделать чтобы пакет отправлялся в таком же виде на нужный адрес, эмитируя таким образом отправку пакета сервером.
Подойдёт ли как вариант решения данный кусок чата? Или что нужно добавить/изменить? Спасибо.

procedure TMainForm.FormCreate(Sender: TObject);
var
 s: string;
begin
  // здесь мы просим ввести IP адрес, по умолчанию стоит "localhost", так что если
  // мы ни чего не введем, то прогрмма будет общаться сама с сабой, ну а если
  // введем, то неплохобы позаботится о наличии на удаленном компьютере
  // запущенной копии нашей программы, для проверки работоспособности
  if InputQuery('Программа-пример по UDP',
  'Введите IP адрес удаленной машины, иначе будете разговаривать сами с сабой :)',s)=true then
  UDPClient.Host:=s;
end;

procedure TMainForm.SendBtnClick(Sender: TObject);
begin
  // здесь просто отправляем текстовое сообщение
  UDPClient.Send('text'+SendEdit.Text);
  SendEdit.Clear;
end;
end.

[Kotofff]

Для подобного рода вопросов есть раздел "Работа с сетью в Delphi" !!!

[Квэнди]

Вопрос, как сделать чтобы пакет отправлялся в таком же виде на нужный адрес, эмитируя таким образом отправку пакета сервером.

Для начала подучить теорию. В udp нет пакетов, есть датаграммы. (разница на самом деле большая)
А в целом способ элементарен. Эмулируйте набор необходимых данных в tstream-подобной структуре, а потом её отправляйте да хоть с помощью idudpXXX

[Riply]

Извините, я начинающий в программировании, каким методом лучше воспользоваться, если я вообще на верном пути:

IdUDPServer1.Send(AHost: String; const APort: Integer; const AData: String);

IdUDPServer1.SendBuffer(AHost: String; const APort: Integer; var ABuffer; const AByteCount: Integer);

И что теперь прописывать в AData в первом случае или в ABuffer во втором?
Имею ввиду пример присваивания моего потока.

[Квэнди]

ABuffer должен содержать поток необходимых вам символов в hex-е.

[Riply]

Оно?

procedure HexToStream(Hex: string; Buf: TStream);

[Riply]

Квэнди, спасибо за подсказки. Немного глупый вопрос как правильно занести hex-строку в массив и правильно ли я заношу его в поток? Просто нет пока возможности тестировать. Так?

const
St: TStream;
begin
St : array [0..89] of Char = (00,14,d1,62,e4,2d,00,80,48,32,ee,d9,08,00,45,00,00,4c,16,da,00,00,80,11,7d,e5,c0,a8,0a,65,cf,26,0b,ae,08,ff,6c,fc,00,38,86,95,5c,68,65,61,72,74,62,65,61,74,5c,32,33,30,33,5c,67,61,6d,65,6e,61,6d,65,5c,6f,70,66,6c,61,73,68,72,5c,73,74,61,74,65,63,68,61,6e,67,65,64,5c,31)

Или так?

const
St: TStream;
begin
St : array [0..89] of Char = ('00','14','d1','62','e4','2d','00','80','48','32','ee','d9','08','00','45','00','00','4c','16','da','00','00','80','11','7d','e5','c0','a8','0a','65','cf','26','0b','ae','08','ff','6c','fc','00','38','86','95','5c','68','65','61','72','74','62','65','61','74','5c','32','33','30','33','5c','67','61','6d','65','6e','61','6d','65','5c','6f','70','66','6c','61','73','68','72','5c','73','74','61','74','65','63','68','61','6e','67','65','64','5c','31');

[Riply]

Подскажите из-за чего ошибка?
...image has been removed

[veniside]

; после Create