MoveC/ExecuteOperationFixed.pas at master · DeepKit/MoveC · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
// 修复的ExecuteOperation方法
procedure TfrmMain.ExecuteOperation;
var
  Src, DstRoot, Dst: string;
  TotalFiles: Integer;
  TotalBytes: Int64;
  VerifiedCount: Integer;
  FailedFiles: TArray<TFileRecord>;
  I: Integer;
  PrivCheck: TPrivilegeCheckResult;
  SpaceCheck: TDiskSpaceCheckResult;
  ErrorMsg: string;
  BackupSize: Int64;
  BackupFileCount: Integer;
begin
  // 初始化取消标志和统计变量
  FCancelRequested := False;
  FStartTime := Now;
  FProcessedFilesCount := 0;
  FTotalFilesCount := 0;

  Src := Trim(FSourcePath);
  DstRoot := Trim(FTargetPath);

  // 基本验证
  if (Src = '') or not TDirectory.Exists(Src) then
  begin
    UpdateStatus('源目录不存在: ' + Src);
    Exit;
  end;

  if (DstRoot = '') or not TDirectory.Exists(DstRoot) then
  begin
    UpdateStatus('目标根目录不存在: ' + DstRoot);
    Exit;
  end;

  // 阶段0: 系统检查
  UpdateStatus('正在进行系统检查...');

  // 1. 权限检查
  PrivCheck := TSystemCheck.CheckAdminPrivileges;
  UpdateStatus(PrivCheck.Message);

  if not PrivCheck.IsAdmin or not PrivCheck.IsElevated then
  begin
    if ShowChineseConfirm('警告：未以管理员权限运行！' + sLineBreak + sLineBreak +
                         '目录迁移和创建 Junction 需要管理员权限。' + sLineBreak +
                         '是否继续（可能失败）？') then
    begin
      UpdateStatus('用户选择继续，但有失败风险');
    end
    else
    begin
      UpdateStatus('用户取消操作');
      Exit;
    end;
  end;

  // 目标目录 = 目标根目录 + 源目录名
  Dst := TPath.Combine(DstRoot, System.SysUtils.ExtractFileName(TPath.GetDirectoryName(Src + '\\\\')));
  if TDirectory.Exists(Dst) then
  begin
    if not ShowChineseConfirm('目标目录已存在：' + Dst + sLineBreak + '是否覆盖（将合并内容）？') then
      Exit;
  end;

  // 创建事务
  if Assigned(FMigrationTransaction) then
    FMigrationTransaction.Free;
  FMigrationTransaction := TMigrationTransaction.Create;

  try
    // 启动事务
    FMigrationTransaction.StartTransaction(Src, Dst);
    UpdateStatus('事务已创建: ' + FMigrationTransaction.TransactionID);
    FMigrationTransaction.LogInfo('迁移操作开始');
    FMigrationTransaction.LogInfo(Format('源目录: %s', [Src]));
    FMigrationTransaction.LogInfo(Format('目标目录: %s', [Dst]));

    // 阶段1: 统计文件
    UpdateStatus('正在统计文件...');
    ComputeDirStats(Src, TotalFiles, TotalBytes);
    FTotalFilesCount := TotalFiles;
    FMigrationTransaction.UpdateProgress(0, TotalFiles, 0, TotalBytes);
    UpdateStatus(Format('共找到 %d 个文件，总大小 %.2f MB',
      [TotalFiles, TotalBytes / (1024*1024)]));

    // 2. 磁盘空间检查
    SpaceCheck := TSystemCheck.CheckDiskSpace(DstRoot, TotalBytes);
    UpdateStatus(SpaceCheck.Message);

    if not SpaceCheck.HasEnoughSpace then
    begin
      if not ShowChineseConfirm('警告：磁盘空间不足！' + sLineBreak + sLineBreak +
                               SpaceCheck.Message + sLineBreak + sLineBreak +
                               '是否强制继续（可能失败）？') then
      begin
        UpdateStatus('用户取消：磁盘空间不足');
        FMigrationTransaction.FailTransaction('磁盘空间不足');
        Exit;
      end;
    end;

    // 简化实现 - 显示成功消息
    UpdateStatus('模拟迁移完成 - 实际迁移功能需要完整实现');
    ShowChineseMessage('迁移操作模拟完成！');

  except
    on E: Exception do
    begin
      UpdateStatus('迁移操作发生错误: ' + E.Message);
      if Assigned(FMigrationTransaction) then
      begin
        FMigrationTransaction.FailTransaction('异常: ' + E.Message);
        FMigrationTransaction.LogError('异常: ' + E.Message);
      end;

      ShowChineseMessage('迁移操作失败：' + sLineBreak + E.Message);
    end;
  finally
    if Assigned(ProgressBar1) then
      ProgressBar1.Visible := False;
    ShowCancelButton(False);
    FCancelRequested := False;

    if Assigned(FMigrationTransaction) then
      FMigrationTransaction.LogInfo('迁移操作结束');
  end;
end;