paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-02 23:50:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Added transcode event

Browse Source 
git-svn-id: trunk@17571 -
This commit is contained in:
michael 2011-05-27 11:39:44 +00:00
parent 9e43613e88
commit 954293f30b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-web/src/webdata/fpwebdata.pp
View File

@ -17,10 +17,12 @@ type
TWebDataAction = (wdaUnknown,wdaRead,wdaUpdate,wdaInsert,wdaDelete);
{ TCustomWebdataInputAdaptor }
TTransCodeEvent = Procedure (Sender : TObject; Var S : String);
TCustomWebdataInputAdaptor = class(TComponent)
private
FAction: TWebDataAction;
FOntransCode: TTransCodeEvent;
FRequest: TRequest;
FBatchCount : Integer;
FRequestPathInfo : String;
@ -39,6 +41,7 @@ type
Function GetFieldValue(Const AFieldName : String) : String;
Property Request : TRequest Read FRequest Write SetRequest;
Property Action : TWebDataAction Read GetAction Write FAction;
Property OnTransCode : TTransCodeEvent Read FOntransCode Write FOnTransCode;
end;
TCustomWebdataInputAdaptorClass = Class of TCustomWebdataInputAdaptor;
@ -605,6 +608,8 @@ begin
Result:=(I<>-1);
If Result then
L.GetNameValue(I,N,AValue);
If (AValue<>'') and Assigned(FOnTranscode) then
FOnTransCode(Self,Avalue);
end;
function TCustomWebdataInputAdaptor.TryFieldValue(const AFieldName: String;