Как прочитать Blob- Параметр процедуры?
Код:
LFDSP := TFDStoredProc.Create(nil);
try
with LFDSP do
begin
Connection := Conn;
FetchOptions.Items := LFDSP.FetchOptions.Items - [fiMeta];
StoredProcName := 'SP';
end;
with LFDSP.Params.Add do
begin
Name := 'xxx';
ParamType := ptInput;
DataType := ftString;
Size := 50;
end;
with LFDSP.Params.Add do
begin
Name := 'aFile';
ParamType := ptOutput;
DataType := ftBlob;
end;
with LFDSP.Params.Add do
begin
Name := 'MSG';
ParamType := ptOutput;
DataType := ftString;
Size := 50;
end;
LFDSP.Params.ParamByName('xxx').Value := 'aaa';
LFDSP.Prepare;
LFDSP.ExecProc;
key.Lines.Add(LFDSP.Params.ParamByName('MSG').AsString);
M:=LFDSP.params.ParamByName('aFile').Save???
key.Lines.Add(IntToStr(m.Size));
finally
m.Free;
LFDSP.Free;
end;
Будь это запрос - не проблема
Код:
M := Query.CreateBlobStream(Query.FieldByName('aFile'), bmread);
а для процедуры не нашел аналог