转换函数没有问题,
imagestream.ReadBuffer(Buffer,2); //这里流的位置加了2,所以下面要重新定位为0if (Buffer=$D8FF) or (Buffer=$4947) then //jpg gif
begin
imagestream.Position:=0;//增加这个
tmpjpg.LoadFromStream(imagestream);
form1.image1.Picture.Bitmap.Assign(tmpjpg);
imagestream.Free;
end
imagestream.ReadBuffer(Buffer,2); //这里流的位置加了2,所以下面要重新定位为0if (Buffer=$D8FF) or (Buffer=$4947) then //jpg gif
begin
imagestream.Position:=0;//增加这个
tmpjpg.LoadFromStream(imagestream);
form1.image1.Picture.Bitmap.Assign(tmpjpg);
imagestream.Free;
end
解决方案 »
- 听说用While循环一个DataSet很慢?
- juliens来接分 ^o^
- DBchart 动态板定 怎么操作啊
- 有钱大家兼,河南的朋友请进
- 为什么这样????????
- 关于做类似于资源管理器的新建菜单的问题
- 求算法
- 在Form.create事件中设置程序的初始值时,如CheckBox1.check: 在从注册表中读取checkbox1.check的值时,会运行checkbox1.click事件
- function GetWhere(Field, Condition, Param: string): string//请教这个函数,十万火急
- delphi中开发分布web应用时,web server 选择isapi时生成DLL文件,在浏览时出现xmlrowset未定义,请问如何处理。(delphi5 ,win2000 server)
- 帮忙把下面这段PHP的转换成delphi的代码下,谢谢
- delphi xe5 listview显示数据库的所有数据,求解
把String转换成流中,将Stream保存成文件(JPG)的文件,用UE查看下,对比程序生成的16进制 和 原来 图片 是否一样。