pboracle数据库 函数pos函数值

来源：蜘蛛抓取(WebSpider) 时间：2014-12-12 01:29 标签： 数据库自定义函数
请问，在pb中怎样声明和使用setwindowpos函数？
[问题点数：20分，结帖人zzy9903]
请问，在pb中怎样声明和使用setwindowpos函数？
[问题点数：20分，结帖人zzy9903]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
本帖子已过去太久远了，不再提供回复功能。PB数据库开发
共有798位成员 　 人气指数 - 　 最新排名 -
【话题】PB调用Jmail收邮件的源代码,有高手处理过吗？急急急。。
11:40:44　来自:jelire 浏览数：28次
最近在做邮箱程序，用pb自带的函数要通过OUTLOOK，很麻烦，所以改为调用jmail.dll,发邮件的已调试成功，但收邮件的不知
怎么做？请高手们指点一下。（不要MYmail的代码！因我是新手，没分可给，请原谅！），万分感谢！
l8988回复于29日11点50分　
试了好多次，好像jmail在pb里不能收邮件
调用connect函数出问题
wangyn回复于29日11点59分　
能否把发邮件的部分也贴出来啊，谢谢。
bjxzm0108回复于29日12点09分　
//=================================
//功能说明:下载指定邮件
//=================================
OLEobject JmailmailMessage&
JmailmailMessage =CREATE OLEObject&
JmailmailMessage.ConnectToNewObject(&jmail.Message&)
JmailmailMessage.Charset = &GB2312&
JmailmailMessage.ContentTransferEncoding = &base64&
JmailmailMessage.Encoding =&base64&
JmailmailMessage.ISOEncodeHeaders =false
string is_mail_id
//检查邮件
is_mail_id& =JmailPOP3_Download.GetMessageUID(ai_mail_row)
catch(runtimeerror errorUID)
DESTROY errorUID
Return &下载失败!&
//下载邮件
JmailmailMessage =JmailPOP3_Download.Messages[ai_mail_row]
catch(runtimeerror errorMessages)
DESTROY JmailmailMessage
Return &下载失败!&
is_mail_from,is_mail_fromname,is_ReTo,is_ReTocc,is_mail_subject,is_bodyhtml
datetime idt_datetime_today
decimal& idc_mail_size
is_maildata
integer& ii_mail_height_flag,ii_attach_flag
//保存邮件内容
is_mail_from
=JmailmailMessage.From
is_mail_fromname =JmailmailMessage.Fromname
is_mail_subject
=JmailmailMessage.Subject
idc_mail_size&
=JmailmailMessage.size
//是否有附件
ii_attach_flag =0
integer ii_Att_row
string& is_filename
for ii_Att_row =0 to JmailmailMessage.Attachments.Count -1
is_filename =JmailmailMessage.Attachments.item[ii_Att_row].Name
//检查附件文件名
is_filename =gf_check_attach_filename(is_filename)
if JmailmailMessage.Attachments.item[ii_Att_row].isinline =false then
ii_attach_flag =1
integer ii_pos
ii_pos =pos(is_mail_from,& &&)
IF ii_pos &0 then
is_mail_from =Mid(is_mail_from, ii_pos +1, len(is_mail_from) -1)
is_ReTo = &&
is_ReTocc = &&
For i = 0 To JmailmailMessage.Recipients.Count - 1
If JmailmailMessage.Recipients.item(i).ReType = 0 Then
=is_ReTo + JmailmailMessage.Recipients.item(i).EMail+&;&
is_ReTocc =is_ReTocc + JmailmailMessage.Recipients.item(i).EMail+&;&
is_ReTo& & &
=Mid(is_ReTo, 1 , len(is_ReTo) -1)
is_ReTocc& & =Mid(is_ReTocc, 1 , len(is_ReTocc) -1)
if is_ReTo& & =&& then is_ReTo =as_mail_adds
if len(is_ReTo) &100&
then is_ReTo =left(is_ReTo,100)
if len(is_ReTocc) &100 then is_ReTocc =left(is_ReTocc,100)
//邮件内容
is_bodyhtml =JmailmailMessage.htmlBody()
IF ISNULL(is_bodyhtml) THEN is_bodyhtml =&&
//邮件大小
if idc_mail_size
&=1024 then
idc_mail_size =1
if Mod(idc_mail_size, 1024) =0 then
idc_mail_size =idc_mail_size / 1024
idc_mail_size =idc_mail_size / 1024 +1
blob ib_mail_eml
ib_mail_eml=blob(JmailmailMessage.maildata())
JmailmailMessage.clear()
DESTROY JmailmailMessage
bob02回复于29日12点19分　
cocoamail回复于29日12点30分　
PB数据库开发的其他话题...
热门脚本语言：pb中pos函数的使用方法_百度知道
pb中pos函数的使用方法
我有更好的答案
按默认排序
String ls_string ='ABNSC,DSDSD'integer li_pos li_pos
=pos(ls_string,',') 这是 li_pos =6如果 li_pos = pos (ls_string,',',7) 则 li_pos =0
其他类似问题
pos的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.001 收益
的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.005 收益
的原创经验被浏览，获得 ￥0.005 收益pb sql 创建数据库_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者贡献于
评价文档：
1页¥0.5011页免费55页免费48页免费67页免费 67页免费5页免费2页免费4页免费4页免费
喜欢此文档的还喜欢5页免费4页2下载券5页1下载券100页2下载券43页免费
pb sql 创建数据库|创​建​数​据​库
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
大小：9.52KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢

我要回帖

更多关于 数据库自定义函数 的文章

 

随机推荐