D4: Query.ParamByName('').AsBlob := '' ersetzen

[hoika]

Hallo,

so ich habe es selber hinbekommen.
Falls es jemand interessiert:

Delphi-Quellcode:

type
  TDAParamS = class(TDAParam)
    procedure SetBlob(S: String);
    property AsBlob: String
      write SetBlob;
  end;

procedure TDAParamS.SetBlob(S: String);
begin
  DataType := ftBlob;
  Value := S;
end { TDAParamS.SetBlob } ;



type
  TQuery = class(TIBCQuery)
    function ParamByNameS(const Name: string): TDAParamS;
  end;

function TQuery.ParamByNameS(const Name: string): TDAParamS;
begin
  Result := TDAParamS(ParamByName(Name));
end;

Der Knackpunkt war TDAParamS(ParamByName(Name));

Das S steht übrigens für String .

Heiko