zoukankan      html  css  js  c++  java
  • delphi 一个关于xml文件导入数据库的问题

    function LoadXml(shortPath:string;var xmlobj: IXMLDOMDocument):boolean;
    
    var tmpXml:IXMLDOMDOCUMENT;
    
    begin
    
       shortPath:=localPath+shortPath;
    
       if not FileExists(shortPath) then
    
         begin
    
          LoadXml:=false;
    
          exit;
    
         end;
    
       tmpxml := CreateOLEObject('Microsoft.XmlDom') as IXMLDOMDocument;
    
       tmpxml.async := false;
    
       tmpxml.load(shortPath);
    
       if tmpxml.parseError.errorCode <> 0 then
    
         begin
    
           LoadXml:=false;
    
           Exit;
    
         end;
    
       xmlobj:=tmpxml;
    
       tmpxml:=nil;
    
       Loadxml:=true;
    
    end;
    
    
    
    procedure InitNetInfo(var theNet:netInfoType);
    
    var objxml:IxmlDomdocument;
    
        Node1:IxmlDomNode;
    
    begin
    
    if not Loadxml(iniFile,objXml) then exit;
    
    Node1:=objXml.selectSingleNode('//DefaultIP');
    
    if Node1<>nil then theNet.Csdn_IP:=Node1.text;
    
    Node1:=objXml.selectSingleNode('//DefaultPath');
    
    if Node1<>nil then theNet.Csdn_Path:=Node1.text;
    
    Node1:=objXml.selectSingleNode('//UseProxy');
    
    if Node1<>nil then theNet.flg_UseProxy:=StrtoBool(Node1.text);
    
    Node1:=objXml.selectSingleNode('//ProxyIP');
    
    if Node1<>nil then theNet.prx_IP:=Node1.text;
    
    Node1:=objXml.selectSingleNode('//ProxyPort');
    
    if Node1<>nil then theNet.prx_Port:=Node1.text;
    
    Node1:=objXml.selectSingleNode('//ProxyUser');
    
    if Node1<>nil then theNet.prx_User:=Node1.text;
    
    Node1:=objXml.selectSingleNode('//ProxyPass');
    
    if Node1<>nil then theNet.prx_Pass:=Node1.text;
    
    //其他信息
    
    Node1:=objXml.selectSingleNode('//HeadSize');
    
    if Node1<>nil then HeadSize:=strtoint(Node1.text);
    
    Node1:=objXml.selectSingleNode('//TopicSize');
    
    if Node1<>nil then TopicSize:=strtoint(Node1.text);
    
    objxml:=nil;
    
    Node1:=nil;
    
    end;
  • 相关阅读:
    php mysql与mysqli 区别
    让IT工作者过度劳累的12个坏习惯
    HR不懂爱,他的问题答不上来
    励志小故事
    php中如何把一个数字字符串作为一个变量
    新手应该具备的基本素质
    邮件中的缩写
    强大的网页性能测试工具Speed Tracer
    Windows环境下EditPlus运行Perl程序
    ActionScript3检测当前下载资源的速度
  • 原文地址:https://www.cnblogs.com/blogpro/p/11339116.html
Copyright © 2011-2022 走看看