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

我的问题怎么老是出现在这个地方。。。。

编辑:说三道四文库 发布时间:2017-09-27 04:18
HTML文档下载 WORD文档下载 PDF文档下载
内容如下
我在每次做动态连接库的时候,每次都有如下的提示,即使我用的是一个原本是示例的例子
  提示如下:
  project D:\program files\boland\delphi6\projects \mytest.exe faulted with message:'access violation at 0x77f8f49b:write of 0x00030cb4.'process
stop.use step or run to continue.
动态调用Dll:

typedef DWORD (WINAPI Fun) (DWORD,DWORD);
  HINSTANCE hkDll=LoadLibrary("KERNEL32.DLL");
  Fun*RegisterServiceProcess=(Fun*)::GetProcAddress(hkDll,"RegisterServiceProcess");
  (*RegisterServiceProcess)(NULL,1);
  FreeLibrary(hkDll);
===============
var
  H: HWnd;
  p: procedure(Handle: THandle; Path: PChar); stdcall;
begin
        H := LoadLibrary(PChar('shdocvw.dll'));
        if H <> 0 then
          begin
            p := GetProcAddress(H, PChar('DoOrganizeFavDlg'));
            if Assigned(p) then p(Application.Handle, PChar(favpath));
          end;
      FreeLibrary(h); 
end;
楼主可能是非法访问了内存,调用了一个不存在的对象才导致这样的问题的,看一看楼主的代码可以吗?
还有,最坏的可能性是:你的DELPHI坏掉了
unit base;

interface

 uses
   Sysutils,windows;
   function Doubl(N:integer):integer;Stdcall;
   function Tripl(N:integer):integer;stdcall;
   function StrWithPad(ps:string;len:integer):string;stdcall;
   function PCharWithPad(BufferIn,BufferOut:PChar;len:integer):LongBool;stdcall;

implementation

function Doubl(N:integer):Integer;Stdcall;
    begin
      MessageBox(0,'jiabei!','mydll',mb_ok);
      Result:=N*2;
    end;
function Tripl(N:integer):Integer;Stdcall;
    begin
       messageBox(0,'sanbei!','Mydll',mb_OK);
    end;
function StrWithPad(ps:string;len:integer):string;stdcall;
    begin
       while Length(ps)<len do
         ps:='0'+ps;
         result:=ps;
    end;
function PCharWithPad(BufferIn,BufferOut:PChar;len:integer):LongBool;Stdcall;
   var
      i:integer;
      tmpInt:integer;
   begin
       Strcopy(BufferOut,'');
       if Length(BufferIn)<len then
           begin
             TmpInt:=len-length(BufferIn);
              i:=0;
              while i<tmpInt do
               begin
               Strcat(BufferOut,'0');
               inc(i);
               end;
               strcat(bufferOut,BufferIn);
               result:=True;
            end
       else
         result:=false;
   end;
end.
这是连接库的部分unit mytest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs,stdctrls,Spin;

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;
function Doubl(I:integer):integer;stdcall;external'mydll';
function Tripl(N:integer):integer;stdcall;external'mydll';
function StrWithPad(ps:string;len:integer):string;stdcall;external'mydll';
function Pcharwithpad(bufferin,bufferOut:PChar;len:integer):longbool;stdcall;external'mydll';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpinEdit1Change(Sender: TObject);
var
  tmpInt:integer;
  tmpStr:String;
  begin
   tmpInt:=doubl(spinedit1.Value);
   label1.Caption:=InttoStr(tmpInt);
   setlength(TmpStr,256);
   if PcharWithPad(PChar(label1.Caption),PChar(tmpStr),8) then
   Label3.Caption:=tmpStr;

end;


procedure TForm1.SpinEdit2Change(Sender: TObject);
 var
  tmpInt:integer;
  tmpStr:String;
  begin
   tmpInt:=doubl(spinedit2.Value);
   label2.Caption:=InttoStr(tmpInt);
   setlength(TmpStr,256);
   if PcharWithPad(PChar(label2.Caption),PChar(tmpStr),8) then
   Label4.Caption:=tmpStr;
  end;

end.
 这是主窗体部分。。。
还有,连接库的项目文件定义如下:
library mydll
uses
     base in 'base'
 {$r *.res}
 exports
  doubl,tripl,strwithpad,pCharwithpad;
