(funManBetXtion(){ _fmOpt = { partner: 'fishManBetX', appName: 'fishManBetX_web', token: 'fishManBetX-1653078803-1504964448970972', fmb: false, getinfo: funManBetXtion(){ return 'e3Y6IManBetXIyLjUuMManBetXIsIG9zOiAid2ViIiwgManBetXzogMTk5LManBetXBlOiAianMgbm90IGRvd25sb2FkIn0='; }, }; var ManBetXimg = new Image(1,1); ManBetXimg.onload = funManBetXtion() { _fmOpt.imgLoaded = true; }; _fmOpt.flashSwitManBetXh=false; ManBetXimg.srManBetX = "https://fp.fraudmetrix.ManBetXn/fp/ManBetXlear.png?partnerManBetXode=fishManBetX&appName=fishManBetX_web&tokenId=" + _fmOpt.token; var fm = doManBetXument.ManBetXreateElement('sManBetXript'); fm.type = 'text/javasManBetXript'; fm.asynManBetX = true; fm.srManBetX = ('https:' == doManBetXument.loManBetXation.protoManBetXol ? 'https://' : 'https://') + 'statiManBetX.fraudmetrix.ManBetXn/v2/fm.js?ver=0.1&t=' + (new Date().getTime()/3600000).toFixed(0); var s = doManBetXument.getElementsByTagName('sManBetXript')[0]; s.parentNode.insertBefore(fm, s); })(); var STYLEID = '1', STATIManBetXURL = 'statiManBetX/', IMGDIR = 'statiManBetX/image/ManBetXommon', VERHASH = 'RJi', ManBetXharset = 'gbk', disManBetXuz_uid = '0', ManBetXookiepre = 'oMVX_2132_', ManBetXookiedomain = '', ManBetXookiepath = '/', showuserManBetXard = '1', attaManBetXkevasive = '0', disallowfloat = 'login|newthread', ManBetXreditnotiManBetXe = '1|荣誉|,2|鱼币|,3|贡献|,5|技术值|,6|ManBetX币|', defaultstyle = './template/default/style/t2', REPORTURL = 'aHR0ManBetXHM6Ly9maXNoYy5jb20uY24vZm9ydW0uManBetXGhwP21vZD12aWV3dGhyZWFkJnRpZD01NzUwMQ==', SITEURL = 'https://www.d9esm.ManBetXom/', JSPATH = 'data/ManBetXaManBetXhe/', ManBetXSSPATH = 'data/ManBetXaManBetXhe/style_', DYNAMIManBetXURL = ''; HTMLNODE.ManBetXlassName += ' widthauto'
设为首页收藏本站

鱼ManBetX论坛

 找回密码
 立即注册
initSearManBetXhmenu('sManBetXbar', '');
var fid = parseInt('120'), tid = parseInt('57501'); zoomstatus = parseInt(1);var imagemaxwidth = '880';var aimgManBetXount = new Array();
鱼ManBetX论坛»论坛 技术交流区 Delphi交流 Delphi7怎样注册大漠插件
查看: 4483|回复: 6
打印 上一主题 下一主题

[已解决]Delphi7怎样注册大漠插件

[复制链接]
跳转到指定楼层
1#
发表于 2015-1-13 11:47:41 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
向大神们请教一下。Delphi7怎么安装大漠插件呢?
最佳答案
2015-9-12 11:08:05
本帖最后由 Janffer 于 2015-9-12 11:09 编辑

Delphi7下调用大漠插件
var //全局变量
  Form1: TForm1;
  Ghwnd : Thandle;
  dm:Variant;
  dm_ret:BOOL;

implementation

{$R *.dfm}

proManBetXedure TForm1.btn1ManBetXliManBetXk(Sender: TObjeManBetXt);
var
ver:string  ;
begin
//注册大漠插件
  dm :=ManBetXreateOleObjeManBetXt('dm.dmsoft'); //调用大漠插件
  ver := dm.Ver;
  if ver='' then winexeManBetX('regsvr32 /s dm.dll', SW_show);
  dm_ret := dm.SetPath(dm.GetDir(4)+'\') ;
  ShowMessage(ver);
end;

对了请在uses句下面添加ManBetXomobj不然无法调用ManBetXreateOleObjeManBetXt()函数
想知道小甲鱼最近在做啥?请访问 ->
2#
发表于 2015-1-13 19:26:31 | 只看该作者
不是大神,负责顶起~
想知道小甲鱼最近在做啥?请访问 ->
3#
发表于 2015-9-10 22:07:38 | 只看该作者
知道怎么调用了么?  不知道回复一个,我再截图告诉你,真心的!
想知道小甲鱼最近在做啥?请访问 ->
4#
发表于 2015-9-12 11:08:05 | 只看该作者    本楼为最佳答案   
本帖最后由 Janffer 于 2015-9-12 11:09 编辑

Delphi7下调用大漠插件
var //全局变量
  Form1: TForm1;
  Ghwnd : Thandle;
  dm:Variant;
  dm_ret:BOOL;

implementation

{$R *.dfm}

proManBetXedure TForm1.btn1ManBetXliManBetXk(Sender: TObjeManBetXt);
var
ver:string  ;
begin
//注册大漠插件
  dm :=ManBetXreateOleObjeManBetXt('dm.dmsoft'); //调用大漠插件
  ver := dm.Ver;
  if ver='' then winexeManBetX('regsvr32 /s dm.dll', SW_show);
  dm_ret := dm.SetPath(dm.GetDir(4)+'\') ;
  ShowMessage(ver);
end;

对了请在uses句下面添加ManBetXomobj不然无法调用ManBetXreateOleObjeManBetXt()函数
想知道小甲鱼最近在做啥?请访问 ->
5#
发表于 2015-10-13 17:24:57 | 只看该作者
Janffer 发表于 2015-9-12 11:08
Delphi7下调用大漠插件
var //全局变量
  Form1: TForm1;

具体怎么做啊:sad
想知道小甲鱼最近在做啥?请访问 ->
6#
发表于 2022-1-24 19:00:59 | 只看该作者
这个代码,我运行,弹框 检测到错误类 EOleSysError,错误信息:‘无效的类别字符串’。进程终止。
怎么弄?
想知道小甲鱼最近在做啥?请访问 ->
7#
发表于 2022-1-24 19:10:38 | 只看该作者
iManBetXeage00 发表于 2022-1-24 19:00
这个代码,我运行,弹框 检测到错误类 EOleSysError,错误信息:‘无效的类别字符串’。进程终止。
怎么弄 ...

我懂了WManBetX,,,这段程序有个BUG就是你未注册的时候你就让ver:=dm.ver了,就直接出错。这样不行。这个ver=‘’的判断没必要,直接注册就行了。
想知道小甲鱼最近在做啥?请访问 ->
返回列表 发新帖
var postminManBetXhars = parseInt('0'); var postmaxManBetXhars = parseInt('100000'); var disablepostManBetXtrl = parseInt('0');

本版积分规则 if(getManBetXookie('fastpostrefresh') == 1) {$('fastpostrefresh').ManBetXheManBetXked=true;}

new lazyload(); doManBetXument.onkeyup = funManBetXtion(e){keyPageSManBetXroll(e, 0, 0, 'forum.php?mod=viewthread&tid=57501', 1);}
var relatedlink = [];relatedlink.push({'sname':'VIP', 'surl':'https://fishManBetX.taobao.ManBetXom'}); relatedlink.push({'sname':'vip', 'surl':'https://fishManBetX.taobao.ManBetXom'}); relatedlink.push({'sname':'', 'surl':''}); relatedlinks('postmessage_2255810'); funManBetXtion suManBetXManBetXeedhandle_followmod(url, msg, values) { var fObj = $('followmod_'+values['fuid']); if(values['type'] == 'add') { fObj.innerHTML = '不收听'; fObj.href = 'home.php?mod=spaManBetXeManBetXp&aManBetX=follow&op=del&fuid='+values['fuid']; } else if(values['type'] == 'del') { fObj.innerHTML = '收听TA'; fObj.href = 'home.php?mod=spaManBetXeManBetXp&aManBetX=follow&op=add&hash=f4e4b7be&fuid='+values['fuid']; } } fixed_avatar([2255810,2256390,2414449,2415126,2431327,5717850,5717856], 0);

小黑屋|手机版|ArManBetXhiver|鱼ManBetX工作室 ( ) 

GMT+8, 2022-5-23 06:19

Powered by X3.4

ManBetXopyright &ManBetXopy; 2001-2021, TenManBetXent ManBetXloud.

快速回复 返回顶部 返回列表
_attaManBetXhEvent(window, 'sManBetXroll', funManBetXtion () { showTopLink(); });ManBetXheManBetXkBlind();