delphi IdUdpServer将收取流数据实时保存为文件

可以参考以下步骤实现:

1. 在`IdUDPServer`的`OnUDPRead`事件中获取接收到的数据流，并保存为文件。

procedure TForm1.IdUDPServerUDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
var
  LFileStream: TFileStream;
begin
  LFileStream := TFileStream.Create('received_data.bin', fmCreate);
  try
    LFileStream.Write(AData[0], Length(AData));
  finally
    LFileStream.Free;
  end;
end;

2. 如果要实现实时保存，可以使用`TMemoryStream`来缓存数据，然后定时将缓存中的数据写入文件。

type
  TForm1 = class(TForm)
    IdUDPServer1: TIdUDPServer;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
      const AData: TIdBytes; ABinding: TIdSocketHandle);
    procedure Timer1Timer(Sender: TObject);
  private
    FMemoryStream: TMemoryStream;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FMemoryStream := TMemoryStream.Create;
  Timer1.Enabled := True;
end;

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; ABinding: TIdSocketHandle);
begin
  FMemoryStream.Write(AData[0], Length(AData));
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if FMemoryStream.Size > 0 then
  begin
    FMemoryStream.SaveToFile('received_data.bin');
    FMemoryStream.Clear;
  end;
end;

注意，上面的代码仅适用于接收的数据流可以直接写入文件的情况。如果需要对数据流进行解析、处理等操作，可以将数据流先保存到文件中，再在另一个线程中进行处理，以避免阻塞 `OnUDPRead` 事件。