图片合并的问题,请大家帮帮忙看看,不懂也顶下
现在想把多张JPG格式的图片保存到一个文件中,当使用时再通过这个文件一张张读出来,请教高手怎么做,最好有例子或者网上有现成的源码,不行的话给个思路也行
我的邮箱:zyyjcking@21cn.com
[解决办法]
先将jpg文件读到TJpegImage对象,转成bmp格式再用TBitmap对象的Canvans.Draw来合并,最后再转回jpg格式
[解决办法]
那应该不是合并的问题的吧
不是简单的保存图片和读图片的问题的吗?
savetofile,loadfromfile就行了哦
[解决办法]
up
[解决办法]
把这些文件当成资源写入dll或者exe中
可以看看我的blog
http://blog.csdn.net/ccdarkness/archive/2005/11/22/534324.aspx
[解决办法]
可以把图片放到dll中嘛,dll是一个独立的文件,这样用外部程序去读取dll中的图片
把图片放到dll和放到exe是一个道理
从dll读取图片有个例子,还有一个非常详细的
http://www.delphifans.com/SoftView/SoftView_2422.html
var
resStream: TResourceStream;
hinst: THandle;
jpg: TJPEGImage;
begin
hinst := LoadLibrary(PChar(AppPath + 'mainRes.dll '));
if hinst <> 0 then
begin
if screen.Width > 800 then
resStream := TResourceStream.Create(hinst, 'mainbk768 ', 'JPEG ')
else
resStream := TResourceStream.Create(hinst, 'mainbk600 ', 'JPEG ');
try
jpg := TJpegImage.Create;
try
jpg.LoadFromStream(resStream);
img_bk.Picture.Assign(jpg);
finally
jpg.Free;
end;
finally
resStream.Free;
end;
FreeLibrary(hinst);
end;
[解决办法]
用zip格式就可以了。
[解决办法]
做成资源文件,或者存放在数据库里头。
Example:
资源定义 RC 文件格式
NoSoundICONoSound.ico
TickICOTick.ico
Tick32ICOTick32.ico
MainFrameJPGMainFrame.jpg
CallJPGCall.jpg
ManagementJPGManagement.jpg
...
var
Stream: TStream;
Jpeg: TJpegImage;
begin
Stream := TResourceStream.Create(HInstance, ResName, PChar( 'JPG '));
Jpeg := TJpegImage.Create;
try
Jpeg.LoadFromStream(Stream);
Image.Canvas.StretchDraw(Rect(0,0,Image.Width,Image.Height),Jpeg);
finally
Jpeg.Free;
Stream.Free;
end;
end;
[解决办法]
ding
[解决办法]
const
WM_MYUSER = $0400;
PBM_MYSETPOS = WM_MYUSER+2;
PBM_MYSTEPIT = WM_MYUSER + 5;
PBM_SETRANGE32 = WM_MYUSER + 6;