关于NMUDP传送流的问题(100分)

  • 主题发起人 tracksun
  • 开始时间
T

tracksun

Unregistered / Unconfirmed
GUEST, unregistred user!
我用delphi6的NMUDP控件,传送一张图片,为何出错?原代码如下:
另外用Indy控件如何传送流?
procedure TForm1.Button2Click(Sender: TObject);
var
strm:TMemoryStream;
begin
NMUDP1.LocalPort:=strtoint(edit2.Text);
NMUDP1.RemotePort:=strtoint(edit2.Text);
NMUDP1.RemoteHost:=edit1.Text;
NMUDP1.ReportLevel:=Status_Basic;

strm:=TMemoryStream.Create;
image1.Picture.bitmap.SaveToStream(strm);//Image1已事先有一张位图
try
NMUDP1.SendStream(strm);
finally
strm.Free;
end;
end;
 
图片太大了,你最好分块,每次最好是小于2K
 
顶部