DELPHI AREA Forum

Hi used your greate component TFindFile in my project .
i'm wondering if it's possible to add the Suspend and Resume feature to its Thread it will be very greate .


Regards Salim.

I'll do it in the next update.

Thank you

Does the next update take a long time , or maybe 10 or 15 Days

cause i really need this update .


regards

Salim

It would take a long long time.

Hi Kambiz could you please do it , cause i really need it as soon as possible .

regards

You can use a TEvent object in your code to implement Suspend and Resume.

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FindFile,
  SyncObjs;                                    // don't miss this unit

type
  TForm1 = class(TForm)
    FindFile: TFindFile;
    btnSuspend: TButton;
    btnReume: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FindFileFolderChange(Sender: TObject; const Folder: String;
      var IgnoreFolder: TFolderIgnore);
    procedure FindFileFileMatch(Sender: TObject; const Folder: String;
      const FileInfo: TSearchRec);
    procedure btnSuspendClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnReumeClick(Sender: TObject);
  private
    { Private declarations }
    Event: TEvent;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Event := TEvent.Create(nil, True, True, '');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Event.Free;
end;

procedure TForm1.FindFileFolderChange(Sender: TObject;
  const Folder: String; var IgnoreFolder: TFolderIgnore);
begin
  Event.WaitFor(INFINITE);
  // your code
end;

procedure TForm1.FindFileFileMatch(Sender: TObject; const Folder: String;
  const FileInfo: TSearchRec);
begin
  Event.WaitFor(INFINITE);
  // your code
end;

procedure TForm1.btnSuspendClick(Sender: TObject);
begin
  Event.ResetEvent;
end;

procedure TForm1.btnReumeClick(Sender: TObject);
begin
  Event.SetEvent;
end;

end.