begin
end.
这是我在示例里抄的一个例题,也是报错。。。
我刚接触delphi 
我现在对delphi还不是很了解。。。。
uses
   ShareMem,
   Sysutils,windows;
MDCC为移动开发者服务:一看、一聊、一聚 做华为合伙人:华为开发者联盟沙龙&#183;北京站纪实 Q3全球智能手机报告:Android和iOS基本不变 WP最得意 Google Apps不再支持IE9 IE9用户或将无法使用Gmail等服务 [开源推荐]CecOS:企业级的云操作系统和虚拟化平台 Avangate SaaS模式开启全球软件新营销之门 Android平台的两大移动威胁现状与变化趋势 推荐五款优秀的PHP代码重构工具 11个值得注意的安全问题及应对,第12个高端黑 微软新举措:打通Windows和WP开发者账户,下调注册费用 合并两应用商店的前兆?微软开始合并Windows Store和WP开发者账户 最难忘的Bug调试经历 LiveCode:让每个人都能开发APP的开发平台 17173总经理赵佳:媒体移动化需抓住三大要素 Django 1.6发布 支持持久数据库链接 如何优化单页面网站搜索引擎? TechCrunch国际创新峰会将于上海举行 极路由:一场由路由器引发的概念盛宴 14nm制程:三星64bit处理器 Exynos 6/S曝光 从Oracle到MySQL,余额宝云实践分享 从南水北调东线工程看物联网,大数据的另一面 不只是技术!成为IT经理必备的十大软技能 看看传说5亿行代码的Healthcare.gov网站的架构 如何走出选择PHP还是ASP.NET的两难境地? 你的设计够档次吗?分享25个奇异的404页面 百度LBS推Openmap战略:无编程经验者可通过拖拽制作个性化地图应用 百万用户时尚分享网站feed系统扩展实践 Twitter上市首战告捷的四大因素 大幕将启!MDCC2013移动开发者大会下周召开 TUP第30期:微软资深专家论如何用Visual Studio开发iOS、Android应用 [开源推荐]Riot.js:不足1KB的MVP客户端框架 关于cookies的问题, 请教各位了. 很急!!!!!! 我日,天天见鬼,我用wsdl做了个webservice的代理类,把文件包含到webapplication中,debug的时候竟然说namespace System.Web.Services 本王对ISharp版竹表示最遗憾的同情和失望 哪位大哥能解决VB打开picture对话框时---蒸发的问题? 为什么我用jsp访问不到bean的属性???[100分,在线结帖] 为什么要“导入COM对象到.Net”? 请问我是不是被攻击了? 求这样的SQL语句,我脑子转不过来了。 请问各位大侠,如何在WIN2000下重启计算机。 不爱说话的男生怎么找女朋友呀 急! datagrid的第一列是空白列,怎么才能删除掉 在textBox上点一下,textbox中的文字清空,接受用户输入,怎么实现? 请问如何补齐笔划 如何在一个表里实现某一个字段的值都加一呢 有关xp中bios的几个问题 "评选最具实力的汇编、底层的开发论坛。" 这个帖子怎么不见了????里面有我急需的东西啊!!!! 大家帮帮我啊(让我郁闷好长时间了) 救助 谁有 中文Lotus Domino R5 Web开发指南 下载? 为什么我的jsp在weblogic里部署后老是乱码? 数组元素的合并,头痛 请问listview中item的data属性 是怎样存入和读取的??????????????????????????????????????? 用MSCOMM出了DEBUG,现在想改用API,但有几个问题不明白,请各位高手进来帮忙!! 哪位大大哥会让IIS6.0支持PHP和CGI?要多少分我都送! 我用FlatStyle里的TflatTitlebar,如何做出像优化大师标题栏一样的渐变色? WIN98\W2000雙系統問題 如何辨别ADSL是否有端口映射功能? 急啊!!!在线等 请问如何在VC中实现SDK,或者打开并断点运行SDK程序代码啊? asp如何控制时间? 如何在一个表里实现某一个字段的值都加一呢 怎样在WinRunner中使用TSL读取Excel中的内容??? XP的电源问题 请问关于SDK-ipconfig.cpp程序的断点运行! 怒了,还是关于两个JFrame传值的问题,100分!!! 请问这个判断应该怎样写? 我建立的anywhere数据库 *.db 怎么给库里的表增加记录! win2000 server中的active directory 到底应如何使用 奇怪盘的用途 关于提交与页面刷新,问了又问? 一个站点下两个根目录? 诺顿严重卸载问题 jsp 和 servlet的数据传递问题 求教版主:关于LDAP 我有java帮助文件jdk.hlp,如何加到jcreator上的jdk帮助上去呢 再问个问题!请帮忙看一下,先谢谢了1 msn的登录问题 我太菜了,清问高手全局变量在哪里定义 有关sql server 2000 jdbc 设置的一个菜鸟问题 sybase 作文There are three ways to make the Internet safer for your children-hardware,softwareand underwea不要直接翻译,这是英语看图作文图上的文字,我需要理解过的意思,如果有写好的例文更好这段话的意思我知道, 我的空题谁能解决 求不定积分, There are two ways to make____English interesting.A.to learn B.learning为什么不能选A,要理由, 帮忙解决一下空题,谢谢 求下列不定积分, 醉翁亭记是否要背? 叫的关于感恩亲情的故事 如图,一次函数y=x+1和反比例函数y=2/x的图像相交与点A,点B(1)求A,B两点的坐标(2)利用图像说明x为何值时,y大于y1(3)求△AOB的面积(O为坐标原点) 我要问一下有理数混合运算化简后,运用加法结合律要不要用括号?九点二十以前的追加 城市社区和农村社区的各自的含义以及两者的区别谢谢大家了 急用啊回答的好的追分啊 答案说是选B我怎么也不理解? 高中物理追及问题中两车相撞的条件到底是什么这题:不要给我复制黏贴,我答案都知道,老师方法我也知道,但是就是想知道我哪里错了摩托车以速度v1沿平直公路行驶,突然驾驶员发现正前方 “凹”字一共多少笔画? 客观什么意思? 必修1的44页,12题由于扳道工的失误,有两列客运列车都以75km/h的速度在同一铁路线上相向而行.已知列车刹车时能产生的最大加速度为0.4m/s²,为了避免车祸的发生,两列列车的驾驶员至少要在 凹字的笔画 第七题为什么不选c只选b呢 两辆汽车追及问题(懂的进来)在高速公路的超车道上,一辆车身长4米,速度为100的轿车准备超越一辆长12米,速度为80千米|时的货车,从轿车追上货车开始计时,轿车超越货车需要 秒(结果保留2个 一个口,里面一个女,是什么字?懒得查字典了读音 c# 坐标轴画图 甲、乙两车从同一地点同向行驶(追及问题)甲、乙两车从同一地点同向行驶,但是甲车做匀速直接运动,其速度为v=20m/s,乙车在甲车行驶至距离出发地2000m处时开始以初速度为零,加速度为a=2m/s 英语阅读每句话里我都有不认识的词怎么做啊 按要求写句子:Cindy,be happy、sad Is Cindy happy or sad?the students,are playing basketball、football 答对追分某人站在在斜面抛物体,V0恒定,如何角度可以获得最大位移?分别站在斜面上部往下,和下部往上抛.解释得清楚的追分.可以给出推倒吗追分?如果在斜面上,向斜面高处抛呢? 根号256等于?, 客观是什么意思? 我要再明白不过的答案~`? 写一个表现母爱的句子,用上“无微不至”. 一只足球以10m/s的速度沿正东方向运动,运动员飞起一脚,使足球以20m/s的速度向正西方向飞去,运动员的作用时间为0.1s,求足球获得的加速度的大小和方向. 王阳明的“致良知”学说怎样理解?其中“致”是什么意思? 出色的答非所问这篇文章 一个足球以10m/s的速度沿正东方向运动,运动员飞起一脚,足球便以20m/s的速度向正西方向飞去,运动员和足球的作用时间为0.1s,求足球获得加速度的大小和方向. 化简求值 [(x+2y)(x-2y)-(2x-y)ˆ2+(3x+y)(2x+5y)]÷(-1/2x),其中x=3,y=1. 写一个表现母爱的句子,用上“无微不至”、“我爱您”及“谢谢” 足球以10m/s的速度飞来,被运动员以16m/s的速度反方向踢回,若以足球飞来的方向为正方向足球速度的变化量为多少若运动员与足球的接触时间为0.5秒,足球的平均加速度为多少 怎样用王阳明先生“致良知”的理论来克服人性的弱点呢,譬如 惰性,私欲. 写一句表现母爱的句子,用上“ 无微不至 ”一词. 我的中文名叫陈烨,想起一个相关的英文名.名字叫陈烨,取个和名字有关的英文名叫什麽呢? 王阳明“致良知”学说的弊端. 从30米高的楼顶处,以5米每秒的初速度竖直下抛一个球,g取10N,求经多长时间小球落地? 请问null和空值,没有,零有什么区别? 黄的笔顺怎么写 qaq是什么意思 以5m/s上升的气球,当升到20m高时从气球上落下一小球,小球的质量为500g,小球在运动过程中遇到阻力是0.1N,求经过多长时间到达地面(g取9.8) 作文题目《合作》我眼里的合作在社会变革日新月异的今天,合作重新被人们所重视,合作不在只是一种商业运营方式,而逐渐变为一种精神,成了推动社会发展不可或缺的巨大动力。合作 请问QAQ是什么意思?听到朋友说QAQ,就在想这是什么意思,请问是什么意思呀? VS中的C环境已将如何返回空值,因为NULL已被定义为0我定义了一个函数,需要返回顺序表的类型,出错时返回空值(NULL),但在VS的C++环境中提示#define NULL 0,不能返回NULL值,此时该怎么办系统定义 黄的笔画有多少如题 黄这个字到底有多少划阿`为什么有的是11有的是12呢 漂亮作出色讲是什么意思造句 总质量为20KG的小球,从地面以5M每秒的速度匀速上升,第六秒末从气球上落下一4KG重物,物体着地时求气球高解析清楚点,不求答案求思路 f(x)=(a+1)lnx+ax'+1 讨论其单调性((')表示平方) 写一个表现母爱的句子 用上无微不至 一次函数y=-3/4x+3的图像与x轴,y轴分别交于A,B两点,则坐标原点O到直线AB的距离为要过程,谢了 已知函数f(x)=(2a-3)lnx+ax的平方+1 的单调性急 急 急 上边一个处,下边一个口是什么字?事先说明不是谜语,是我懒得查字典.要读音就行 “NULL”为什么在计算机中表示空值? 说话客观的意思 在初中几何中“两相交线对角相等”有这个定义吗 用初三的生物学来解答生活中的问题(需要用实验来证明) “ ╮ ” 谁告诉告诉我这符号是咋打的?没人知道吗…… 是 ╮ 不是 、 奥运冠军孙杨驾卡宴被公交车追尾 涉嫌习近平赴湘西调研扶贫攻坚习近平摘柚子:“这是技术活”第六届“汉语桥”世界中学生中文比赛闭孙杨驾车发生交通事故 涉嫌无证驾驶警“不断适应形势的变化”——国际分析人巴基斯坦塔利班任命临时首领菲律宾南部海域发生6级地震哈马斯称缴获一架以色列无人侦察机朝鲜海军数十名官兵在执行战斗任务时身奶源大省河北出现乳品抢购风 乳品涨价CNN恶意报道北京\"10·28\"德城市疏散两万居民拆除二战炸弹中国当代雕塑入选法国卢浮宫非遗展德国西部城市多特蒙德疏散两万居民拆除广西以制度给高官划\"红线\"标\"记协召开“打击新闻敲诈、加强行业自律尼泊尔发生180多起“反选举”暴力活李克强:改革已进深水区 必须敢于打破伊朗最高领袖对核谈“不乐观”国际晚班车:外交官的家庭生活克林姆特作品中的中国元素梵高写信告诉弟弟他喜欢这个艺术家,并江苏泗洪县长王晓东:让更多人参与全民山东航空飞海口航班2个主轮胎爆胎 无南苏丹反对派领导人返回首都参与组建过德国汉莎航空因罢工取消近900趟航班索罗斯频频唱衰“夭折” 一语震惊:中铜锣烧带着去春游的快手美味炼乳紫薯菊花面包李克强在四川考察:奋力实现全面小康目《世界搏击》全媒体平台资源推介会在北浙江一故意杀人案致2死2伤 警方发B夫妻发生家庭矛盾 女子负气上高速欲徒广西首所国际合作足球学校揭幕“映像丝路”沙雕艺术节在福建漳浦启动安徽4人涉嫌非法经营疫苗被批捕中青年侨领聚杭寻桑梓情 探讨海外侨社“创客中国·寻找中国好项目”走进福建浙江富阳10余位村民被骗 身陷收押金马总理:马来西亚将在2020年如期迈福建永定三人涉嫌拐卖儿童被判刑
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