关于资源图片文件与DLL到Imagelist
来源:互联网 发布:周公解梦是真的吗 知乎 编辑:程序博客网 时间:2024/04/30 23:47
unit udmImage;
interface
uses
Windows, SysUtils, Classes, ImgList, Controls, Graphics;
type
TdmImage = class(TDataModule)
ImgLst16: TImageList;
procedure DataModuleCreate(Sender: TObject);
private
{装载16×16的图标资源}
procedure LoadIcon16;
public
end;
var
dmImage: TdmImage;
implementation
{$R *.dfm}
procedure EnumResNamesProc(AMod: HModule; ResType: PChar; ResName: PChar; List: TStrings); stdcall;
begin
List.Add(ResName);
end;
const
sDllName = 'HsIcon16.Dll';
procedure TdmImage.LoadIcon16;
var
Icon: TIcon;
I: Integer;
HResDll: THandle;
List: TStringList;
procedure LoadResIcon(ResName: string);
var
Stream: TResourceStream;
begin
Stream := TResourceStream.Create(HResDll, ResName, 'BMP');
try
Icon.LoadFromStream(Stream);
ImgLst16.AddIcon(Icon);
finally
Stream.Free;
end;
end;
begin
HResDll := LoadLibrary(sDllName);
try
if HResDll <> 0 then
begin
List := TStringList.Create;
try
EnumResourceNames(HResDll, 'BMP', @EnumResNamesProc, Integer(List));
List.Sorted := True;
Icon := TIcon.Create;
try
for I := 0 to List.Count - 1 do LoadResIcon(List[I]);
finally
Icon.Free;
end;
finally
List.Free;
end;
end;
finally
if HResDll <> 0 then FreeLibrary(HResDll);
end;
end;
procedure TdmImage.DataModuleCreate(Sender: TObject);
begin
LoadIcon16;
end;
end.
将ImageList的图片保存到本地:
procedure TForm1.Button1Click(Sender: TObject);
var
spath: string;
begin
spath := ExtractFilePath(Application.ExeName) + 'imagelist/';
for i := 0 to ImgLst16.Count - 1 do
begin
Image1.Width := ImgLst16.Width;
Image1.Height := ImgLst16.Height;
ImgLst16.GetBitmap(i, Image1.Picture.Bitmap);
Image1.Picture.Bitmap.SaveToFile(spath + IntToStr(i) + '.bmp');
Image1.Picture.Bitmap := nil;
Image1.Refresh;
Image1.Repaint;
Application.ProcessMessages;
end;
end;
- 关于资源图片文件与DLL到Imagelist
- 将图片资源文件整合到DLL文件中
- 将图片资源文件整合到DLL文件中
- 将图片资源文件整合到DLL文件中
- 关于android资源文件图片和SD卡图片加载到内存的占用
- 怎么把ImageList中的图片填充到ListView控件中
- 把ImageList中的图片填充到ListView控件中
- [WPF] 嵌入资源到DLL,并解决PNG图片问题
- SOUI 封装图片资源到dll的方法
- 读取嵌入到 Dll 文件中的资源文件
- 读取嵌入到 Dll 文件中的资源文件
- 读取嵌入到 Dll 文件中的资源文件
- 编程经验:资源文件编译到DLL文件
- 关于使用SharedObject来缓存游戏图片或者swf文件资源到客户端本地的研究
- DLL嵌入图片资源
- 消除ImageList 图片锯齿
- 【c#】imagelist图片失真
- c# 使用独立的DLL来存储图片(资源文件)
- Google搜索从入门到精通v4.0
- pconline 動態廣告js
- .net起步
- 堆、栈和堆栈
- 如何修改网卡地址?
- 关于资源图片文件与DLL到Imagelist
- oracle服务不能启动的两个常见原因
- C#中如何读写INI文件
- 跟我一起写 Makefile
- jBPM源码分析(1)
- 禁止表单里重复提交
- 通过ResourceBundle来获得系统属性,帮助系统转移
- 快乐生活,努力赚钱
- 不是技术高手