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;
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;
定义一个变量。
Buffer: array[0..1024] of Byte;
mystream.read
udp.sendbuffer.....
定义一个变量。
Buffer: array[0..1024] of Byte;
mystream.read
udp.sendbuffer.....
udp.sendbuffer(array of char,integer)这里不能发送Byte的数据要怎么转换?谢谢cmain83(心缘※草)
Buffer: array[0..1024] of Char
这样