TParameters 参数传递如何生成

Question

procedure ExcuteStoreProcedure(const AAdoCnn: TADOConnection;
        AProcedureName: String; AParameters: TParameters)上面的过程调用AParameters如何生成？如下生成，总是出错“Invalid class typecast”
    AParameters := TParameters.Create(Application,TParameter);
    with AParameters.AddParameter do
    begin
      Name := 'ProjectID';
      DataType := ftInteger;
      Direction := pdInput;
      Value := AProjectID;
      Size := SizeOf(Value);
    end;
    ExcuteStoreProcedure(AAdoCnn, 'sqlCreateHoleStratumStat', AParameters);

Answer 1

sp1.Active:=False;
  sp1.Parameters.Clear;
  sp1.ProcedureName:='GetCZHT';
  sp1.Parameters.CreateParameter('@BDate',ftDateTime,pdInput,0,null);
  sp1.Parameters.CreateParameter('@Edate',ftDateTime,pdInput,0,null);
  sp1.Parameters.CreateParameter('@Custname',ftString,pdInput,10,null);
  sp1.Parameters.ParamByName('@Bdate').Value:=FormatDateTime('yyyy-mm-dd',dtp1.DateTime);
  sp1.Parameters.ParamByName('@Edate').Value:=FormatDateTime('yyyy-mm-dd',dtp1.DateTime);
  sp1.Parameters.ParamByName('@Custname').Value:='BB';
  sp1.Active:=True;