|
| 盒子资源分类 |
![]() |
|
|
|
|
| 【精品源码】 转发swish 同步目录工具DirWife |
![]() |
| 关键字：同步目录工具DirWife DirSync |
| 来 自：精品 |
| 平 台：Win2K/2003/NT/XP |
下载所需：12 火柴 |
| 深浅度：中级 |
完成时间：2013/2/28 |
| 发布者：142857 (奖励50火柴) |
发布时间：2013/2/28 |
| 编辑器：BCB6 |
语 种：简体中文 |
| 分 类：其他 |
下载浏览：13/12288 |
|
|
|
|
|
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;
} |
![]() |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
共有评论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 |
| 分给扣了，却下载不了，坑人。 |
| 我要发表评论 |
查看全部评论 |
|
|
|
盒子资源分类大树
