我现在BMP.LOADFROMFILE一张图.我觉的精度是300DPI太高,我要降低成200DPI,我如何写呢?请大家给我一段样本代码,谢谢啊
解决方案 »
- Delphi通过OPC传送给西门子PLC有哪些命令,能举几个例子吗
- delphi里面的一段sql查询出错.大家帮我看看.谢谢了.
- 各位高手,请帮忙呀!小弟很急呀!!!!怎样将数据新增到ClientDataSet的本地缓冲中去。
- DBGRID焦点离开某一行将触发那一事件?注意是某一行,不是某一列!
- 关于findfirst函数的问题!!????????????????????????????????????????
- 哪位开发过OA(办公自动化)系统,请有经验的进来指教一下,没做过的也进来看看,UP有分!!!
- 怎样编写设置某个目录为共享目录?
- 请问如何在delphi中如何表示ctrl+enter
- 为什么执行完一个存储过程以后,在执行SQL语句就出错出错信息如下:
- 不能用gif吗
- 紧急求救
- 为何在控制面板内的管理工具测试ODBC连接MYSQL链接成功,但在delphi里用ado组件链接ODBC就不行了???
你不想改变尺寸,那就减少像素了哇。
procedure TForm1.Button1Click(Sender: TObject);
var
image1:TJpegImage;
width,height:Integer;
begin
image1:=TJpegImage.Create;
image1.LoadFromFile('c:\3232323.jpg');
width:=image1.Width ;
height:=image1.Height;
image.free;
end;
以上的width,height都是其具体的尺寸,我可以赋值进去,调整其尺寸,可是如果获取其像素并给其像素赋一个新的值呢?