Question

我有一个小应用程序，用于处理在另一个程序中创建的一些文件。我使用Angus Johnson的旧组件TDirectoryWatch

在我的FormCreate上，我有以下代码

  DirectoryWatch := TDirectoryWatch.Create(self);
  DirectoryWatch.OnChange := FileAction;
  DirectoryWatch.Directory := Folders.Path(dirInput);
  DirectoryWatch.Active := True;

如果程序启动并且在目录中放入了一个新文件，则所有内容都会触发并运行正常。但是，如果程序启动时目录中有文件，即使我调用FileAction（nil）也没有任何反应;

FileAction是处理文件的过程的名称

我从弹出菜单调用FileAction并处理目录中的文件

所以我的问题是：如何确保在程序启动时处理现有文件？

或者有更好的方法来解决这个问题。

添加了FileAction的代码

procedure TfrmMain.FileAction(Sender: TObject);
var
  MailFile: string;
  MailInfo: TMailInfo;
  ListAttachments: TstringList;
  i: integer;
  MailBody: string;
begin
  for MailFile in TDirectory.GetFiles(Folders.Path(dirInput), CheckType) do
    begin
      if FileExists(MailFile) then
        begin
          MailInfo := TMailInfo.Create(MailFile);
          try
            if FileProcessing = False then
              begin
                Logfile.Event('Behandler fil: ' + MailFile);
                FileProcessing            := True;
                MailBody                  := '';
                Settings.Load;
                MailInfo.Load;
                Settings.Mail.Signature   := '';
                Settings.Mail.Subject     := MailInfo.Subject;
                ListAttachments           := TStringList.Create;
                ListAttachments.Clear;
                for i := 1 to MaxEntries do
                  begin
                    if (MailInfo.Attachment[i] <> '') and (FileExists(MailInfo.Attachment[i])) then
                      ListAttachments.Add(MailInfo.Attachment[i]);
                  end;
                for i := 1 to MaxEntries do
                  begin
                    MailBody := MailBody + MailInfo.MailBody[i];
                  end;
                try
                  if MailBody <> '' then
                    begin
                      if MailInfo.SenderBcc then
                        Mailing.Send(MailInfo.SenderMail, MailInfo.Recipient, MailInfo.SenderMail, MailInfo.Subject, MailBody, ListAttachments, True)
                      else
                        Mailing.Send(MailInfo.SenderMail, MailInfo.Recipient, MailInfo.Subject, MailBody, ListAttachments, True);
                    end;
                finally
                  ListAttachments.Free;
                end;
                FileProcessing := False;
                DeleteFile(MailFile);
              end;
          finally
            MailInfo.Free;
          end;
        end;
    end;
end;

Answer 1

程序启动时组件不会通知有关更改，因为在程序启动时，尚未进行任何更改。

您的策略似乎是在您的程序启动时，所有现有文件都被视为“新”或“新更改”，因此您手动调用更改通知处理程序的方法是正确的。

组件在检测到更改时唯一能做的就是调用更改通知处理程序。如果你明确地调用了那个函数，但是你仍然注意到“没有任何反应”，那么你的程序中有更多根深蒂固的问题需要调试;这不是组件的问题，也不是这里描述的基本方法。

TDirectoryWatch第一次没有开火

1 个答案: