function MakeBmp(FileName:String;BmpIdx:integer):TMemoryStream;
var
wil_FileName,wix_FileName:String;
MS:TfileStream;
BMP_Start,BMP_Width,BMP_High,BMP_SIZE:Integer;
HeadFileName:String;
width,high:string;
begin
Result:=TMemoryStream.Create;
//获取图形源文件名
wix_FileName:=FileName;
wil_FileName:=Copy(FileName,1,length(FileName)-4)+'.wil';
//生成图片
MS:=TFileStream.Create(wix_FileName,fmOpenRead);
ms.Position:=47+(BmpIdx-1)*4+1;
ms.Read(BMP_Start,4);//开始位置
BMP_Start:=StrToInt((IntToStr(BMP_Start)));
ms.Free;
MS:=TFileStream.Create(wil_fileName,fmOpenRead);
ms.Position:=BMP_Start;
ms.Read(BMP_Width,2);
MS.Position:=BMP_Start+2; //宽
ms.Read(BMP_High,2); //高
BMP_Width:=StrToInt(IntToStr(BMP_Width));
BMP_High:=StrToInt(IntToStr(BMP_High));
BMP_SIZE:=BMP_Width*BMP_High+54+1024;
ms.free;
HeadFileName:=AppPath+'bmphead';
MS:=TFileStream.Create(HeadFileName,fmOpenRead);
Result.CopyFrom(ms,1078); 织梦内容管理系统
ms.free;
Result.Position:=2;
Result.Write(bmp_size,4);
Result.Position:=18;
Result.Write(bmp_width,4);
Result.Position:=22;
Result.Write(bmp_high,4);
Result.Position:=34;
BMP_SIZE:=BMP_Width*BMP_High;
Result.Write(bmp_size,4);
Result.Size:=1078+BMP_Width*bmp_high;
Result.Position:=1078;
MS:=TFileStream.Create(wil_FileName,fmOpenRead);
ms.Position:=BMP_Start+8;
Result.CopyFrom(ms,BMP_Width*BMP_High);
Result.Position:=0;
ms.free;
end;
织梦内容管理系统
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号