The solution to this pocedure which should use Sender.AsString, rather than
Text as the input value.
eg.
Text := DecryptString(Sender.AsString);
instead of
Text := DecryptString(Text);
Now all is well.
Thank
Stacey
> -----Original Message-----
> From: Patrick Dunford [mailto:[EMAIL PROTECTED]]
> Sent: Monday, 13 November 2000 10:31 a.m.
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: Encrypting a Password in OnSetText, and OnGetText.
>
>
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Stacey Verner
> Sent: Monday, 13 November 2000 09:15
> To: Multiple recipients of list delphi
> Subject: [DUG]: Encrypting a Password in OnSetText, and OnGetText.
>
>
> I have a database field, that contains an encrypted password.
> I want to do
> something like the following to decrypt the string when I
> read it from the
> dataset,and encrypt it when writing to the dataset, but this
> doesn't work. I
> type in the string. Press save and it comes up blank.
>
> procedure TfEMailOptions.DecryptPassword(Sender: TField;
> var Text: String; DisplayText: Boolean);
> begin
> inherited;
> Text := DecryptString(Text);
> end;
>
>
> procedure TfEMailOptions.EncryptPassword(Sender: TField;
> const Text: String);
> begin
> inherited;
> Sender.AsString := EncryptString(Text);
> end;
>
> Any suggestions?
>
>
> ==============
> You have to set DisplayText according to whether it is just
> displayed or
> edited. Normally in these handlers when using them to format
> the text for
> editing I set DisplayText to false. Also I did not call an inherited
> handler. I do not know if there is one because this is an
> event procedure
> and the code in the TField that calls the event handler has,
> presumably,
> done any inherited stuff that it needs to.
>
> ======================================================================
> Patrick Dunford, Christchurch, NZ - http://patrick.dunford.com/
> Support the Right To Life - http://www.right-to-life.org/
>
> A man who lacks judgment derides his neighbor, but a man of
> understanding holds his tongue.
> -- Proverbs 11:12
> http://www.heartlight.org/cgi-shl/todaysverse.cgi?day=20001112
> ======================================================================
>
> --------------------------------------------------------------
> -------------
> New Zealand Delphi Users group - Delphi List -
> [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
