写了一段测试代码:
procedure TForm1.Button1Click(Sender: TObject);
var
mys:tmemorystream;
myb:tbitmap;
begin
mys:=tmemorystream.Create;
myb:=tbitmap.Create;
form1.Image1.Picture.Bitmap.SaveToStream(mys);
myb.LoadFromStream(mys);
myb.SaveToFile('c:\aa.bmp');
end;
现保存图像流,再读出来,保存文件,结果什么都没有,为什么?
另外,如果我用nmudp.sendstream的话,为什么stream.size打了会出错,怎么办
第三,如果同时要udp传输图像和文字,有什么办法,是用不同的端口还是什么其他的方法,还有udp两端如何通信,类似于socket.sendtext?-------------------------------------------------
请各位老大帮帮忙啊!
procedure TForm1.Button1Click(Sender: TObject);
var
mys:tmemorystream;
myb:tbitmap;
begin
mys:=tmemorystream.Create;
myb:=tbitmap.Create;
form1.Image1.Picture.Bitmap.SaveToStream(mys);
myb.LoadFromStream(mys);
myb.SaveToFile('c:\aa.bmp');
end;
现保存图像流,再读出来,保存文件,结果什么都没有,为什么?
另外,如果我用nmudp.sendstream的话,为什么stream.size打了会出错,怎么办
第三,如果同时要udp传输图像和文字,有什么办法,是用不同的端口还是什么其他的方法,还有udp两端如何通信,类似于socket.sendtext?-------------------------------------------------
请各位老大帮帮忙啊!
解决方案 »
- continue有用吗?
- 熟悉超市POS系统的大侠进来一下,有一个我没接触过的问题想请教
- 高手们,快帮帮我!!!!DELPHI 的分布式开发中遇到的问题!!!
- 这些东西是不是骗人的啊?
- 如何取得DBGRID中一个格子的top、left、width、height?
- 斑竹兄弟们一定要救命啊,QRDBRichtext里怎么老是在报表title下部分显示不了大字段的,移到上部分又行的?我快不行拉。。
- Parabox数据库能否存储图片?
- 查找一种对称加密算法,嵌套在delphi5里使用,最好有帮助文件
- 三层结构,中间层com+,程序完成之后的分发问题(在线等待)
- 有两个问题请教
- 有没有比TJPEGImage更高的图象压缩算法?
- 查询语句
var
mys:tmemorystream;
myb:tbitmap;
begin
mys:=tmemorystream.Create;
myb:=tbitmap.Create;
form1.Image1.Picture.Bitmap.SaveToStream(mys);
mys.Seek(0,0); //流指针执行开始处
myb.LoadFromStream(mys);
myb.SaveToFile('c:\aa.bmp');
mys.Free; //释放流
myb.Free; //释放bitmap
end;
第二个问题.如果Size太大的话,udp发送不了.第三个问题:不是很清楚.
但是我想是否可以这样处理:
1.定义好数据帧,帧头帧尾校验位,帧序号.
2.将数据分成N帧上传.
3.接收后根据数据帧信息组成一个完成的数据.
这个协议网可能对你有用
http://www.cnpaf.net/Class/ProtocolAll/index.htm