TAstaServerSocket.OnProviderSetParams

Applies to
TAstaServerSocket

TAstaProvider

Declaration
type TAstaProviderSetParams = procedure(Sender: TObject;
  D: TDataSet; P: TAstaParamList) of object;

Description
This method along with the OnProviderConvertParams method of the TAstaServerSocket allows TAstaProviders using TDataSets that do not have a TParams, Params property to be supported by ASTA.

Example

procedure TForm1.AstaServerSocket1ProviderSetParams(Sender: TObject;

  D: TDataSet; P: TAstaParamList);

var

  i: Integer;

begin

  with D as TDbisamQuery do begin

    Close;

    Prepare;

    for i := 0 to P.Count - 1 do

      Params[i].Value := P[i].Value;

  end;

end;