zitsing's blog

1. 这个是java编写的WebService地址：http://152.152.152.41:7001/WebServer/ServerBusiness?wsdl

2. 通过Delphi的File——New——Other——WebServices——WSDL Importer 导入这个地址（http://152.152.152.41:7001/WebServer/ServerBusiness?wsdl，上面有
一个文本框让你输入这个网址的。)会生成一个Unit单元文件，保存。

3. 在想调用的Unit单元中uses上面生成的单元。

4. 在调用的时间中这样写：代码如下：
procedure TFrmPerson.BtnOkClick(Sender: TObject);
var
  person: PersonInfo;//声明WebService单元中一个对象
  port: ServerBusinessPort;//WebService一个执行方法的对象
  Result: string; //这个方法的返回值
begin
    port := GetServerBusinessPort();//返回一个对象
    person := PersonInfo.Create;//创建这对象相对于C# 中的new关键字吧
   person.PERSON_ID := PERSONNO.Text; //人员编号
    person.PERSON_NAME := PERSONNAME.Text; //人员姓名
    person.DEPT_NAME := DEPT_NAME.Text; //所属部门
    Result := port.AddPersonInfo(person);//调用方法了，person就是传过去的对象了。
    if Result='1' then begin
    ShowMessage('成功！');
    end else begin
    ShowMessage('失败');
    end;
end;

5. Ok,over 了。

我不知道EhLib在其他系统安装可有这样的问题。
按照网上的delphi 7中的安装方法
1. 把 EhLib 中的 common 和 DataService 文件拷贝到 Delphi7 目录中.
2.在 TOOLS->Environment Options->Library->Library Path 中添入EHLIB路径。
3.打开新建文件夹中的 EHLIB70.DPK ,编译一下，但不要安装。
4.打开Ehlib中的DclEhLib70.DPK,编译,安装
5. 在Delphi 7中打开DclEhLib70.dpk，编译并安装。
6. 组件面板中出现一个EhLib的组件页。
7. 打开附带的DEMOS，编译并运行，测试安装成功。

我按照上面的安装方法出现如下问题：
3.打开新建文件夹中的 EHLIB70.DPK ,编译一下，但不要安装。（我出现了要求在D盘建立一个D7outtmp目录，否则无法继续。 ）
4.打开Ehlib中的DclEhLib70.DPK,编译,安装 （Ehlib目录中根本没有DclEhLib70.DPK）
第5. 在Delphi 7中打开DclEhLib70.dpk，编译并安装。 （这一步的时候出现Can't load package D:\D7outtmp\DclEhLib70.bpl 找不到指定模块）

解决办法：把第3步生成的D:\D7outtmp中的DclEhLib70.bpl，DclEhLibDataDrivers70.bpl，EhLib70.bpl，EhLibDataDrivers70.bpl四个文件复制到C:\WINDOWS\system32中。
我搜索了一下，网上没有解决办法。我是花了4个小时，重做2次系统，才解决的。

    我想实现的功能是现实一频道下的所有栏目下的前8篇文章。
