Delphi中有没有象VB的"loadrespicture"的函数?

monday 2000-04-22 04:38:00
Delphi中有没有象VB的“loadrespicture”用于从RES文件取数据的函数?
...全文
179 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
monday 2000-05-08
  • 打赏
  • 举报
回复
我无法加分,提示说我无权删除这份帖子。
monday 2000-04-28
  • 打赏
  • 举报
回复
真是多谢!my mail:52057@yeah.net,其实你可点击本页面上的我的名字,另外怎么加分知道吗
Lin 2000-04-28
  • 打赏
  • 举报
回复
Monday:
我写了个Demo,你的Mail?
monday 2000-04-27
  • 打赏
  • 举报
回复
先要谢谢Lin.
但我加了。我还尝试直接在同工程名的.res中添加bitmap,但还是同样的提示。您能邮份成功的样本过来吗。对了,论坛的加分好象不能用,你知道怎么加分吗?
monday 2000-04-26
  • 打赏
  • 举报
回复
但我确定RES文件中有名为xxx的bitmap,RES是用Delphi中的ImageEditor做的.
Lin 2000-04-26
  • 打赏
  • 举报
回复
那一定就是你的单元少了一行,务必加上:
{$R XXXXX.Res}
Lin 2000-04-25
  • 打赏
  • 举报
回复
那可能是你的执行文件确实没有包含Resource xxxx,解决方法如下:
1、你得手工编写一个扩展名为rc的文件,并将其加入到工程文件;譬如:
...
1000 BITMAP DISCARDABLE "Res\Background.bmp"
TEST BITMAP DISCARDABLE "Res\Test.bmp"
...
2、假设有一个SpeedButton1,可以装入图象:
SpeedButton1.Glyph.LoadFromResourceID(hInstance, 1000); //按资源ID装入
SpeedButton1.Glyph.LoadFromResourceName(hInstance, 'TEST');//按资源名字装入
monday 2000-04-23
  • 打赏
  • 举报
回复
可是,我不知道怎么用,我在LoadFromResourceName中的THandle参数用HInstance,可老出现resource xxxx not found的错误。真谢谢你了。
Lin 2000-04-22
  • 打赏
  • 举报
回复
有啊:TBitmap的LoadFromResourceID和LoadFromResourceName方法。
'这是从资源文件里调用msvbvm60.dll 注册的代码 '本代码是放在模块 Moudule1.bas 里面,不是放在Form1里面的. '要注册.dll .ocx最好是放在.bas里面,并把启动项设为Sub Main '否则有可能在还没进入窗体执行注册的动作前,就产生错误而断了 '尤其是98系统之下的msvbvm60.dll '先建立一个资源文件, 在 Custom 101 装载 msvbvm60.dll Global winsys$, appdisk$, aa$ Sub Main() On Error Resume Next If App.PrevInstance Then MsgBox "本系统已运行, 不得重复加载!!", vbOKOnly, "菜鸟多媒体桌面工具": End appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") winsys = GetSyspath Call regdllocx Form1.Show End Sub Private Sub regdllocx() On Error Resume Next Dim byt() As Byte aa = winsys & "msvbvm60.dll" If Dir(aa) = "" Then byt = LoadResData(101, "CUSTOM") Open aa For Binary As #1 Put #1, 1, byt() Close #1 End If If Dir(aa) <> "" Then aa = "Regsvr32 /s " & aa Call Shell(aa, vbHide) End If End Sub Public Function GetSyspath() As String '获取system32路径 aa = Trim(Environ("ComSpec")) GetSyspath = Mid(aa, 1, InStrRev(aa, "\")) End Function '直接从资源文件调用 .bmp图片(只允许.bmp),不必释放到硬盘 'Me.Icon = LoadResPicture(101, vbResIcon) '注释:加载图标 'Picture1.Picture = LoadResPicture(101, vbResBitmap) '注释:加载位图 'Command1.MouseIcon = LoadResPicture(101, vbResCursor) '注释:加载光标' '播放 WAVE 声音(只允许.wav) Option Explicit Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Const SND_ASYNC = &H1 Const SND_MEMORY = &H4 Private Sub Command1_Click() Dim bArr() As Byte bArr = LoadResData(101, "CUSTOM") DoEvents sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY End Sub 本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/cbm666/archive/2008/03/08/2158287.aspx

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