说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Dll函数问题

编辑:说三道四文库 发布时间:2017-11-22 12:00
HTML文档下载 WORD文档下载 PDF文档下载
程序中的一函数,原来放在程序一单元中,运行没有问题,但把它封装到DLL库中后出现报错。各位高手帮忙看看是哪的问题?

procedure FillImage(AField: TField; img: TImage);
var
  Header: array[0..9] of Char;
begin
  if (not AField.IsBlob) then
  begin
    img.Picture.Bitmap.FreeImage;
    exit;
  end else if (TBlobField(AField).IsNull) or (TBlobField(AField).BlobSize=0) then
  begin
    img.Picture.Bitmap.FreeImage;
    exit;
  end;

  with TADOBlobStream.Create(TBlobField(AField), bmRead) do   ///// 报错
  try
    Position:=0;
    ReadBuffer(Header,10);
    if (Header[0]='B') and (Header[1]='M') then
    begin
      SaveToFile('temp.bmp');
      img.Picture.LoadFromFile('temp.bmp');
    end;
    if (Header[0]='G') and (Header[1]='I') and (Header[2]='F') then
    begin
      SaveToFile('temp.gif');
      img.Picture.LoadFromFile('temp.gif');
    end;
    if (Header[6]='J') and (Header[7]='F') and (Header[8]='I') and (Header[9]='F') then
    begin
      SaveToFile('temp.jpg');
      img.Picture.LoadFromFile('temp.jpg');
    end;
  finally
    Free;
  end;
end;


