Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 728
  • Last Modified:

RxFolderMonitor?

Hi,

 This may be stupid, but has anybody tried to use the RxFolderMonitor already? And did it work?
Can somebody give me a working example? Or is it so that the notify mechanism doesn't work on an Windows NT platform???

Regards, Zif.
0
ZifNab
Asked:
ZifNab
  • 8
  • 5
1 Solution
 
erajojCommented:
Hi Zif,
Just tried it (on NT4) and I can't seem to get it to work either.
Are you using D4?

/// John
0
 
ZifNabAuthor Commented:
John,
 No, I've got D3 :-(

Zif.
0
 
MadshiCommented:
ZifNab,

a few weeks ago I got it to work (with Delphi 3). Now I've Delphi 4 installed and it doesn't work anymore. But it is "only" an object implemenation of "FindFirstChangeNotification". You can do this with the windows API instead. But "FindFirstChangeNotification" is very stupid. It only tells you that something has happened in the folder it is watching at, not WHAT has changed...   :-(

Regards, Madshi.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
MadshiCommented:
If you're using NT only, you should look at "ReadDirectoryChangesW" instead. I didn't work with it yet but it looks interesting...

Madshi.
0
 
ZifNabAuthor Commented:
Madshi,
 to bad, it has to work on 95.. too... How did you get it to work?
Zif.
0
 
MadshiCommented:
ZifNab,

I tried again, now I got it to work. I did the following:

(1) Create a new application.
(2) Add a RxFolderMonitor component to "Form1".
(3) Set FolderName to "C:\".
(4) Set MonitorSubtree to "false".
(4) Set Active to "true".
(5) Create an event handler with nothing but a "beep" in it.
(6) Save and run application.
(7) Create a new dummy folder "C:\new folder".
(8) Now it beeps...   :-)

Hope it works with Delphi 3, too.

Regards, Madshi.
0
 
ZifNabAuthor Commented:
mmm, no beep here (message 'hello'). :-(
0
 
MadshiCommented:
That's strange. Did you test it with Win95, too?
0
 
ZifNabAuthor Commented:
madshi, no only Win NT (=work) at the moment.
0
 
MadshiCommented:
ZifNab,

I've neither WinNT nor Delphi3 to test it in the moment. Please try it at home with Win95 and then write a comment again...
Or wait until next monday. Then I can test it with WinNT.

Madshi.
0
 
MadshiCommented:
ZifNab,

I've checked it with WinNT: it seems that it really doesn't work! So my suggestion: Call API instead of using Rx...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, tools;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

var notifyHandle : cardinal;

function NotifyThreadProc(dummy: pointer) : cardinal; stdcall;
begin
  result:=0;
  repeat
    WaitForSingleObject(notifyHandle,INFINITE);
    beep;
    SetForegroundWindow(Application.handle);
    MessageBox(Application.handle,'Something has changed...','Information',0);
  until not FindNextChangeNotification(notifyHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
var tid : cardinal;
begin
  notifyHandle:=FindFirstChangeNotification('C:\',false,FILE_NOTIFY_CHANGE_FILE_NAME or
                                                        FILE_NOTIFY_CHANGE_DIR_NAME  or
                                                        FILE_NOTIFY_CHANGE_ATTRIBUTES);
  if notifyHandle<>INVALID_HANDLE_VALUE then begin
    CloseHandle(CreateThread(nil,0,@notifyThreadProc,nil,0,tid)); // Don't like Delphi threads...
  end else begin
    beep;
    MessageBox(0,'FindFirstChangeNotification could not be installed...','Information',0);
  end;
end;

end.
0
 
MadshiCommented:
P.S: Look at http://www.experts-exchange.com/Q.10077312.
There you'll find a little object example, too.
0
 
ZifNabAuthor Commented:
Madshi,

call it as an answer, and I grade you after my vacation! Help me not forgetting it!

Regards, Zif.
0
 
MadshiCommented:
Thanx, Zif...   :-)
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 8
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now