Web Storage System + WebDAV

来源:互联网 发布:迅雷mac历史版本下载 编辑:程序博客网 时间:2021/11/29 07:31

标题:Web Storage System + WebDAV

关键字:WebDAV

链接:http://blog.csdn.net/jrq/archive/2007/02/08/1504984.aspx


1.Web存储系统(Web Storage System):

    Exchange Web 存储是一种数据库技术,可用于存储、共享和管理异类数据,如电子邮件、Web 页、多媒体文件和 Microsoft Office XP 文档。

    Web 存储系统很象传统的文件系统,用文件夹层次进行组织。

    Web 存储系统中的每个文件夹可包含任意数目的项,包括其它文件夹。
   
    可以使用许多协议和应用程序编程接口 (API)(包括超文本传输协议 (HTTP) 和 WebDAV (HTTP/WebDAV)、Microsoft ActiveX 数据对象版本 2.5 (ADO)、OLE DB 版本 2.5、Exchange 2000 协作数据对象 (CDOEX)、消息处理 API (MAPI))通过文件系统并使用多种其他工业标准的有线协议来访问 Web 存储系统中的项。

    Web 存储系统提供一个储备库,在一个基础结构中管理电子邮件、文档、Web 页和其他资源,从而将知识源集成在一起。

    Web 存储系统支持远程客户端访问,并支持一些 API。此外,Web 存储系统还充当统一消息传递平台,知识工作者可以在此访问私人信息,如日历、联系人以电子邮件和语音邮件。

    Web 存储系统在以下三个主要方面提供基于企业的应用程序服务:

    常见的客户端访问 — 客户端(如 Office)可以读写文档,并可存储流数据(如音频和视频)。Web 存储系统包括支持层次集合(文件夹)以及异类集合(可接受任何文件类型的文件夹)的数据模型。

    下一代数据库 — Web 存储系统提供了下一代的数据库服务,它可以将多种类型的信息存储在一个储备库中。包含在 Web 存储系统数据库中的信息,可以是不同类型的数据,如从 OLE DB 和 ActiveX 数据对象 (ADO) 记录集到 MIME 邮件和可扩展标记语言 (XML) 数据等。Web 存储系统还提供诸如原子更新等数据库服务。如果更新涉及到 Web 存储系统中的多个项,则这些服务为最终用户显示一致的视图。

    丰富的开发平台 — Web 存储系统支持消息传递、联系人、日历、工作流以及组和实时协作。


2.WebDAV

    分布式创作和版本管理,用于访问 Microsoft Web 存储系统中项目的协议。它提供了一种方法,既能访问项目内容,又能访问扩展的相关属性集。也称为 HTTP/WebDAV 协议。


3.使用 Web 存储系统资源管理器:

  3.1.单击“开始”按钮,指向“程序”、“Web Storage System SDK”,然后指向“Web Storage System Tools”。

  3.2.单击“Web Storage System Explorer”,打开 WSS 资源管理器。

  3.3.在“Authorization”对话框中,输入您的用户名、密码,使用具有适当权限的帐户证书,并以 http://<yourserver>/public 的形式指定 URL。
 
  3.4.WSS 资源管理器将启动。

 

4.D7中WebDAV的操作代码示例:


var  WebPath,WebDomain,WebUser,PassWord:String;
 
uses ComObj;

procedure WriteLog(const LogStr:String);
var F:TextFile;
begin
  if LogStr<>'' then //写日志文件
    begin
      AssignFile(F,ExtractFilePath(ParamStr(0))+'Log/Message'+FormatDateTime('yyyy-mm-dd',now)+'.log');

      if not FileExists(ExtractFilePath(ParamStr(0))+'Log/Message'+FormatDateTime('yyyy-mm-dd',now)+'.log') then
         begin
           ReWrite(F);  //为写创建一个新文件;
           Writeln(F,'['+FormatDateTime('yyyy-mm-dd hh:mm:ss',now)+']: '+ LogStr);
           CloseFile(F);
         end
      else
        begin
          Append(F);
          if LogStr=' ' then
             Writeln(F,'')
          else
             Writeln(F,'['+FormatDateTime('yyyy-mm-dd hh:mm:ss',now)+']: '+ LogStr);
          CloseFile(F);
        end;
    end;
end;

procedure AddChild(XMLDOM, TagName, NameSpace, NodeValue,
  ndlevel: variant);
var objChildNode,objParentNode:Variant;
   i:Integer;
begin
   objChildNode:=xmldom.createNode(1,TagName,NameSpace);
   objChildNode.text:=nodevalue;

   if ((XMLDOM.HasChildNodes) and (ndlevel>1)) then
     begin
        objParentNode := xmlDom.LastChild;

        for i:=0 to ndlevel-3 do
          if (objParentNode.hasChildNodes) then
           objParentNode := objParentNode.LastChild;

        objParentNode.AppendChild(objChildNode);
      end
   else
      begin
        XMLDOM.AppendChild(objChildNode);
      end;
     
   objParentNode := null;
  objChildNode :=null;
end;


procedure SaveFieldUsingWebDAV(MessageUrl, FieldName, NameSpace,
  FieldValue: variant);
var aXMLDOC,aXMLHTTP:Variant;
begin
  aXMLHTTP:=CreateOleObject('MSXML2.XMLHTTP.3.0');
  aXMLDOC:= CreateOleObject('MSXML2.DOMDocument.3.0');

  AddChild(aXMLDOC,'d:propertyupdate','DAV:','',1);
  AddChild(aXMLDOC,'d:set','DAV:','',2);
  AddChild(aXMLDOC,'d:prop','DAV:','',3);
  AddChild(aXMLDOC,FieldName,NameSpace,FieldValue,4);

  aXMLHTTP.open('PROPPATCH',MessageUrl, False,WebDomain+'/'+WebUser,PassWord);
  aXMLHTTP.setRequestHeader('Content-Type','text/xml; charset=''UTF-8''');
  aXMLHTTP.setRequestHeader('Overwrite','t');
  aXMLHTTP.setRequestHeader('Translate','f');
  //aXMLDOC.save(ExtractFilePath(ParamStr(0))+'c.xml');
  aXMLHTTP.send(aXMLDOC);

  aXMLHTTP:=null;
  aXMLDOC:=null;
end;


procedure SetMessageProperty(MessageUrl, NameSpace, TagName,
  Value, Domain, UserName, PassWord: variant);
var XMLHttp,strWebDav:variant;
    aStr:string;
begin
  XMLHttp:=CreateOleObject('MSXML2.XMLHTTP.3.0');
  strWebDav:='';
  if ((namespace='DAV') or (namespace='DAV:')) then
     begin
 strWebDav := strWebDav+'<d:propertyupdate xmlns:d=''DAV:''>';
 strWebDav := strWebDav+'<d:set>';
 strWebDav := strWebDav+'<d:prop>';
 strWebDav := strWebDav+'<d:' + TagName + '>' + Value + '</d:' + TagName + '>';
 strWebDav := strWebDav+'</d:prop>';
 strWebDav := strWebDav+'</d:set>';
 strWebDav := strWebDav+'</d:propertyupdate>';
     end
  else
     begin
 strWebDav := strWebDav+'<d:propertyupdate xmlns:d=''DAV:'' xmlns:m="' + NameSpace + '">';
 strWebDav := strWebDav+'<d:set>';
 strWebDav := strWebDav+'<d:prop>';
 strWebDav := strWebDav+'<m:' + TagName + '>' + Value + '</m:' + TagName + '>';
 strWebDav := strWebDav+'</d:prop>';
 strWebDav := strWebDav+'</d:set>';
 strWebDav := strWebDav+'</d:propertyupdate>';
     end;
    
  aStr:=MessageUrl;

  XMLHttp.open('PROPPATCH',astr,false,WebDomain+'/'+WebUser,PassWord);
  XMLHttp.setRequestHeader('Content-Type','text/xml; charset=''UTF-8''');
  XMLHttp.setRequestHeader('Translate','f');
  //WriteLog(strWebDav);
  XMLHttp.send(strWebDav);
end;


procedure TForm1.Button1Click(Sender: TObject);
var Count,i,j:integer;
    XMLHttp,XMLDOC,XMLNode,WebDav:Variant;
    WebSQL:WideString;
    CurrentFlow,GDName,GDBZ,tmpStr:String;
    FlowList:TStringList; 
begin
    XMLHttp:=CreateOleObject('MSXML2.XMLHTTP.3.0');
    XMLDOC:= CreateOleObject('MSXML2.DOMDocument.3.0');   

    WebPath:='http://ex01/public/工作流程/'; //ExChange服务地址
    WebDomain:='Hebmc.com';       //域
    WebUser:='OAWebUser';         //域账户
    PassWord:='chenzuooaup02';    //域账户密码
    GDName:='HASTOTHAMS20070112'; //标记
    GDBZ:='TRUE';                 //标记值

    //使用WebDav的查询语句。
    WebSQL:='select "DAV:displayname" From "'+WebPath+'" where (("DAV:contentclass"=''urn:content-classes:folder'') or ("DAV:contentclass"=''urn:content-classes:mailfolder''))';
    WebDav:='<D:searchrequest xmlns:D="DAV:"> <D:sql> '+WebSQL+' </D:sql> </D:searchrequest>';
    {
     WebDav:='<D:searchrequest xmlns:D="DAV:"> <D:sql> select "DAV:displayname" From "http://ex01/public/工作流程/" where (("DAV:contentclass"=''urn:content-classes:folder'') or ("DAV:contentclass"=''urn:content-classes:mailfolder'')) </D:sql> </D:searchrequest>';
    }

    //查找系统中所有的流程名称
    try
      XMLHttp.open('SEARCH',WebPath,False,WebDomain+'/'+WebUser,PassWord);
      XMLHttp.setRequestHeader('Content-Type','text/xml; charset=''UTF-8''');
      XMLHttp.setRequestHeader('depth','0');
      XMLHttp.setRequestHeader('Translate','f');
      XMLHttp.send(WebDav); //WebDAV查询
      XMLDOC.Load(XMLHttp.responseXML);  //得到返回值
      //XMLDOC.save(ExtractFilePath(ParamStr(0))+'a.xml');

      //得到系统中所有的流程名称
      XMLNode:=XMLDOC.DocumentElement.SelectNodes('a:response/a:propstat/a:prop');
    except on e:Exception do
      WriteLog(e.Message);
    end;
            
    FlowList:=TStringList.Create;
   
    //添加流程名称到List中
    for Count:=0 to XMLNode.Length-1 do
      FlowList.Add(XMLNode.Item[Count].ChildNodes(0).Text);

     
    //流程循环
    for Count:=0 to FlowList.Count-1 do
      begin
        CurrentFlow:=Trim(FlowList[Count]);
       
        WebSQL:=' select "DAV:href","拷贝ID","DAV:displayname","发件编号$$","密级$$","主办部门$$","主题词$$","收文机关$$","发文公司$$","来文机关$$" '+
                ' from "'+WebPath+CurrentFlow+'/已办理信文'+'" '+
                ' where ((("DAV:contentclass"=''urn:content-classes:message'')) and (("'+GDName+'" is null) or ("'+GDName+'"!='''+GDBZ+''')) and (("KDBZ" is null) or ("KDBZ"=''N'')))';

        WebDav:='<D:searchrequest xmlns:D="DAV:"> <D:sql> '+WebSQL+' </D:sql> </D:searchrequest>';

        try
          XMLHttp.Open('SEARCH',WebPath,False,WebDomain+'/'+WebUser,PassWord); //WebDav查找
        except on e:Exception do
          WriteLog(e.Message);
        end;

        try
          XMLHttp.setRequestHeader('Content-Type','text/xml; charset=''UTF-8''');
          XMLHttp.setRequestHeader('depth','0');
          XMLHttp.setRequestHeader('Translate','f');
          XMLHttp.Send(WebDav);
          XMLDOC.Load(XMLHttp.responseXML);
          //XMLDOC.save(ExtractFilePath(ParamStr(0))+'b.xml');

          //得到某流程中的所有的条目节点。
          XMLNode:=XMLDOC.documentElement.selectNodes('a:response/a:propstat/a:prop');
        except on e:Exception do
          WriteLog(e.Message);
        end;

        //该条目节点内的属性(子节点)循环
        for i:=0 to XMLNode.Length-1 do
          begin
            for j:=0 to XMLNode.Item[i].ChildNodes.Length-1 do
              begin
                tmpStr:=XMLNode.Item[i].ChildNodes(j).Text; //得到属性的内容
                //此处可以对tmpStr做其他操作,如保存到数据库。
              end; //for j:=0
             
            //该条目节点处理完毕后,写入已经处理的标记。
            try
              SetMessageProperty(XMLNode.Item[i].ChildNodes(0).Text,'',GDName,GDBZ,WebDomain,WebUser,PassWord);
            except on e:Exception do
              begin
                WriteLog(e.Message);
                Continue;
              end;
            end;

            try
              SaveFieldUsingWebDAV(XMLNode.Item[i].ChildNodes(0).Text,GDName,'',GDBZ);
            except on e:Exception do
              begin
                WriteLog(e.Message);
                Continue;
              end;
            end;
          end; //for i:=0 to XMLNode.Length-1 do
      end; //for Count:=0 to FlowList.Count-1 do
     
    FreeAndNil(FlowList);
    XMLNode:=null;
    XMLDOC:=null;
    XMLHttp:=null;

end;

end.


5.参考:

http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/modcore/html/deconworkingwithexchangewebstore.asp

http://www.microsoft.com/china/MSDN/library/archives/library/techart/wssformsreg_v4.asp

http://www.microsoft.com/china/MSDN/library/archives/MSDNonline/features/articles/newdevfeaturese2k.asp

 
                                                    by jrq

                                                    2007/02/07 雪  于石·移动

原创粉丝点击