delphi中Image加载图片的问题
1、创建rc文件。可以用任意文本编辑器来写。文件格式为:"资源名 资源类型 文件名"。
对于资源类型,如果是exe文件,应该是,如果是二进制文件,则是RCDATA。
这里创建一个文件float.rc:
代码
ATP BITMAP "E:\Software\1.jpg"
这里顺便记得“
AVI 无声动画
EXEFILE 可执行文件
BITMAP 位图文件
CURSOR 光标文件
ICON 图标文件
WAVE 声音文件”
2、将这个rc文件转换成res文件。
执行brcc32 float.rc,生成float.res
3、将这个res文件包含至工程文件中。
代码
{$R float.res}
4、提取RES中的1.jpg。
代码
procedure TFormMain.loadtpClick(Sender: TObject);
var
t : TResourceStream;
begin
if FileExists('1.jpg') then
image1.bitmap.loadfromfile('1.jpg');
else
begin
try
t := TResourceStream.Create(HInstance,'Atp','bitmap'); //
t.SaveToFile('1.jpg');
finally
t.free;
end;
Wi image1.bitmap.loadfromfile('1.jpg');
end;
end;
照片直播和传统活动摄影相比有啥不同?
传统的摄影行业依然存在的一些摄影弊端,会议主办方、摄影师和用户之间的链条服务模式依旧没改变,摄影师会议现场拍片,带回家用电脑修图,过7-10天才能交付照片,这样一来,照片的作用就只限于作为存档资料使用了。而主办方要求一结束就立刻发布新闻稿件,现场来宾也想第一时间拿到自己的照片,因此,会议摄影没有实现“互联网+”,没有跳脱出传统摄影的束缚,用户痛点持续存在。
而照片直播改变了传统的商业摄影模式,完美地解决了照片交付延长时间的问题。其主要特点是:摄影师在拍摄照片的同时,照片就会自动上传到了云端,专业数码师即时从云端下载照片、修图、再次上传,然后发布,整个过程只需要5分钟。用户通过扫描二维码或转发链接观看精美的大片,完美契合了活动直播的即时传播需求,同时也能满足对照片质量的高要求。