PB7调用C# dll

前段时间有个业务需求要在PB程序里上传文件到文件服务器(文件上传服务是个Java Web Service),由于PB7在调用Web service方面存在很多的弊端,而且极其不好用,所以决定用C#2005写个dll,给PB调用。PB通过调用c# dll实现文件上传。现在问题变成了PB如何调用C#写的dll和C#如何调用Java Web Service,由于C#调用Java Web Service很方便而且资料也很多,所以本文接下去只讨论PB如何调用C#写的dll?

1.C# dll制作

<!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:PunctuationKerning /> <w:DrawingGridVerticalSpacing>7.8 磅</w:DrawingGridVerticalSpacing> <w:DisplayHorizontalDrawingGridEvery>0</w:DisplayHorizontalDrawingGridEvery> <w:DisplayVerticalDrawingGridEvery>2</w:DisplayVerticalDrawingGridEvery> <w:ValidateAgainstSchemas /> <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid> <w:IgnoreMixedContent>false</w:IgnoreMixedContent> <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText> <w:Compatibility> <w:SpaceForUL /> <w:BalanceSingleByteDoubleByteWidth /> <w:DoNotLeaveBackslashAlone /> <w:ULTrailSpace /> <w:DoNotExpandShiftReturn /> <w:AdjustLineHeightInTable /> <w:BreakWrappedTables /> <w:SnapToGridInCell /> <w:WrapTextWithPunct /> <w:UseAsianBreakRules /> <w:DontGrowAutofit /> <w:UseFELayout /> </w:Compatibility> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><!--[if gte mso 9]><xml> <w:LatentStyles DefLockedState="false" LatentStyleCount="156"> </w:LatentStyles> </xml><![endif]--> <!-- /* Font Definitions */ @font-face {font-family:宋体; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-alt:SimSun; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;} @font-face {font-family:Mangal; panose-1:0 0 4 0 0 0 0 0 0 0; mso-font-charset:1; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:32768 0 0 0 0 0;} @font-face {font-family:新宋体; panose-1:2 1 6 9 3 1 1 1 1 1; mso-font-charset:134; mso-generic-font-family:modern; mso-font-pitch:fixed; mso-font-signature:3 135135232 16 0 262145 0;} @font-face {font-family:"\@宋体"; panose-1:2 1 6 0 3 1 1 1 1 1; mso-font-charset:134; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:3 135135232 16 0 262145 0;} @font-face {font-family:"\@新宋体"; panose-1:2 1 6 9 3 1 1 1 1 1; mso-font-charset:134; mso-generic-font-family:modern; mso-font-pitch:fixed; mso-font-signature:3 135135232 16 0 262145 0;} /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; text-align:justify; text-justify:inter-ideograph; mso-pagination:none; font-size:10.5pt; mso-bidi-font-size:12.0pt; font-family:"Times New Roman"; mso-fareast-font-family:宋体; mso-bidi-font-family:"Times New Roman"; mso-font-kerning:1.0pt; mso-bidi-language:AR-SA;} /* Page Definitions */ @page {mso-page-border-surround-header:no; mso-page-border-surround-footer:no;} @page Section1 {size:612.0pt 792.0pt; margin:72.0pt 90.0pt 72.0pt 90.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} /* List Definitions */ @list l0 {mso-list-id:1250432972; mso-list-type:hybrid; mso-list-template-ids:-202473684 1963479908 515824166 67698715 67698703 67698713 67698715 67698703 67698713 67698715;} @list l0:level1 {mso-level-text:%1); mso-level-tab-stop:39.0pt; mso-level-number-position:left; margin-left:39.0pt; text-indent:-18.0pt;} @list l0:level2 {mso-level-number-format:alpha-lower; mso-level-text:"%2\)"; mso-level-tab-stop:60.0pt; mso-level-number-position:left; margin-left:60.0pt; text-indent:-18.0pt;} ol {margin-bottom:0cm;} ul {margin-bottom:0cm;} --> <!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:普通表格; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman"; mso-ansi-language:#0400; mso-fareast-language:#0400; mso-bidi-language:#0400;} </style> <![endif]-->

