`
touchmm
  • 浏览: 1061175 次
  • 性别: Icon_minigender_1
  • 来自: 北京
文章分类
社区版块
存档分类
最新评论

Web Storage System + WebDAV

阅读更多

标题: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 雪 于石·移动

分享到:
评论

相关推荐

    24灯十字旋转LED蓝牙版制作资料

    POV系列-24灯十字旋转LED,资料有原理图、PCB丝印图、 改字软件 以及单片机固件,如果有单片机基础完全可以制作参考制作

    大创项目_24.zip

    大学生创业项目源码

    B端安全网关的简单实现#Java#Springboot源码分享

    已实现http协议下的请求转发。支持GET,POST请求以及文件上传,支持IP白名单、apiKey配置。

    【毕业设计】基于uniapp微信小程序电影院选座订票系统设计【源码+论文+答辩ppt+开题报告+任务书】.zip

    【项目资源】:包含前端、后端、移动开发、操作系统、人工智能、物联网、信息化管理、数据库、硬件开发、大数据、课程资源、音视频、网站开发等各种技术项目的源码。包括STM32、ESP8266、PHP、QT、Linux、iOS、C++、Java、MATLAB、python、web、C#、EDA、proteus、RTOS等项目的源码。 【项目质量】:所有源码都经过严格测试,可以直接运行。功能在确认正常工作后才上传。 【适用人群】:适用于希望学习不同技术领域的小白或进阶学习者。可作为毕设项目、课程设计、大作业、工程实训或初期项目立项。 【附加价值】:项目具有较高的学习借鉴价值,也可直接拿来修改复刻。对于有一定基础或热衷于研究的人来说,可以在这些基础代码上进行修改和扩展,实现其他功能。 【沟通交流】:有任何使用上的问题,欢迎随时与博主沟通,博主会及时解答。鼓励下载和使用,并欢迎大家互相学习,共同进步。

    weixin056基于微信小程序的购物系统+php(文档+源码)_kaic

    weixin056基于微信小程序的购物系统+php(文档+源码)_kaic

    使用mingw编译的openssl-3.4.1,有需要的自取吧

    使用mingw编译的openssl-3.4.1,有需要的自取吧

    Oracle19c netca.rsp

    Oracle19c netca.rsp

    前端小白必看!HTML、CSS、JavaScript 基础全解析

    本资源聚焦前端三剑客基础。课程从 HTML 构建网页结构开始,深入 CSS 样式美化,再到 JavaScript 实现交互逻辑。无论你是零基础小白,还是想巩固基础的学习者,都能通过学习,具备搭建静态网页与简单交互页面的能力,轻松迈进前端开发领域。

    Invoke-WmiCommand.zip

    Invoke-WmiCommand

    (转载)五子棋python

    python五子棋 转载的!!!

    基于springboot框架的Javaweb学科竞赛管理系统(完整源码+数据库sql文件+项目文档+Java项目编程实战+编程练手好项目).zip

    关键词:学科竞赛管理,Java语言,MYSQL数据库,Vue框架 摘 要 I ABSTRACT II 1绪 论 1 1.1研究背景 1 1.2设计原则 1 1.3论文的组织结构 2 2 相关技术简介 3 2.1Java技术 3 2.2B/S结构 3 2.3MYSQL数据库 4 2.4Spring Boot框架 4 2.5Vue框架 5 3 系统分析 6 3.1可行性分析 6 3.1.1技术可行性 6 3.1.2操作可行性 6 3.1.3经济可行性 6 3.1.4法律可行性 6 3.2系统性能分析 7 3.3系统功能分析 7 3.4系统流程分析 8 3.4.1注册流程 8 3.4.2登录流程 9 3.4.3添加信息流程 10 4 系统设计 11 4.1系统概要设计 11 4.2系统结构设计 11 4.3 系统顺序图 12 4.4数据库设计 14 4.4.1 数据库实体(E-R图) 14 4.4.2 数据库表设计 16 5 系统的实现 19 5.1学生功能模块的实现 19 5.1.1 学生注册界面 19 5.1.2 学生登录界面 20 5.1.3 赛项详情界面 21 5.1.4 个人中心界

    大创项目go后台.zip

    大学生创业项目源码

    基于Wav2Lip384的AI主播项目整合包

    开源项目整合包 更多内容可以查阅 项目源码搭建介绍: 《我的AI工具箱Tauri+Django开源git项目介绍和使用》https://datayang.blog.csdn.net/article/details/146156817 图形桌面工具使用教程: 《我的AI工具箱Tauri+Django环境开发,支持局域网使用》https://datayang.blog.csdn.net/article/details/141897682

    智慧园区解决方案-16PPT(21页).pptx

    智慧园区,作为未来城市发展的重要组成部分,正逐步从传统园区向智能化、高效化转型。这一转型不仅提升了园区的运营管理水平,更为入驻企业和民众带来了前所未有的便捷与高效。智慧园区的总体设计围绕现状分析、愿景规划、设计理念及六位一体配套展开。传统园区往往面临服务体系不完善、智慧应用面不广、信息资源共享能力不足等问题,而智慧园区则致力于打破这些壁垒,通过物联网技术、大数据分析等手段,构建起一个完整的运营服务体系。这一体系不仅覆盖了企业成长的全周期,还通过成熟的智慧运营经验,为产业集群的发展提供了有力支撑。智慧园区的愿景在于吸引优秀物联网企业和人才入驻,促进产业转型,提高社会经济效应,并为民众打造更安全、高效的智慧生活方式。 在智慧园区的服务体系及配套方面,园区围绕“1+1+1”(学院+创客+基地)、“两中心”(园区指挥中心+金融中心)、“三平台”(成果展示+招商+政府)等核心配套,辅以日常生活各方面的配套,真正实现了从人才培养、研发、转化、孵化、加速到发展的六位一体示范园区。园区服务体系包括园区运营管理体系、企业服务体系和产业社区服务体系。园区运营管理体系通过协同办公、招商推广、产业分析等手段,打破了信息数据壁垒,构建了统一园区运营服务。企业服务体系则提供了共享智能展厅、会议室预定、园区信息服务、办事大厅等一系列便捷服务,助力企业快速成长。产业社区服务体系则更加注重周边生活的便捷性,如物联网成果展示平台、智慧物流、共享创客空间等,为入驻企业和民众提供了全方位的生活配套。这些服务体系不仅提升了园区的整体竞争力,还为入驻企业创造了良好的发展环境。 智慧园区的场景应用更是丰富多彩,涵盖了智慧停车、智慧访客、公共服务、智慧楼宇、智慧物业等多个方面。智慧停车系统通过车牌识别、车位引导、缴费等子系统,实现了停车场的智能化管理,极大提升了停车效率。智慧访客系统则通过预约、登记、识别等手段,确保了园区的安全有序。公共服务方面,智慧照明、智慧监控、智慧充电桩等设施的应用,不仅提升了园区的整体品质,还为民众带来了更加便捷、安全的生活环境。智慧楼宇和智慧物业系统更是通过智能化手段,实现了楼宇和园区的统一化管理,提升了运营效率和居住舒适度。此外,智慧园区还通过O2O平台、医疗系统、综合服务系统等手段,将线上线下资源有机整合,为入驻企业和民众提供了全方位、便捷的服务体验。这些场景应用不仅展示了智慧园区的智能化水平,更为读者提供了丰富的想象空间和实施方案参考。 综上所述,智慧园区作为未来城市发展的重要方向,正以其独特的魅力和优势吸引着越来越多的关注。通过智能化手段的应用和服务体系的完善,智慧园区不仅提升了园区的整体竞争力和运营效率,还为入驻企业和民众带来了前所未有的便捷与高效。对于写方案的读者来说,智慧园区的解决方案不仅提供了丰富的案例参考和实践经验,更为方案的制定和实施提供了有力的支撑和启示。

    成熟STM32直流电压电流采集与检测方案:包含PCB设计、KEIL源码及原理图与详细设计说明,完备STM32直流电压电流采集与检测解决方案:PCB、KEIL源码、原理图、设计说明,lunwen复现新型

    成熟STM32直流电压电流采集与检测方案:包含PCB设计、KEIL源码及原理图与详细设计说明,完备STM32直流电压电流采集与检测解决方案:PCB、KEIL源码、原理图、设计说明,lunwen复现新型扩展移相eps调制,双有源桥dab变器,MATLAB simulink仿真 ,核心关键词:lunwen复现; 新型扩展移相eps调制; 双有源桥dab变换器; MATLAB simulink仿真;,复现新型扩展移相EPS调制:DAB双有源桥变换器在MATLAB Simulink中的仿真研究

    大创项目——考古土方运输车小程序端.zip

    大学生创业项目源码

    清华大学 deepSeek 三部曲全集

    清华大学deepseek三部曲PDF

    蓝桥杯算法实战详解:编程界‘奥林匹克’的技术提升之路

    内容概要:本文介绍了蓝桥杯编程竞赛的历史背景及其重要意义,强调其作为编程领域中‘奥林匹克’的地位。文章全面解析了蓝桥杯中涉及的不同类型的赛题,如数学计算、字符串处理、排序算法、图论算法、动态规划、模拟题等,通过实例详细讲解这些算法的设计思路及其实现方式。还分享了在比赛过程中应掌握的实际技巧,包括如何选择恰当的算法、优化代码性能,以及调试技巧等,旨在全面提升编程能力。 适合人群:对编程感兴趣的在校生及初学者、想要提升编程能力的从业者。 使用场景及目标:帮助读者了解并掌握蓝桥杯的比赛内容和技术要点;培养解决复杂编程问题的能力;激发编程兴趣并为参赛做准备。 其他说明:文中穿插成功案例——小乐同学的经历,展现如何从零基础成长为优秀程序员,并通过自身努力在全国比赛中获奖的例子来鼓励读者积极参与此类活动以提升自我价值。最后号召更多编程爱好者参与到蓝桥杯当中,在实践中锻炼和成长。

    公开整理-上市公司网络财经新闻数据.txt

    因文件较多,数据存放网盘,txt文件内包含下载链接及提取码,永久有效。失效会第一时间进行补充。样例数据及详细介绍参见文章:https://blog.csdn.net/T0620514/article/details/146317475

Global site tag (gtag.js) - Google Analytics