- 博客(0)
- 资源 (7)
- 收藏
- 关注
PB11.5WebService开发源代码(含服务器及客户端)
此份资源含服务器上的service及客户端的调用。
1.wservice.pbw是服务器端,callwservice.pbw是客户端。
2.先要在IIS上布署service,成功后才能被客户端调用。
3.运行客户端,点击Call Service按钮,进行web Service 调。
2010-01-01
JMail-邮件发送的动态库
在pb下测试成功的dll.
Jmail = Create OLEObject
Jmail.ConnectToNewObject("JMail.Message")
Jmail.Charset = is_charset
Jmail.ISOEncodeHeaders = True
Jmail.silent = True
Jmail.Logging = True
Jmail.From = is_from
Jmail.FromName = is_fromname
Jmail.Subject = is_subject
Jmail.MailServerUserName = is_user
Jmail.MailServerPassword = is_pwd
Jmail.Priority = 3
Jmail.AddRecipient(is_recipient)
Jmail.Body =is_Text + "~r~n"
Jmail.Send(is_host)
Destroy Jmail
2008-12-03
PBWebform.pdf
内容包括:
1.About PowerBuilder Web Form applications
2.Client-Side Events and Default Event Handlers
3.Print, File, Mail, and Registry Operations in Web Forms
4.Unsupported Features in PowerBuilder Web Forms
5.Converting the Tutorial to a Web Form Application
2008-11-20
ezftp.ocx(ftp下载控件)
简单的例子:
1.先把这个控件注册。
2.插入到窗口
3.在这个窗口上加上一个命令按钮
4.给这个按钮加上clicked事件
Powerbuilder代码:
ole_1.object.remoteaddress= "192.168.1.1"
ole_1.object.username= "anonymous"
ole_1.object.password=
ole_1.object.remotefile= "qq.exe"
ole_1.object.localfile= "c:\download"
ole_1.object.connect()
ole_1.object.getfile()
ole_1.object.disconnect()
2008-11-19
mymail.dll
申明Local External Functions:
function int MyUtil_SMTP_Connect(string host,int port,string UserId,string PassWord) library "MyMail.dll"
function int MyUtil_SMTP_Disconnect() library "MyMail.dll"
function int MyUtil_SMTP_Msg_Init() library "MyMail.dll"
function int MyUtil_SMTP_Msg_SetInfo(int i_type,int i_sub_type,string as_text) library "MyMail.dll"
function int MyUtil_SMTP_Msg_Send() library "MyMail.dll"
发送代码:
//使用例程:
string ls_host,ls_user,ls_pwd,ls_mail_to,ls_mail_cc,&
ls_subject,ls_text,ls_mail_fr,ls_attach
int li_port,li_ret
ls_host=trim(sle_host.text) //服务器名
ls_user=trim(sle_user.text) //发件人登陆发件服务器时的用户名
ls_pwd=trim(sle_password.text) //发件人登陆发件服务器时的密码
li_port=integer(sle_port.text) //发送服务器的smtp端口号,没改的话一般是25
ls_mail_to=trim(sle_mail_to.text)//接收人email地址
ls_mail_cc=trim(sle_mail_cc.text)//抄送,好像有点问题,我没有成功
ls_subject=sle_subject.text //主题
ls_mail_fr=trim(sle_mail_fr.text) //发件人
ls_text=mle_text.text //正文
ls_attach=trim(sle_attach.text) //附件,多个的话要分开
setpointer(hourglass!)
//邮件初始化:
if MyUtil_SMTP_Msg_Init()<0 then
MessageBox("info","初始化失败!!!");
end if
if MyUtil_SMTP_Msg_SetInfo(1,1,ls_mail_fr)<0 then
MessageBox("info","设置发送者信息出错!!!")
end if
if MyUtil_SMTP_Msg_SetInfo(1,2,ls_user)<0 then
MessageBox("info","设置发送者名称出错!!!")
end if
if MyUtil_SMTP_Msg_SetInfo(2,1,ls_mail_to)<0 then
MessageBox("info","设置接收者地址出错!!!")
end if
//if MyUtil_SMTP_Msg_SetInfo(2,1,ls_mail_cc)<0 then
//MessageBox("info","设置接收者地址出错!!!")
//end if
if MyUtil_SMTP_Msg_SetInfo(3,1,ls_subject)<0 then
MessageBox("info","设置主题出错!!!")
end if
if MyUtil_SMTP_Msg_SetInfo(5,1,ls_text)<0 then
MessageBox("info","设置正文失败!!!")
end if
if MyUtil_SMTP_Msg_SetInfo(6,1,ls_attach)<0 then
MessageBox("info","设置附件名称出错!!!")
end if
if MyUtil_SMTP_Connect(ls_host,li_port,ls_user,ls_pwd)<0 then
messageBox("info","连接失败!")
end if
if MyUtil_SMTP_Msg_Send()<0 then
MessageBox("info","发送失败!")
else
Messagebox('Info','发送成功!')
FileDelete ( ls_attach )
end if
if MyUtil_SMTP_Disconnect()<0 then
MessageBox("info","断开失败!!!")
end if
setpointer(arrow!)
2008-11-19
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人