财务软件版1楼: 我把一个窗体（窗体中有一个IdUDPServer控件）做成DLL 然后把这个DLL用加载到我的进程中DLL会建立一个新线程然后在新线程中创建窗体 源代码如下

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent,
IdUDPBase, IdUDPServer, IdSocketHandle;

type
TForm2 = class(TForm)
u1: TIdUDPServer;
IdAntiFreeze1: TIdAntiFreeze;
procedure FormCreate(Sender: TObject);
procedure u1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
private
{ Private declarations }
public
{ Public declarations }
end;


type
TMain = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;


var
Form2: TForm2;
Main: TMain;

implementation

{$R *.dfm}

procedure TMain.Execute;
var
Msg: TMsg;

begin
Form2:=TForm2.Create(Form2);
Form2.Show;

while GetMessage(Msg, 0, 0, 0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
u1.DefaultPort:= 10084;
u1.Active:= true;
end;

procedure TForm2.u1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
a: TStringList;
begin
a:= TStringlist.Create;
AData.Read(a,AData.Size);
showmessage(a[0]);
a.Free;
end;

end.

运行后防火墙显示端口确实已经打开 但是由另一端发送的信息后并没有弹出对话框。就像没收到消息一样。
这是另一端的源代码

unit Unit1;

interface

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

type
TForm1 = class(TForm)
u2: TIdUDPServer;
IdAntiFreeze1: TIdAntiFreeze;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a:TStringList;
begin
a:= TStringlist.Create;
a.Add(＇＇11111＇＇);
showmessage
u2.SendBuffer(＇＇127.0.0.1＇＇,10084,a,sizeof(a));
a.free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
u2.DefaultPort:= 10085;
u2.Active := true;
end;

end.

2楼: procedure u1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
此处有问题，估计是因为此处没有与UDP控件的消息关联起来。收到信息后，根本就没执行此函数。可做实验看看。 如速达财务软件

3楼: 我是在控件的event里面双击自动生成的以上代码 应该已经关联了

4楼: 难道没有人会？

5楼: IdUDPServer放在Dll里面会有问题，因为它在消息到达以后，它的监听线程会调用主线程的函数来处理，在Dll里面线程同步会有问题，具体不记得了。
而且被证明是不可以放在Dll里面的，因为这不是简单的回调函数。

6楼: 顶顶KGEN.
而且我还发送.无法定义一个动态数组来接收数据.我测试了很多方法,但最终没办法实现用动态数据来接收数据(当然发送端也是用动态数据发送的)

财务软件版7楼: idudpserver控件可以放在dll里面的，delphi6自带的还delphi2006带的控件均可（测试通过）你应该把 threadedeven 属性设置为 true（默认为false）

8楼: OK了