主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

向下

将jpg文件上传到图像 找到类似的分支


Angel S   (2001-12-15 23:04) [0]

我可以从Image中的资源文件将图像上传到Jpg吗?
如果是这样,怎么样?



Virtualik   (2001-12-15 23:53) [1]

过程LoadJPEGFromRes(TheJPEG:string; var ThePicture:TPicture); VAR ResHandle:THandle; MemHandle:THandle; MemStream:TMemoryStream; ResPtr:PByte; ResSize:Longint; JPEGImage:TJPEGImage; 开始 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; 结束;



Angel S   (2001-12-16 13:00) [2]

出现错误JPEG错误#41
可能是什么错误???



Мефодий   (2001-12-16 22:42) [3]

我从我的程序中带了一段代码,在那里我用资源文件Myres.rc从Jpeg文件中取出一张图片:

程序TMyForm.FormCreate(Sender:TObject);
var temp_jpeg:TJPEGImage;
ResStream:TResourceStream;
开始
.....
temp_jpeg:= TJpegImage.Create;
ResStream:= TResourceStream.CreateFromID(HInstance,1,RT_RCDATA);
temp_jpeg.LoadFromStream(ResStream);
.....
temp_jpeg.Free;
ResStream.Free;
.....
结束;

如果我帮忙的话,我会很高兴的。

PS
Myres.rc的内容

1 RCDATA“Myimage.jpg”
.......



Angel S   (2001-12-17 16:52) [4]

我连接已编译的资源文件(res),但是rc无法连接,因为 他说他不支持16位资源文件....
连接使用
{$ R Myres.rc}



Angel S   (2001-12-17 16:53) [5]

连接MyRes.res时,此行中出现错误:
ResStream:= TResourceStream.CreateFromID(HInstance,1,RT_RCDATA);



Dimka Maslov   (2001-12-17 17:02) [6]

在形状
程序TAboutForm.FormCreate(发件人:TObject); VAR RS:TResourceStream; JP:TJPEGImage; 开始 RS:=零; JP:=零; 尝试 RS:= TResourceStream.Create(hInstance,“ABOUT”,“JPEG”); JP:= TJPEGImage.Create; JP.LoadFromStream(RS); JP.DIBNeeded; Image.Picture.Bitmap.Assign(JP); 最后 RS.Free; JP.Free; 结束; 结束;

在rc文件中
关于JPEG ABOUT.JPG

您需要通过菜单Project> Add To Project将rc文件添加到项目中



Angel S   (2001-12-18 19:58) [7]

一切正常......非常感谢!!!



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2002.01.08;
下载:[xml.tar.bz2];

楼上





内存:0.56 MB
时间:0.025 c
1-22055
walker_ag
2001-12-19 03:27
2002.01.08
怎么做?


4-22497
Syrius
2001-11-07 09:13
2002.01.08
Delphi 6和Win32 API


1-22173
Petyun
2001-12-20 19:33
2002.01.08
组件安装


7-22418
Mikle
2001-09-20 09:06
2002.01.08
急! Comp而不是打印机。


14-22416
复仇者
2001-11-14 11:47
2002.01.08
需要这种类型的程序





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский