⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 9919.txt

📁 关于编程技术技巧的文章
💻 TXT
📖 第 1 页 / 共 3 页
字号:
🔍
123 
===========================================================

                         《编 程 技 术》

               一份属于广大编程爱好者的电子杂志

             这是一份完全关于探讨编程的免费电子杂志
             您可以任意传播本刊，但必须保持它的完整
            本刊承诺绝不向订户发送任何形式的垃圾邮件！
===========================================================
             第19期 99/08/01          本期发送数: 2816 
===========================================================

◆本期栏目◆
 *技术文档*
    C++Builder4.0实现在线接收电子邮件
    利用VC＋＋编写 Win95的CPL组件
    VC＋＋的链接错误LNK2001
    小小点歌台
    FOXPRO低级文件函数读写数据及应用
    用VB实现光驱开关
    用Delphi实现NetBIOS广播收发
 *有问必答*
 *服务台*
    主页最新动态
    向您推荐一份不错的电子刊物

***********************************************************
***********************************************************

◆技术文档◆

             C++Builder4.0实现在线接收电子邮件

               河南濮阳中原油田计算中心 李东
        
        (感谢zyccld@zpeb.sinopec.com.cn 向本刊投稿)

我们在使用163、长通飞华等免费电子邮件的时候，会发现这些电子信箱具
有在线收发的功能，即可以通过浏览器发送和接收邮件电子邮件。这些功能
一般是通过CGI实现的，而CGI技术正在逐渐被ISAPI/NSAPI技术所取代，下
面的例子使用C++Builder4.0中的ISAPI/NSAPI实现了电子邮件的在线接收。
使用C++Builder4开发Web Server程序是非常简单的，C++Builder 4的VCL
提供了大量的元件和对象，支持Web Server程序的开发。
本程序由两个文件构成，分别为
index.htm：接收电子邮件的浏览器界面，放到WEB服务器的缺省目录下
（如：C：\Inetpub\wwwroot）；ReadMail.dll：在浏览器内显示邮件列表
以及指定邮件内容的Web Server Application。这个动态链结库文件放在
可执行文件路径下（如C:\Inetpub\scripts）。
用户在浏览器内通过Web Server浏览index.htm，输入主机名、端口（一般
是110）、用户名、口令后，首先会看到用户的邮件列表，单击相应的邮件
序号即可查看邮件内容。

首先建立index.htm，其内容如下：
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>邮件查看</title>
</head>
<body bgcolor="#FFFFFF">
<form action=" /scripts/MailList.dll/MailList"
method="POST">
    <p>主机：<input type="text" size="20" name="Host"></p>
    <p>端口：<input type="text" size="20" name="Port"></p>
    <p>用户名：<input type="text" size="20" name="Name"></p>
    <p>口令：<input type="password" size="20" name="Code"></p>
    <p><input type="submit" name="B1" value="提交"><input
    type="reset" name="B2" value="复原"></p>
</form>
</body>
</html>
下面编写ReadMail.dll
在C++Builder中新建一个基于ISAPI的Web Server Application，手动增加
NMPOP31,PageProducer1。在Unit1.h头文件中定义几个变量：
AnsiString HostName,HostPort,UserName,UserCode;
TStrings *URLData;	// 接受HTTP请求传递的参数
bool ConnectFlag;
int EmailOrder;
增加一个路径为/MailList的动作项，其代码如下：
void __fastcall TWebModule1::WebModule1WebActionItem1Action(
      TObject *Sender, TWebRequest *Request, TWebResponse *Response,
      bool &Handled)
{
//接受HTTP请求传递的参数，从中获取用主机、端口、户名和口令
URLData = NULL;
switch(Request->MethodType)
    {case mtPost:
    URLData = Request->ContentFields;
    break;
    case mtGet:
    URLData = Request->QueryFields;
    break;
    }
HostName = URLData->Values["Host"];
HostPort = URLData->Values["Port"];
UserName = URLData->Values["Name"];
UserCode = URLData->Values["Code"];

//下面开始连接邮件服务器
NMPOP31->AttachFilePath=".";//存储邮件路径为当前路径
NMPOP31->DeleteOnRead=false;//不删除服务器上的副本
NMPOP31->ReportLevel=Status_Basic;//Status的详细程度
NMPOP31->TimeOut=20000;//设定超时
NMPOP31->Host=HostName;
NMPOP31->Port=StrToInt(HostPort);
NMPOP31->UserID=UserName;
NMPOP31->Password=UserCode;
ConnectFlag=true;
NMPOP31->Connect();

//如果连接成功，则制作邮件列表的HTML语句
if(ConnectFlag)
        {PageProducer1->HTMLDoc->Clear();
        PageProducer1->HTMLDoc->Add("<html><body>");
        PageProducer1->HTMLDoc->Add("邮件个数"+IntToStr(NMPOP31->MailCount));
        if(NMPOP31->MailCount)
        for(int i=1;i<=NMPOP31->MailCount;i++)
                {PageProducer1->HTMLDoc->Add("<a href='");
                PageProducer1->HTMLDoc->Add("ReadMail?Mx=");
                PageProducer1->HTMLDoc->Add(IntToStr(i));
                PageProducer1->HTMLDoc->Add("'>");
                PageProducer1->HTMLDoc->Add(IntToStr(i));
                PageProducer1->HTMLDoc->Add("</a>");}
        }
        PageProducer1->HTMLDoc->Add("</body></html>");
NMPOP31->Disconnect();}
else
        {PageProducer1->HTMLDoc->Clear();
        PageProducer1->HTMLDoc->Add("<html><body>");
        PageProducer1->HTMLDoc->Add("连接服务器失败！");
        PageProducer1->HTMLDoc->Add("</body></html>");}
//将邮件列表的HTML语句发送给浏览器
Response->Content = PageProducer1->Content( );
}
//--------------------------------------------------------------
以上部分程序完成了显示邮件服务器邮件列表的功能。接下来，再增加一
个路径为/MailList的动作项，它的功能是显示指定的邮件内容。
void __fastcall TWebModule1::WebModule1WebActionItem2Action(
      TObject *Sender, TWebRequest *Request, TWebResponse *Response,
      bool &Handled)
{
//接受HTTP请求传递的参数，从中获取用户名和口令、欲查看的邮件序号
URLData = NULL;
switch(Request->MethodType)
    {case mtPost:
    URLData = Request->ContentFields;
    break;
    case mtGet:
    URLData = Request->QueryFields;
    break;}
EmailOrder = StrToInt(URLData->Values["Mx"]);

//下面开始连接邮件服务器
NMPOP31->AttachFilePath=".";//存储邮件路径为当前路径
NMPOP31->DeleteOnRead=false;//不删除服务器上的副本
NMPOP31->ReportLevel=Status_Basic;//Status的详细程度
NMPOP31->TimeOut=20000; //设定超时
NMPOP31->Host=HostName;
NMPOP31->Port=StrToInt(HostPort);
NMPOP31->UserID=UserName;
NMPOP31->Password=UserCode;
ConnectFlag=true;
NMPOP31->Connect();

//如果连接成功，打开指定的邮件
if(ConnectFlag)
        {PageProducer1->HTMLDoc->Clear();
        PageProducer1->HTMLDoc->Add("<html><body>");
        PageProducer1->HTMLDoc->Add("第"+ IntToStr(EmailOrder)+ "个邮件内容：");
        NMPOP31->GetMailMessage(EmailOrder);
        PageProducer1->HTMLDoc->AddStrings(NMPOP31->MailMessage->Head);
        PageProducer1->HTMLDoc->AddStrings(NMPOP31->MailMessage->Body);
        PageProducer1->HTMLDoc->Add("</body></html>");
NMPOP31->Disconnect(); }
else
        {PageProducer1->HTMLDoc->Clear();
        PageProducer1->HTMLDoc->Add("<html><body>");
        PageProducer1->HTMLDoc->Add("连接服务器失败！");
        PageProducer1->HTMLDoc->Add("</body></html>");}
//将显示指定邮件内容的HTML语句发送给浏览器
Response->Content = PageProducer1->Content( );
}
//------------------------------------------------------------
最后在NMPOP31的ConnectionFailed事件中加入：
void __fastcall TWebModule1::NMPOP31ConnectionFailed(TObject *Sender)
{
ConnectFlag=false;        
}
//------------------------------------------------------------
编译完成后，将生成的DLL文件更名为和HTML文件相对应的名称
（如：ReadMail.dll），放在C:\Inetpub\scripts即可。以上程序在
Pwin98+PWS4上通过。
此外，本程序还有不足之处，比如只能查看内容为纯文本格式的邮件，
没有处理异常的能力。读者感兴趣的话，不妨改进。

***********************************************************

                   利用VC＋＋编写 Win95的CPL组件 
 
                            (广西 朱荷媛)

　　控制面板是Windows 95的控制中心，通过它可以完成添加新硬件设备、改变
桌面设置、配置网络协议等多项工作。在Windows 95中，控制面板通常有20多个
组件，我们只要用鼠标双击任一组件的图标，就会弹出一个对话框，对话框包含
有设置一些系统参数的选项，这些参数的绝大多数都存放在Windows 95的注册表
中。
　　控制面板的主程序是CONTROL.EXE，它在启动时自动到Windows\System目录
下查找并调入文件扩展名为CPL的控制面板组件。控制面板组件是可以扩充的，
一些软件在安装过程中会自动加入新的控制面板组件。按照Windows用户界面设
计原则的规定，凡是影响到系统的整体行为和界面风格的各项参数都应该通过
控制面板来设置，因此掌握控制面板组件的编程方法是很有必要的。
　　控制面板组件的工作原理
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -