UDP传输图像问题

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase,
  IdUDPServer, ExtCtrls,IdSocketHandle;type
  TForm1 = class(TForm)
    Button1: TButton;
    IdUDPServer1: TIdUDPServer;
    IdUDPClient1: TIdUDPClient;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Image1: TImage;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
    IdUDPServer1.Active := true;
    IdUDPClient1.Active := true;
end;procedure TForm1.Button1Click(Sender: TObject);
var m : TMemoryStream;
begin
    m := TMemoryStream.Create;
    Image1.Picture.Bitmap.SaveToStream(m);
    ListBox1.Items.Add('send.......');    IdUDPClient1.SendBuffer(m.Memory^,sizeof(m));
    ListBox1.Items.Add('over.......');
end;procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var m : TFileStream;
begin
     AData.Seek(0,0);
     m := TFileStream.Create('c:\\123.bmp',fmOpenReadWrite or fmCreate);
     ListBox2.Items.Add('接收.......'+inttostr(sizeof(adata)));
     m.CopyFrom(AData,sizeof(adata));
end;end.
本人这方面很菜鸟,请高手请点~~`~

Answer 1

IdUDPClient1.SendBuffer(m.Memory^,m.Size); 
m.CopyFrom(AData,adata.Size);