html代码如下：
<asp:Repeater ID="repChannel" runat="server" >
                <HeaderTemplate>
   <div class="leftList">
                </HeaderTemplate>
                <ItemTemplate>
                                <asp:Repeater ID="repCategory" runat="server" DataSource='<%# GetCategoryArticle(Eval("ID").ToString()) %>'>
                <HeaderTemplate>
                <div class="blank20"></div>
                <ul>
                </HeaderTemplate>
                <ItemTemplate>
                <li>
           <h5>[<a href='ShowCategory.aspx?CategoryID=<%# DataBinder.Eval(Container.DataItem, "CategoryID")%>'><%# DataBinder.Eval(Container.DataItem, "CategoryID")%></a>] <a href='ShowArticle.aspx?CategoryID=<%# DataBinder.Eval(Container.DataItem, "CategoryID")%>&ArticleID=<%# DataBinder.Eval(Container.DataItem, "Article.ID")%>'><%# DataBinder.Eval(Container.DataItem, "Article.Title")%></a></h5>
           <h6><%# DataBinder.Eval(Container.DataItem, "PubDate")%></h6>
          </li>
                </ItemTemplate>
                <FooterTemplate></ul></FooterTemplate>
                </asp:Repeater>
                </ItemTemplate>
                <FooterTemplate>
                </div>
                </FooterTemplate>
                </asp:Repeater>
cs代码如下：
    protected OleDbDataReader GetCategoryArticle(string cid)
    {
        string StrConn = ConfigurationManager.ConnectionStrings["jcbConnectionString"].ConnectionString;
        string strSql = "select top 8 * from CCListView where CategoryID=" + cid + " order by Article.ID desc";
        OleDbConnection objConn = new OleDbConnection(StrConn);
        OleDbCommand objCmd = new OleDbCommand(strSql, objConn);
        objConn.Open();
        return objCmd.ExecuteReader(CommandBehavior.CloseConnection);
    }

CCListView视图如下：

执行结果：
DataBinding:“System.Data.Common.DbDataRecord”不包含名为“Article”的属性。

难道不可以这样吗？？

java 既然出现double类型×2的n次方的时候计算结果出现偏差！
代码如下：
package Com.Aftvc.tsing;

public class example {
 /**
  * @param args
  */
 public static void main(String[] args) {
  //EXE p = new EXE(8);
  //p.decrease();
  //p.add();
  //p.mult(); 
  Figure tri = new Triangle(3,4,5);
  System.out.println("此三角形的周长是："+tri.GetGirth());
  System.out.println("此三角形的面积是："+tri.GetArea());
  Figure cir = new Circle(5);
  System.out.println("此圆的周长是："+cir.GetGirth());
  System.out.println("此圆的面积是："+cir.GetArea());
  Figure tra = new Trapezoid(3,9,4,5,5);
  System.out.println("此梯形的周长是："+tra.GetGirth());
  System.out.println("此梯形面积是："+tra.GetArea());
 }

}

package Com.Aftvc.tsing;

public class Circle implements Figure{
 double r;
 public Circle(double r1){
  r=r1;
 }
 public double GetArea(){
  return PI*r*r*2;
 }
 public double GetGirth(){
  return PI*r*2;//如果*3结果47.1 *4结果很长！！我测试了1,2,3,4,5,6,7,8,9,10,11,12,16只要是2的n次方就出现很长的结果。
 }
}
此三角形的周长是：12.0
此三角形的面积是：6.0
此圆的周长是：31.400000000000002
此圆的面积是：157.0
此梯形的周长是：22.0
此梯形面积是：24.0
return PI*r*2;

    给别人做了几个东西，占用了我大量的时间，为了尽快完成使用的都是一些并不深入成熟的技术，所以技术并没有什么提高。我要研究性学习，再深入一下，做到尽善尽美，这样对以后的发展才更有利。

Hi，很荣幸在这个场合彼此邂逅，我们完全有理由相信您是出色、优秀的。请您花几分钟回答以下几个小问题。

1.          您是如何理解“Asp.net应用程序的生命周期”的，请用打比方的方式说明一下。
答：就像人一样。受孕——孕育——出生——成长——死亡——火葬

2.          目前流行哪几种Javascript脚本库？请尽可能多地写出您知道的。您用得最熟的是哪一个？
答：Javascript脚本库第一次听说，写javascript都是拿一些实例进行模仿和扩展。

3.          您正在爬香山，森林中突然出现左中右三条石阶小路。左路：荆棘丛生，人迹罕至；中路：石阶大路，上上下下人群涌动；右路：爬山索道，坐上便可直达山顶，需花20元。您会选择哪一条路，理由是什么？

答：第一条，我喜欢冒险。我向来就是一个人独来独往。并且我相信我能在坎坷的路中得到更多快乐。

4.          您今天去中关村买了台新Apple笔记本，您会看看使用说明书呢，还是直接开机玩起来再说？为什么？
答：不看说明书，直接玩。知道遇到问题才看。

5.          假设您正在游戏《星际争霸》2v2中，敌我双方势均力敌，突然敌方集中兵力扑向你的盟友。如果这时你“围魏救赵”，可以消灭敌方的后方设施，斩断敌方可持续战斗力的供给，获得战略性胜利，但你的盟友会被消灭，从此你将孤立无援。你是为了争取胜利牺牲盟友呢，还是立即去救你的盟友？请依直观感觉写出答案。
答：我会全力攻击对方，对战游戏要的就是胜利。盟友为了最后的胜利牺牲是值得的。如果我是那个被攻击的，我也会要求盟友去攻击敌方。在团队中你是什么角色就要担当什么责任。只是这次他担当的是一个靶子，来掩护我。

6.          有过恋爱经历吗？如果有过，您怎么看待“分手”的？（可选择回答）
答：没谈过。对于分手，我会努力挽回，当我分析无法挽回会请她吃顿分手饭，彻底分手。

     今天写Web程序中遇到一个有趣的问题。如果OleDbDataReader在使用后忘了Close().会出现刷新3次，提示无法找到对象！
    经过我不反复的测试，发现出现每刷新3此就提示一个无法找到对象的错误。不多不少就3次，真的很奇怪。我就查代码发现OleDbDataReader objDR在使用后没有关闭，于是我把它关闭再测试就不再出现以上问题。
    难道.net只允许打开3个objDR吗？？这会不会引起性能上的瓶颈呢？希望高手能给个彻底的分析。
    相关代码如下：
        //这是在Channel类中定义的
        public void GetChannelDetails()
        {
            string strGetSql = string.Format("select * from Channel where ID={0}", intID.ToString());
            OleDbDataReader objDR = null;
            try
            {
                objDR = Tsing.AccessHelper.ExecuteDataReader(strGetSql);
                            //这是一个数据库访问类，返回一个OleDbDataReader
            }
            catch (Exception ex)
            {
                throw new Exception(ex.Message);
                return;
            }
            while (objDR.Read())
            {
                strTitle = objDR.GetString(1);
                strDirName = objDR.GetString(2);
                strDetails = objDR.GetString(3);
            }
            objDR.Close();
        }
        //这是在一个Admin_Admin_EditChannel : System.Web.UI.Page类中定义的。
 protected void EditChannel()
    {
        if (Request.QueryString["ID"] != null)
        {
            WebObject.Channel channel = new WebObject.Channel();
            channel.ID = int.Parse(Request.QueryString["ID"]);
            try
            {
                channel.GetChannelDetails();
            }
            catch (Exception ex)
            {
                Page.ClientScript.RegisterClientScriptBlock(Page.GetType(), "ErrorMessage", string.Format("<script>alert(\"{0}\")</script>", ex.Message));
                return;
            }
            txtTitle.Text = channel.Title;
            txtDirName.Text = channel.DirName;
            txtDetails.Text = channel.Details;
        }
    }

      上次参加招聘会，看得到好多大公司都要求精通java，可惜上大学大一就学了.NET,而java到大三才开，并且草草地只讲了些基本知识。有时我就在想难道学当初选择.NET真的错了吗？java确实比.NET存在很多优势。开源、跨平台、免费、开发工具也有免费的。还有万一有一天我国开始非常严厉打击用盗版的WINDOWS者，中国我想有90%都改用linux,那时像我这样.NET程序员就得失业啦。但是我又想，中国不可能都用linux的，要是发展那一天，微软看到这个情景，肯定也把WINDOWS也免费了开源了，毕竟中国人占世界的1/5，中国都用linux了，那linux的发展、java的发展就更猛烈了。
      微软开源还是有可能的，.NET3.5不是开源了吗？小的时候想能为中国开发出像windows那样的软件，多好啊。记得小的时候的理想是当科学家，为祖国作贡献，现在想想当时真的很天真。现在学.net一切学的都是windows下，我还能为祖国做什么呢？现在唯一做的是时刻关注微软的技术动态，新技术一出现就找资料学习，生怕技术落伍了。现在我的工作祖国无法给我保障，我的工作就靠微软了！微软你千万别倒闭，我为你祈祷，祝你越来越好。

   微软开源、免费是我最大的梦想！！！