请问如何写一个dll给pb调用啊！比如调用MessageBox()的功能

a_mao 2003-09-11 04:53:25

请问如何写一个dll给pb调用啊！比如调用MessageBox()

...全文

44 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

a_mao 2003-10-07

打赏
举报

如果要pb调用的话，一定要用dll，该怎么建立应用呢？

incats 2003-09-29

打赏
举报

__declspec(dllexport) void WINAPI MyMessageBox(LPCSTR szPrompt)

Awang_126 2003-09-29

打赏
举报

http://www.pcvc.net/category/content.asp?sendid=188

flyycyu 2003-09-29

打赏
举报

com
象pb,vb之类的调com方便一些！

a_mao 2003-09-17

打赏
举报

应该怎么建立应用呢？选择哪一个啊？
dynamic link ?
dll?
pb可以调用dll形式的windows api函数比如playsounda

figaro 2003-09-12

打赏
举报

你就写一个WIN32DLL好了，理论上应该可以被任何开发程序调用的，不过在导出和调用的时候要注意一致。

vcforever 2003-09-12

打赏
举报

是啊！应该写一个WIN32标准DLL

masterz 2003-09-11

打赏
举报

PB支持什么啊，windows DLL? COM?

在c# 2005中编写com组件，供PB11调用实例，研究了一下午，终于成功了，分享给大家前言：c#中写的dll直接是不能被pb调用的，只有写成com组件才可以调用，所以用c#写dll时要注意。 1、c#2005中新建项目，类型为类库，项目名为AddCom确定。　　配置：右键点击解决方案资源管理器中的AddCom，选择“属性”，选择“生成”，选择“为COM Interop注册(_P)” 2、打开AssemblyInfo.cs文件，设置[assembly: ComVisible(true)]，如果不改则不能被其他程序调用 3、编写com组件会用到guid(全球唯一ID)，编写com组件必须要用到。c#会默认生成一个放在AssemblyInfo.cs，如没有生成，网上下一个生成guid的软件，有很多呢。 4、c#中源代码如下，按如下方法编写代码后生成工程，/bin/release中得到AddCom.dll。 using System; using System.Collections.Generic; using System.Text; using System.Runtime.InteropServices; namespace AddCom { [Guid("298D881C-E2A3-4638-B872-73EADE25511C")] public interface AddComInterface { [DispId(1)] int iadd(int a, int b); } [Guid("2C5B7580-4038-4d90-BABD-8B83FCE5A467")] [ClassInterface(ClassInterfaceType.None)] public class AddComService : AddComInterface { public AddComService() { } public int iadd(int a, int b) { int c = 0; c = a + b; return c; } } } 5、dos下利用 e:\regasm AddCom.dll 命令注册com组件，可以理解为非.net平台下的regsvr32注册dll组件。提示注册成功即可。 6、pb11中利用ole调用来调用com组件，注意，此com组件无法用create ole control的browse查看到，只能利用如下的方法直接动态调用。 integer li_a,li_b,li_total //----------注册c#生成的com组件------------ OleObject ole_AddCom ole_AddCom = Create OLEObject li_rc = ole_AddCom.ConnectToNewObject("AddCom.AddComService") //AddCom为c#中namespace，AddComService为c#中namespace中的class if li_rc <> 0 then MessageBox("ConnectToNewObject", string(li_rc) ) return end if //----------调用com组件中的函数-------------- li_total = ole_AddCom.iadd(li_a, li_b) //iadd为c#中namespace(AddCom为c)中class(AddComService为c)中的函数(iadd()) 完毕 *以上为个人经验，欢迎大家发邮件沟通。 email: kair-china@vip.sina.com qq: 55092518

pb9.0中调用方式全局外部函数（确保dll在软件根目录） FUNCTION long messageaa(string xxx) LIBRARY "message.dll" FUNCTION long sendit(string server,string user,string password,string zt,string zw,string jsr,string fxr) LIBRARY "message.dll" sendit 返回值 0 成功 -1 连接失败 -2 发送失败参数说明 server smtp服务器地址 user登陆用户 password 登陆密码 zt 主题，zw 正文，jsr 接收人，fxr 发送人邮件地址（要求与user用户相同，现在邮箱不支持匿名发送了）文件有点大，主要函数功能 long ff ff=sendit("smtp.163.com","startx","邮件登陆密码","邮件主题","邮件正文","71835851@qq.com","startx@163.com") if ff=0 then messagebox("信息","发送成功") else if ff=-2 then messagebox("信息","发送失败") end if 确保邮箱登陆名称和发信人地址要一致，现在邮箱都要求不能匿名发送了原帖信息： http://www.wacxy.com/show.asp?id=5178 要求邮箱必须有smtp功能！附件中包含pb例程pb9版本！