<!--[if !supportLists]-->1) <!--[endif]-->新建工程,工程类型为“类库”,即工程编译之后能得到dll,假设工程名称为CallForPB,默认的命名空间也为CallForPB;

<!--[if !supportLists]-->2) <!--[endif]-->工程的属性设置,主要有下述2个重要的技术点,如不设置的话,PB无法访问编译之后的dll

<!--[if !supportLists]-->a) <!--[endif]-->在“生成”属性页中把“为Com Interrop注册”选项勾上

<!--[if !supportLists]-->b) <!--[endif]-->在AssemblyInfo.cs程序集信息文件中,设置[assembly: ComVisible(true)]

c) 新建一个类,命名为ServiceProvider,其有个方法uploadFile(string fileName);

d) 至于uploadFile方法如何调用WEB Service上传文件,这里不再细说。

3)编译生成CallForPB.dll文件,编译的时候C# 2005就会为该dll写注册表信息。


2. PB如何调用该dll

1)如果pb程序开发和刚才提到的C#dll开发在同一台机器的话,那么不需要写注册表信息,因为C#2005在编译生成该dll文件的时候已经在注册表中写入com服务注册信息了。如果不是的话,就要导入注册表信息,大概如下:

[HKEY_CLASSES_ROOT\CLSID\{A4C29508-149C-3D3A-B68D-5D5103E79AEF}]
@="CallForPB.ServiceProvider"

[HKEY_CLASSES_ROOT\CLSID\{A4C29508-149C-3D3A-B68D-5D5103E79AEF}\Implemented Categories]

[HKEY_CLASSES_ROOT\CLSID\{A4C29508-149C-3D3A-B68D-5D5103E79AEF}\Implemented Categories\{62C8FE65-4EBB-45e7-B440-6E39B2CDBF29}]

[HKEY_CLASSES_ROOT\CLSID\{A4C29508-149C-3D3A-B68D-5D5103E79AEF}\InprocServer32]
@="mscoree.dll"
"ThreadingModel"="Both"
"Class"="CallForPB.ServiceProvider"
"Assembly"="CallForPB, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null"
"RuntimeVersion"="v2.0.50727"
"CodeBase"="file:///C:/WINDOWS/system32/CallForPB.dll"

[HKEY_CLASSES_ROOT\CLSID\{A4C29508-149C-3D3A-B68D-5D5103E79AEF}\InprocServer32\1.0.0.0]
"Class"="CallForPB.ServiceProvider"
"Assembly"="CallForPB, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null"
"RuntimeVersion"="v2.0.50727"
"CodeBase"="file:///C:/WINDOWS/system32/CallForPB.dll"

[HKEY_CLASSES_ROOT\CLSID\{A4C29508-149C-3D3A-B68D-5D5103E79AEF}\ProgId]
@="CallForPB.ServiceProvider"

[HKEY_CLASSES_ROOT\CallForPB.ServiceProvider]
@="CallForPB.ServiceProvider"

[HKEY_CLASSES_ROOT\CallForPB.ServiceProvider\CLSID]
@="{A4C29508-149C-3D3A-B68D-5D5103E79AEF}"

大家可以通过在C#dll开发机上搜索注册表信息得到详细注册信息,然后将其导出即可。

2)PB调用dll,假设是w_frame窗体调用

a)申明一个窗体变量:OLEObject callForPB

b)在open事件里,初始化callForPB

int li_return
//
callForPB= create OLEObject
li_return = callForPB.ConnectToNewObject("CallForPB.ServiceProvider")
//初始化失败
if li_return < 0 then
messagebox('load ocx error',li_return)
DESTROY callForPB
close(this)
end if

c)在close时间销毁callForPB

if not isnull(callForPB) then
destroy callForPB
end if

d)调用uploadFile函数

callForPB.uploadFile(文件路径);


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值