要求能够处理JPEG、GIF、PMG,最好还有其他格式
能不能自动制作图片的缩微图?
能不能自动制作图片的缩微图?
解决方案 »
- fastreport保存到数据库问题?
- 腾讯6周年活动,现在开放六位数的QQ免费申请
- 关于界面的问题的求答
- 请问各们在DELPHI7.0中怎么没有做报表的控件?
- 如何修改TPreviewBox控件,他是Ehlib 3.2中的
- 汉语拼音问题,高分求解。急急急,在线等!~!
- 如何判断DOMCONNECTION 的状态,以保证应用程序长期无人值守。
- if length(edit1.text)<=10 and length(edit1.text)>0 then ???
- (送分了--100分)delphi中的_RecordSet与ADO中的Adodb.RecordSet对象有什么区别?
- 诸位有没有从国企跳出来的经验?!偶实在是想出来啊,可合同是5年,违约金5万!急!
- 连接SQL Server2000的问题
- memo的真正插入字符
47 49 46 38 39 61 B1 00 C2 01 F7 00 00 FF FF FF
就是一幅GIF图像的开始部分,其中47 49 46 38 39 61 为GIF89a的ASICII码,而其后的B1 00 就是宽度值(注意地位在前)177像素(ASICII码值为00B1),后面的就是高度值450像素(ASICII码值为01C2)。至于JPEG和PMG格式吗你可以自己去查,我就不写了。
有了这些你就可以利用Seek函数和ReadBuffer来读取它了:
var
gifwidth,gifheight:integer;
gif:TFileStream;
begin
gif:=...//取得GIF流
gif.Sek(6,soFromBeginning);//从开始位置起第七八两个字节为宽度值
gif.eadBuffer(gifwidth,2);//一次读两个字节
gif.eadBuffer(gifheight,2);
...
好了,到目前为止gifwidth,gifheight中的值即为图片的宽度和高度值了