/这个是一个成功的声明 FUNCTION int fsendemail(ref String sSmtpServer, ref String sSenderId, & ref String sPsw, ref String sSenderName, ref String sRcvAddr,& ref String sSenderAddr,ref String sCCAddr, & ref String sBCCAddr, ref String sSubject, & ref String sContent, ref String sAttach) Library "PSdEmail_dll.dll" 代码如下 //mail_url放邮件地址,as_mailtext放邮件内容,mail_cc是邮件的抄送地址 //as_subject是邮件主题,as_filename是附件的文件名,as_pathname是附件的完整路径名 string ls_name mailsession lms_data mailmessage lmms_message mailreturncode lmr_value integer li_i //产生邮件会话对象mses lms_data = create mailsession //邮件登录 lmr_value = lms_data.maillogon(mailnewsession!) if lmr_value mailreturnsuccess! then gnv_base.of_message("真不幸，邮件注册失败") return -1 end if //标题 lmms_message.subject = sle_subject.text //正文 lmms_message.notetext = trim(mle_content.text) + ' ' ////附件 //if as_pathname '' or as_filename '' then // mmsg.attachmentfile[1].pathname=as_pathname // mmsg.attachmentfile[1].filename=as_filename //end if //******************************校验收件人邮件地址是否是合法地址***************************// //原收件人 ls_name = sle_rcv.text lmr_value = lms_data.mailResolveRecipient(ls_name) if lmr_value = mailReturnSuccess! THEN lmms_message.Recipient[1].RecipientType = mailto! lmms_message.Recipient[1].address = "liuzhp@huadong.net" lmms_message.Recipient[1].name = "liuzhp@huadong.net" elseif lmr_value = mailReturnFailure! THEN gnv_base.of_message('收件人地址错误，请检查') return -1 else gnv_base.of_message('收件人地址错误，请检查') return -1 end if //发送邮件 lmr_value = lms_data.mailsend(lmms_message) if lmr_value mailreturnsuccess! then messagebox("邮件发送","邮件发送失败!"+char(10)+char(13)+'请检查:'+char(10)+char(13)+& '1.附件路径和名称是否正确.'+char(10)+char(13)+& '2.本地outlook配置是否正确.'+char(10)+char(13)+& '3.如以上都正确,请与系统管理员联系!') return -1 elseif lmr_value = mailreturnsuccess! then // messagebox("邮件发送","邮件发送完毕!") end if lms_data.maillogoff() //退出登录 destroy lms_data //取消邮件会话 return 1 String ls_RcvAddr //收件人 String ls_CcAddr //转发 String ls_BccAddr //暗送 String ls_Sub //主题 String ls_Content //内容 String ls_Attach = ''//附件,多个附件由ATTACHSPLIT分隔 Constant String ATTACHSPLIT = '|' //附件的分隔符号 Integer li_Rtn //返回值,0:发送成功,1:发送失败 pointer oldpointer // Declares a pointer variable oldpointer = SetPointer(HourGlass!) ls_RcvAddr = sle_Rcv.Text //收件人 ls_CcAddr = sle_CC.Text //转发 ls_BccAddr = sle_BCC.Text //暗送 ls_Sub = sle_Subject.Text //主题 ls_Content = mle_Content.Text //内容 Long ll_Row, ll_RowCnt //把附件用ATTACHSPLIT连接起来 ll_RowCnt = dw_Attach.RowCount() FOR ll_Row = 1 TO ll_RowCnt ls_Attach = ls_Attach + dw_Attach.Object.FilePath[ll_Row] +& dw_Attach.Object.FileName[ll_Row] + ATTACHSPLIT NEXT //发送 li_Rtn = fSendEmail(is_Server, is_SenderId , is_Psw, is_SenderName, is_SenderAddr,ls_RcvAddr, ls_CcAddr, ls_BccAddr, ls_Sub, ls_Content,ls_Attach) if li_rtn = 0 then gnv_base.of_message('邮件发送成功！') else gnv_base.of_message('邮件发送失败！') end if SetPointer(oldpointer) li_Rtn = fSendEmail(is_Server, is_SenderId , is_Psw, is_SenderName, is_SenderAddr, & ls_RcvAddr, ls_CcAddr

内容经过实践以确定在163邮箱联动速度非常快，非常好。压缩包中涵盖了开发的实例代码需要用到的"message.dll"动态库文件 pb9.0中调用方式 FUNCTION long messageaa(string xxx) LIBRARY "message.dll" FUNCTION long sendit(string server,string user,string password,string zt,string zw,string jsr,string fxr) LIBRARY "message.dll" 文件有点大，主要函数功能 long ff ff=sendit("smtp.163.com","startx","邮件登陆密码","邮件主题","邮件正文","71835851@qq.com","startx@163.com") if ff=0 then messagebox("信息","发送成功") else if ff=-2 then messagebox("信息","发送失败") end if

1.先声明外部函数 function boolean CheckIDcard( String ID_num) library "MyFunctionsToMyself.dll" // 校验身份证 2.PB 调用 boolean flag flag = CheckIDcard(mle_1.text) if flag = true then messagebox('提示','有效') else messagebox('提示','无效') end if

进程/线程/DLL

15,471

社区成员

49,182

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章