I check the following;
-Writes perfectly into the BLOB field
function that calls the Report:
CODE
Function TDataImpresion.BusFormato:Boolean;
Var
Campo:TStream;
begin
Archivo:='';
Campo:=nil;
Result:=False;
Try
FormaReporte.Open;
FormaReporte.First;
if FormaReporte.Reccoercount>0 Then
Campo := FormaReporte.CreateBlobStream(FormaReporte.FieldByName('DISENO'), bmRead)
if Campo.Size<>0 then
Begin
Campo.Position := 0;
Reporte.Clear;
Reporte.LoadFromStream(Campo);
Reporte.ReportOptions.Description.Add(ReportesNOMBREPO.Value);
Result:=True;
end;
Finally
Campo.Free;
FormaReporte.Close;
End;
end;
Var
Campo:TStream;
begin
Archivo:='';
Campo:=nil;
Result:=False;
Try
FormaReporte.Open;
FormaReporte.First;
if FormaReporte.Reccoercount>0 Then
Campo := FormaReporte.CreateBlobStream(FormaReporte.FieldByName('DISENO'), bmRead)
if Campo.Size<>0 then
Begin
Campo.Position := 0;
Reporte.Clear;
Reporte.LoadFromStream(Campo);
Reporte.ReportOptions.Description.Add(ReportesNOMBREPO.Value);
Result:=True;
end;
Finally
Campo.Free;
FormaReporte.Close;
End;
end;
