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