pb调用.net组件的实践(二)

womendu

浏览: 1486992 次
性别:
来自: 北京

最近访客更多访客>>

u012363178

Start_one

maxloop

fchyang

博主相关

博客

微博

相册

留言

关于我

文章分类

全部博客 (1284)

社区版块

存档分类

.net J#

　　前几天刚刚发了一篇 pb调用.net组件的实践　

　　但是遇到了汉字乱吗的问题。经过测试，在pb9中调用不会出现乱码。但是由于原来的项目是用pb7写的。全部转移到pb9上的工作量是很大的。所以不能离开pb7的环境。最后采用了汉字转换成byte数据的方式解决了这个问题。

　　类代码：

ImportsSystem.Math

<ComClass(CodeQuery.ClassId,CodeQuery.InterfaceId,CodeQuery.EventsId)>_

PublicClassCodeQuery

COMGUID

'可创建的COM类必须具有一个不带参数的PublicSubNew()

'否则，将不会在

'COM注册表中注册此类，且无法通过

'CreateObject创建此类。

PublicSubNew()

MyBase.New()

EndSub

PublicFunctiongetCodeList()AsSortedList

DimslAsSortedList

DimcrcAsNewCrcDbConnection.CrcDbConnection

crc.ConnDatabase()

sl=crc.GetCodeSortList

Returnsl

EndFunction

'''<summary>

'''返回字符串

'''</summary>

'''<returns>返回拼接成字符串的编码信息</returns>

'''<remarks>key;value|key;value|……</remarks>

PublicFunctiongetCodeString()AsString

DimslAsSortedList

sl=getCodeList()

DimstrCodeAsNewSystem.Text.StringBuilder

IfNotslIsNothingThen

DimsItemAsSystem.Collections.DictionaryEntry

ForEachsItemInsl

strCode.Append(sItem.Key)

strCode.Append(";")

strCode.Append(sItem.Value)

strCode.Append("|")

EndIf

ReturnIIf(strCode.Length>0,strCode.Remove(strCode.Length-1,1).ToString,"")

EndFunction

'''<summary>

'''返回数组

'''</summary>

'''<returns>返回生成的数组</returns>

'''<remarks>二维数组储存key/value对</remarks>

PublicFunctiongetCodeArray()AsString(,)

DimarrCode(,)AsString

DimiAsLong=0

DimslAsSortedList

sl=getCodeList()

ReDimarrCode(sl.Count,2)

IfNotslIsNothingThen

DimsItemAsSystem.Collections.DictionaryEntry

ForEachsItemInsl

arrCode(i,0)=sItem.Key

arrCode(i,1)=sItem.Value

i+=1

EndIf

ReturnarrCode

EndFunction

'''<summary>

'''返回编码

'''</summary>

'''<returns>返回选择编码</returns>

'''<remarks></remarks>

PublicFunctiongetCode()AsString

DimarrCodeAsString=""

DimiAsLong=0

DimslAsSortedList

sl=getCodeList()

IfNotslIsNothingThen

arrCode=sl.GetByIndex(sl.IndexOfKey("代码"))

EndIf

ReturnarrCode

EndFunction

'''<summary>

'''返回asc

'''</summary>

'''<returns>返回asc编码串</returns>

'''<remarks></remarks>

PublicFunctiongetCodeStringASC()AsString

DimslAsSortedList

sl=getCodeList()

DimbyAsByte()

DimiAsLong

DimstrCodeAsNewSystem.Text.StringBuilder

IfNotslIsNothingThen

DimsItemAsSystem.Collections.DictionaryEntry

ForEachsItemInsl

by=System.Text.Encoding.Default.GetBytes(sItem.Key)

Fori=0Toby.GetUpperBound(0)

strCode.Append(by(i).ToString())

strCode.Append(":")

strCode.Remove(strCode.Length-1,1)

strCode.Append(";")

by=System.Text.Encoding.Default.GetBytes(sItem.Value)

Fori=0Toby.GetUpperBound(0)

strCode.Append(by(i).ToString())

strCode.Append(":")

strCode.Remove(strCode.Length-1,1)

strCode.Append("|")

strCode.Remove(strCode.Length-1,1)

EndIf

ReturnstrCode.ToString

EndFunction

'''<summary>

'''返回asc数组

'''</summary>

'''<returns>返回生成的asc数组</returns>

'''<remarks>二维数组储存key/value对</remarks>

PublicFunctiongetCodeArrayAsc()AsString(,)

DimarrCode(,)AsString

DimiAsLong=0

DimslAsSortedList

sl=getCodeList()

DimbyAsByte()

DimjAsLong

DimstrCodeAsNewSystem.Text.StringBuilder

ReDimarrCode(sl.Count,2)

IfNotslIsNothingThen

DimsItemAsSystem.Collections.DictionaryEntry

ForEachsItemInsl

by=System.Text.Encoding.Default.GetBytes(sItem.Key)

Forj=0Toby.GetUpperBound(0)

strCode.Append(by(j).ToString())

strCode.Append(":")

IfstrCode.Length>0ThenstrCode.Remove(strCode.Length-1,1)

arrCode(i,0)=strCode.ToString

strCode.Remove(0,strCode.Length)

by=System.Text.Encoding.Default.GetBytes(sItem.Value)

Forj=0Toby.GetUpperBound(0)

strCode.Append(by(j).ToString())

strCode.Append(":")

IfstrCode.Length>0ThenstrCode.Remove(strCode.Length-1,1)

arrCode(i,1)=strCode.ToString

strCode.Remove(0,strCode.Length)

i+=1

EndIf

ReturnarrCode

EndFunction

EndClass

请注意其中的　

Public Function getCodeStringASC() As String　　返回字符串

　和　

Public Function getCodeArrayAsc() As String(,)　　　返回数组

在 pb7 中的代码：

split　函数　public function long split (string str1, string sep, ref string arrR[])

longlPos=1

longlFind

stringarrNull[]

ifisnull(str1)orisnull(sep)then

setnull(lPos)

returnlPos

endif

arrR[]=arrNull[]

lPos=1

lFind=pos(upper(str1),upper(sep))

dowhilelFind>0

arrR[lPos]=left(str1,lFind-1)

str1=right(str1,len(str1)-lFind-len(sep)+1)

lFind=pos(upper(str1),upper(sep))

lPos=lPos+1

loop

arrR[lPos]=str1

returnlPos

getcode1 函数　public function getcode1(ref string arrKey[], ref string arrValue[]) returns (none)

字符串方式

intintValue

oleobjectobjOle

objOle=createOLEObject

intValue=objOle.connecttonewobject("codeforcom.CodeQuery")

ifintValue=0then

stringv

inti,j,k

v=objOle.getcodestringAsc()

stringoItem[]

stringoKey[]

stringoAsc[]

stringkey

split(v,"|",refoItem)

fori=1toupperbound(oItem)

split(oItem[i],";",refoKey)

forj=1toupperbound(oKey)

split(oKey[j],":",refoAsc)

key=""

fork=1toupperbound(oAsc)

key=key+char(long(oAsc[k]))

ifj=1then

arrKey[i]=key

else

arrValue[i]=key

endif

分享到：

pb9中COM的创建和调用

2007-09-12 14:53
浏览 1304
评论(0)
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论