myStream :TmemoryStream;
mybmp :Tbitmap;
myJpg :TJpegimage;finame = 'c:\1.bmp'
if fileName = '' then exit;
          MyStream := TMemoryStream.Create;
          mybmp :=Tbitmap.Create;
          MyJpg :=TJpegimage.Create;
          mybmp.LoadFromFile(FileName);
          Myjpg.Assign(Mybmp);
          Myjpg.SaveToStream(mystream);
          mystream.Position := 0;
          Nmudp1.SendStream(MyStream);(运行到这一句出错)
          mystream.Free;
          mybmp.Free;
          Myjpg.Free;