Can anyone help me with this question.
I have triing to repair a table(Paradox) with password and it does not work,
the result is a lot of strange simbols in about 50 regs. of a table.

Hi SIA,
Pdxrbld Paradox tables check/repair application
stored at my website (free, full 32 bit source - source only)
manages tables protected with master password.
Follow Delphi corner link from Default.htm page.
--
Roman
(please remove STOPSPAM. in header)
URL:  www.rksolution.cz (Delphi corner)
MAIL: I...@rksolution.cz

There is a password parameter in the Tutility API calls that you must
include if you are going to rebuild a password protected Paradox table.

--
Bill Todd
(Sorry but TeamB cannot answer questions received via email)
(Remove nospam from my email address to contact me for any other reason)

Hi Bill,
there is a password paramter, indeed, but the
utility proceed happily even if the password given is wrong or
not given at all. What I am trying to say is that the major problem
here is the password _verification_ as incorrect password
turns the table unreadable.
--
Roman
(please remove STOPSPAM. in header)
URL:  www.rksolution.cz (Delphi corner)
MAIL: I...@rksolution.cz

There is no way, that I know of, to verify that the password you have
presented is correct using the Tutility DLL.  That does not mean that there
is not a way but I have never seen an example.

--
Bill Todd
(Sorry but TeamB cannot answer questions received via email)
(Remove nospam from my email address to contact me for any other reason)

I'm missed the original question, so pardon me if I get a focus out.

I figured a way of doing this:

  Session1.Tag := 0;
  try
    Table.Open;  //   At this time the Session.OnPassword event is triggered
  except
    // Sorry, I don't remember correct the exception. But a little try-and-get
will do that.
    on Exception do raise Exception.Create( 'Password incorrect' );
  end;

Then, on OnPassword:

  if Session1.Tag = 0 then begin
    Session1.RemoveAllPasswords;
    Session1.AddPassword( TryPassword );
    Continue := True;
    Session1.Tag := 1;
  end;

If an exception gets raised from this code, then the password is not correct.