捐赠 | 广告 | 注册 | 发布精品源码 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
【精品源码】 转发swish 同步目录工具DirWife
关键字:同步目录工具DirWife DirSync
来 自:精品
平 台:Win2K/2003/NT/XP 下载所需:12 火柴
深浅度:中级 完成时间:2013/2/28
发布者:142857 (奖励50火柴) 发布时间:2013/2/28
编辑器:BCB6 语  种:简体中文
分 类:其他 下载浏览:13/12555
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
String __fastcall TfrmMain::UniqueIdent()
{
_GUID AId;
Sysutils::CreateGUID(AId);
String S=Sysutils::GUIDToString(AId);
return StringReplace(S.SubString(2,S.Length()-2),"-","",TReplaceFlags()<<rfReplaceAll);
}
TSyncItem * __fastcall TfrmMain::AddItem(const TSyncItem &src)
{
TSyncItem *AItem=new TSyncItem;
if(src.Ident.Length())
 AItem->Ident=src.Ident;
else
 AItem->Ident=UniqueIdent();
AItem->SourceDir=src.SourceDir;
AItem->DestDir=src.DestDir;
AItem->IncludeFilter=src.IncludeFilter;
AItem->ExcludeFilter=src.ExcludeFilter;
AItem->Flags=src.Flags | SF_CHANGED;
TJvChangeItem *ANotify=cnDirMonitor->Notifications->Add();
ANotify->Directory=src.SourceDir;
ANotify->Actions=TJvChangeActions()<<caChangeFileName<<caChangeDirName<<caChangeAttributes<<caChangeSize<<caChangeLastWrite;
ANotify->IncludeSubTrees=src.Flags&SF_SUBDIR;
ANotify->OnChange=DoItemChange;
AItem->Tag=(int)ANotify;
String AExtFlags;
if(AItem->Flags&SF_SUBDIR)
 AExtFlags=" , 包含子目录";
if(AItem->Flags&SF_HISTORY)
 AExtFlags+=" , 创建历史快照";
if(AItem->Flags&SF_BOTH)
 lbxItems->AddItem(AItem->SourceDir+" <=> "+AItem->DestDir+AExtFlags,(TObject *)AItem);
else
 lbxItems->AddItem(AItem->SourceDir+" => "+AItem->DestDir+AExtFlags,(TObject *)AItem);
return AItem; 
}
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
没有相关文章
相关评论
共有评论6条 当前显示最后5条评论
chineseswish 2013/2/28 21:24:07
说好源码群内共享的,怎么直接就给发上来了:(
chineseswish 2013/2/28 21:29:32
算了,发就发吧。最新的源码在群共享,有时间你就直接更新了吧。这个源码中正则表达式用的是PCRE 8.11的版本,直接拿来是编译不了的,用的话替换成自己的。
mllxt 2013/3/1 15:28:26
什么群啊,让我潜进来噻。
doremi 2013/3/1 15:39:04
C Builder的也开上来了
bsanlang 2013/3/14 13:06:56
分给扣了,却下载不了,坑人。
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表