我想把一个目录下面的jpg图片依次显示。现在我是这样处理的:用一个ImageList读入所有的jpg文件,然后敲一下空格在一个Image控件里面显示一张。这样请教两个问题:
第一,怎么读入所有的jpg文件到ImageList中;
第二怎样把ImageList的图象一张张的传给Image控件。
请给出大概的代码,小弟学学。
如果有大虾有更好的处理流程,请给个提示,分数没有问题。谢了先!
第一,怎么读入所有的jpg文件到ImageList中;
第二怎样把ImageList的图象一张张的传给Image控件。
请给出大概的代码,小弟学学。
如果有大虾有更好的处理流程,请给个提示,分数没有问题。谢了先!
解决方案 »
- 怎样判断一个TSringlist 变量没被Create()?
- 自定义控件属性引起的问题???
- 求DELPHI下载网址,有效给分。
- 静态方法与Class procedure
- postmessage 如何发送中文或者模拟ctrl+v也行
- table1.filter:='post_no like '''+'*'+trim(Edit1.Text)+'*'+'''';如果Edit1.text为空,就会报错.为什么?
- delphi7的汉化版 年底将会出来,现在中国英博思公司正在汉化不知道质量怎么样
- 各位 高手请进
- 怎么让这3个winsock同时工作??
- “操作必须使用一个可更新的查询”这是什么意思?
- 菜鸟问题,(有关过程的问题)
- 我想在delphi里使用一个vc做的active dll,应该怎么做?我是新手,请各位大侠多多指教。
先启遍历这个目录下的所有文件,如果是JPG图,就将文件名(包括路径)保存在一个列表框中(其它控件也行,或是TStringList变量),
然后每敲一下空格就动态多路径中调入图片就OK!
要不要遍历目录下的文件的代码
在Form 中加一OpenDialog1,1、OpenDialog1.fileter : 位图文件(*.bmp)|*.bmp|jpeg 文件(*.jpg,*.jpeg)|*.jpg;*.jpeg
OfallowMultiSelect:=True; (多选)2、将文件放入ListView或ListBox
if OpenDialog1.Execute then
begin
for i:=0 to OpenDialog1.Files.Count-1 do
ListView1.Items.Add.Caption := OpenDialog1.Files.Strings[i];
end;
3、然后每敲一下空格就动态调入图片
SourceImg.Picture.LoadFromFile(ListView1.selected.caption);
不能完全加载图片,如果是本地系统的话你可以用文件的方式存储图片
然后通过image1.picture.loadfromfile or loadfromstream的方法来调用
方法很简单。只要注意路径就可以了。
如果是数据库的话 建议先压缩图片再存储。