ДЕЛЬФИ - Чат на Udp
 

Народ, написал Чат, на UDP/ip,кароче говоря проблема такая, запускаем прогу на двух компах, фаервол регестрирует исходящюю активность программы... а входящюю не регестрирует, соответсвенно, и сообщения с другого компа не доходят в чём ошибка подскажите, вот код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdUDPServer, IdBaseComponent, IdComponent, IdUDPBase,
IdUDPClient, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Button2: TButton;
IdUDPClient1: TIdUDPClient;
IdUDPServer1: TIdUDPServer;
memo1: TMemo;
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream
);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream );
var
sts:Tstringstream;
s:string;
begin
sts:=tstringstream.Create('');
sts.Copyfrom(Adata,adata.size);
memo1.lines.add('>>> '+sts.datastring);
sts.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
idudpclient1.Send(edit1.text);
memo1.Lines.Add(edit1.text);
edit1.Text:='';
end;

end.

ХЗ в чём трабла

М.Фленов. Delphi глазами хакера.
Как-то не красиво получилось!!!
Скатывать надо правильно!!!
И всё работает!!!

Что не красивога та? :))))
Вот с помеченными тобой строчками, эта прога не работает!!!! выдаёт ошибку

undeclared idintifier ('tidsockethandle').....

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

Закрывайте тему в узесе надо было прописать пару библиотек, разобрался