在TADOBlobStream.Create(TBlobField(AField), bmRead)时候报错,"Invalid class type cast"
为什么转到DLL中就出错,而在远程序单元中没有问题?
procedure FillImage(AField: TField; img: TImage); stdcall;
没错,声明部分是用的:procedure FillImage(AField: TField; img: TImage); stdcall;
但是不行,问题不在这
根据出错信息,应该是类类型转换的错
只有TBlobField(AField)一句是强类型转换的,检查检查吧
但在程序单元中不会出错,放在DLL中才报错
问题在哪呢?
UP
哪位能帮帮忙?
用Delphi 显示122种图形特效 用Delphi编写DLL实现动态改变分辨率 用Delphi进行OpenGL编程学习心得 用Delphi开发windows95屏幕保护预览程序 用Delphi实现壁纸更换 用DELPHI实现位图显示特技 用DELPHI中Canvas特性开发图形软件 用构件变换法实现动画效果-Delphi资料 在Delphi中使用动态图标 在Delphi中显示Windows图标 在多媒体文件中批量抓取图象-Delphi资料 怎样读出不同格式图形的高和宽-Delphi资料 怎样使用PageUp、PageDown滚动窗体-Delphi资料 怎样制作全透明的窗口-Delphi资料 DELPHI:FormContainer简易手册 Delphi:用FormContainer渐变效果 Delphi4的窗口融合技术 Delphi使用技巧ABC Delphi使用技巧四则 DELPHI中自适应表单的实现 TList的用法-Delphi资料 不规则窗口的实现-Delphi资料 不用标题栏也移动窗体-Delphi资料 窗口建立和关闭时的特效-Delphi资料 窗口中状态行的显示-Delphi资料 动态提示的可视化实现-Delphi资料 动态修改显示器分辨率-Delphi资料 对数据库中的数据进行处理-Delphi资料 改变壁纸-Delphi资料 改变元件的视窗式样-Delphi资料 给MDI主窗口加背景-Delphi资料 关于控件制作的两个问题 那位大哥能帮忙从sourceforge上下个工程,高分相送,分可以再加(急) 如何才能在Edit控件中显示大量的数据?? smoke,你好,很高兴能认识你! 大虾们给点意见:这么编写W77E58的软件看门狗是否妥当? 请问怎么用MAPI控件发送HTML格式的邮件啊 小问题,好郁闷!! 父窗口弹出一个子窗口,如果在子窗口点击鼠标,消息是怎么在父子窗口之间折腾的呢? 如何在接受到两个消息后才执行一段代码呢? 怎么定义一个三维数组 那位大哥能告诉我75,000日圆值多少人民币啊???? 安装了DirectX 9b之后Media Player 9.0总是出问题。 局域网怎么装打印机? 为什么控制面板中的“添加删除程序”不能用了?在线等待,请各位帮忙。 请问高手如何设置绘图背景为黑色,并且哪种绘制模式不影响画图的画笔颜色 《程序员》的文章错字太多!!!!!!!!!!!! 关于指纹采集识别 高分求《j2EE服务器端高级编程》这本书的源码 MAKEWORD宏从哪里找到中文解释。 为何在重载CreateParams后指定Form的Height值小于某个值后就不会再小? 开发一个基于WEB的ASP仓库管理,用什么技术比较好。 怎样让弹出对话框居中显示 我用Server.Transfer来做两个页面之间传值,我怎么让页面成为新窗口打开呀,100分 高分请教XML高手 在InterDev中,我什么说我不能连接web server 请问 怎么响应一个按钮打开一个新页面,同时关闭旧页面 各位PM进来谈谈自己的经历和经验教训。 picturebox控件问题 jdbc的奇怪限制,不能reread row data UNIX支持中文否,请推荐UNIX好书 高分求助:怎样发布sapi.dll 我发现我变笨了!!或许我本来就很笨。但是问句实在的:IT会使人变笨吗? hal.dll文件丢失!winxp修复的问题!急! pb如何连接execl 用Windows2000Internet连接共享出现的问题,请各位大侠解决一下! 关于数据库字段大小问题 ★★如何给一个Dialog加背景图片?★★ MSDN Library 2003中文版3CD下载 我用access+adoquery+DBgrid,我在拖动改变dbgrid的列宽时,为何会报错? 关于软件汉化的问题。 请教:可以从硬盘上直接安装linux吗? C语言二级考什么题型 MYSQL是不是不能建视图啊?新手清多多指教 还是ASP与SQL联不上的问题,在线等待 请问:C:\Documents and Settings\user\Local Settings\Temporary Internet Files里的内容怎么删除 紧急求助!sqlserver服务启动不了 怎么知道当前这台UNIX的IP地址 getWidth怎么用呀??????????????? 我的是win2000 server ,怎么会老出现什么explorer.exe错误???? 申请免费空间 请大家谈makefile的写法 我要疯啦 翻译成英语是什么? 如图.在△abc中,∠bac=90°.ab=ac.角abc的平分线交ac于点d,过c作bd的垂线交bd的延长线于点e,交ba的延长线于点f,求证:bd=2ce 第二题,证明 怎样理解“人创造了第二自然”的含义? 编写函数文件:计算1+2+…+n 已知偶函数y=f(x),x属于(-1.1),且f(x)在(-1.1)上是减函数,解不等式f(1-x)+f(1-3x)<0我很着急 计算并输出∑(2n+1)超过2000的第一个n值.n从1开始. 如图,在△ABC中,∠BAC=90°,AB=AC,∠ABC的平分线交AC于D,过C作BD垂线交BD的延长线于E,交BA的延长线于F,求证:BD=2CE 如图,在△ABC中,∠BAC=90°,AB=AC,∠ABC的平分线AC于D,过C作BD垂线交BD的延长线于E,交BA的延长线于F求证:BD=2CE.(急.) 求 skin and bones by David j roch 和 light through the branches by celeste lear这两首歌~ skull and cross 美妇人送儿子手机前“约法18章” 网古巴政府叫停私营影院 称“不是倒退”[实拍]中国新型“中华神盾舰”吊装导埃及前总统穆尔西出庭受审:从囚徒到总法两名记者在马里遇害 遗体遍布弹孔(美媒爆料日本系美监控对象 目的不仅限各国学校扎堆北京招生(图)俄罗斯严防“黑寡妇”袭击 确保冬奥会祭拜烈士墓 金正恩:“心疼得睡不着觉金正恩参谒牺牲烈士墓地 称心疼得睡不从奥巴马借助大数据成功连任说起美国国务卿克里在印度遇车祸 马英九赴中核地浸采铀获科技进步二等奖 盘活数遵义会议:党的历史上的转折点经济日报:城镇化不等同于城市建设深圳电网输配电价改革试点 每千瓦时下发改委完善陆上风电价格政策 部分上网中国海军三大舰队西太平洋演习 遭日美专家:湖人未来一片迷茫 难钓大鱼科比墨西哥高铁重新招标正式启动香港今起暂停投资移民 移民公司职员午留美学生被害案初审 检辩双方聚焦嫌犯
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