1,075
社区成员
发帖
与我相关
我的任务
分享
global type gf_createbmp from function_object
end type
forward prototypes
global function blob gf_createbmp (string as)
end prototypes
global function blob gf_createbmp (string as);long l,k,i,t
string q2
blob z,bmp
q2='0123456789ABCDEF'
k=len(as)
bmp=blob(fill('1',k/2))
t=1
for i= 1 to k step 2
l=((pos(q2,mid(as,i,1)) -1)*16)+(pos(q2,mid(as,i+1,1)) -1)
if l=0 then
z=blob('11')
blobedit(z,2,char(0))
z=blobmid(z,2,1)
else
z=blob(char(l))
end if
t=blobedit(bmp,t,z)
next
return bmp
end function