delphi请问如何把jpg存储在资源文件中,并在image调用!!
procedureLoadJPEGFromRes(TheJPEG:string;ThePicture:TPicture);varResHandle:THandle;Mem...
procedure LoadJPEGFromRes(TheJPEG : string;
ThePicture : TPicture);
var
ResHandle : THandle; MemHandle : THandle; MemStream : TMemoryStream;ResPtr : PByte; ResSize : Longint; JPEGImage : TJPEGImage;
begin
ResHandle := FindResource(hInstance, PChar(TheJPEG), 'JPEG ');
MemHandle := LoadResource(hInstance, ResHandle);
ResPtr := LockResource(MemHandle);
MemStream := TMemoryStream.Create;
JPEGImage := TJPEGImage.Create;
ResSize := SizeOfResource(hInstance, ResHandle);
MemStream.SetSize(ResSize);
MemStream.Write(ResPtr^, ResSize);
FreeResource(MemHandle);
MemStream.Seek(0, 0);
JPEGImage.LoadFromStream(MemStream);
ThePicture.Assign(JPEGImage);
JPEGImage.Free;
MemStream.Free;
end;
出现错误jpeg error 41#!请问什么原因?!谢谢!! 展开
ThePicture : TPicture);
var
ResHandle : THandle; MemHandle : THandle; MemStream : TMemoryStream;ResPtr : PByte; ResSize : Longint; JPEGImage : TJPEGImage;
begin
ResHandle := FindResource(hInstance, PChar(TheJPEG), 'JPEG ');
MemHandle := LoadResource(hInstance, ResHandle);
ResPtr := LockResource(MemHandle);
MemStream := TMemoryStream.Create;
JPEGImage := TJPEGImage.Create;
ResSize := SizeOfResource(hInstance, ResHandle);
MemStream.SetSize(ResSize);
MemStream.Write(ResPtr^, ResSize);
FreeResource(MemHandle);
MemStream.Seek(0, 0);
JPEGImage.LoadFromStream(MemStream);
ThePicture.Assign(JPEGImage);
JPEGImage.Free;
MemStream.Free;
end;
出现错误jpeg error 41#!请问什么原因?!谢谢!! 展开
1个回答
展开全部
把图片放在资源文件中,没有试过,如果是单张图片,直接放在图片显示组件中,如果是多张图片直接建立一个文件夹,把图片放在该文件夹中,想怎么调用就怎么调用,一句代码就可以了.也不需要创建那么多的类.用资源文件管理图片唯一的好处,就是用户无法干预图片内容.但EXE文件不知要大多少.我看目前很多软件设计者都采用了我这种简单的搞法.
你在USES中调用了JPG单元没有?就是
unit Unit1;
interface
uses//这里
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
另外使用资源文件,也需要文件名啊,你的代码中没有看到文件名啊
你在USES中调用了JPG单元没有?就是
unit Unit1;
interface
uses//这里
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
另外使用资源文件,也需要文件名啊,你的代码中没有看到文件名啊
更多追问追答
追问
怎么在局域网中调用文件jpg文件了
ShellExecute(0,'open','\\192.168.64.08\\mis-oa\\magic_yang\\1\\20120512_124236.jpg', ' ',' ',SW_SHOW);
你看这句能打开么,怎么按照两个文本框的值来调整jpg文件的大小了 我是新手帮忙看看
追答
JPG文件是要用程序打开的,那么你希望用什么软件打开呢?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询