Куда подевались функции?

Комментарии

• -=Serg=-

  April 2006 отредактировано 05:28

  Через Load и SaveToStream
• HEPB

  April 2006 отредактировано 05:28

  написал:

  Через Load и SaveToStream

  пример кода, если можно, пожалуйста...
• egik

  April 2006 отредактировано 05:28

  Уже было в этом форуме:

  написал:

  var
  stream :TMemoryStream;
  begin
  stream := TMemoryStream.Create;
  YourDataset.YourFieldName.SaveToStream(stream);
  stream.Position:=0;
  frxReport1.LoadFromStream(stream);
  frxReport1.PrepareReport;
  stream.clear;
  YourDataset.Next;
  YourDataset.YourFieldName.SaveToStream(stream);
  stream.Position:=0;
  frxReport1.LoadFromStream(stream);
  frxReport1.PrepareReport(False);
  frxReport1.ShowPreparedReport;
  stream.Free;
  end;
  
• HEPB

  April 2006 отредактировано 05:28

  egik написал:

  Уже было в этом форуме:

  С загрузкой отчета из Blob-поля разобрался.
  Получилось не очень удачно, но работает:

  procedure LoadxFromBlobField(Blob: TBlobField);
  var
   Stream: TBlobStream;
  begin
    Stream := TBlobStream.Create(Blob, bmRead);
    try
      Stream.Position := 0;
      FRForm.frxReport1.LoadFromStream(Stream);
    finally
     Stream.Free;
    end;
  end;
  

  
  Вопрос теперь как отчет из FastReport в Blob поле кидануть?
  Раньше у меня использовалась такая процедура?

  procedure TFRForm.frDesigner1SaveReport(Report: TfrReport;
    var ReportName: String; SaveAs: Boolean; var Saved: Boolean);
  begin
    FRForm.tblTableShablon.Edit;
    FRForm.frReport1.SaveToBlobField(FRForm.tblTableShablonSHABLON);
    FRForm.tblTableShablon.Post;
    spCommitTransaction;
  end;
  

  
  
• gpi

  April 2006 отредактировано 05:28

  Опять через SaveToStream и LoadFromStream в обработчике frxDesigner.OnSaveReport
• HEPB

  April 2006 отредактировано 05:28

  gpi написал:

  Опять через SaveToStream и LoadFromStream в обработчике frxDesigner.OnSaveReport

  Написал такой обработчик:

  function TFRForm.frxDesigner1SaveReport(Report: TfrxReport;
    SaveAs: Boolean): Boolean;
   var
   Stream: TStream;
  begin
    Table1.Edit;
    try
     Stream := Table1.CreateBlobStream(Table1Field1, bmReadWrite);
     Stream.Position := 0;
     frxReport1.SaveToStream(Stream);
     Table1.Post;
    finally
     Stream.Free;
    end;
    Result := True;
  end;
  

  
  Вроде бы как даже работает. Редактирую отчет, нажимаю по "дискетке", процедура отрабатывает, отчет сохраняется в базе данных. Потом редактирую шаблон дальше. Снова нажимаю на "дискетку". Начинает отрабатывать функция frxDesigner1SaveReport.
  И на строке

    frxReport1.SaveToStream(Stream);
  

  Выдает исключительную ситуацию:
  Blob not opened
  Как же быть?
• HEPB

  April 2006 отредактировано 05:28

  Вопрос снимается, разобрался самостоятельно.
  Вот как заработало:

  function TFRForm.frxDesigner1SaveReport(Report: TfrxReport;
    SaveAs: Boolean): Boolean;
   var
    MemoryStream: TMemoryStream;
    Stream: TStream;
  begin
    Table1.Edit;
    try
    MemoryStream:=TMemoryStream.Create;
    Stream := tblTableShablon.CreateBlobStream(Table1Field1, bmReadWrite);
    frxReport1.SaveToStream(MemoryStream);
    MemoryStream.Position := 0;
    Stream.CopyFrom(MemoryStream, MemoryStream.Size);
    Table1.Post;
    finally
     MemoryStream.Free;
     Stream.Free;
    end;
    Result := True;
  end;
  
• nerv

  May 2006 отредактировано 05:28

  HEPB написал:

  Вопрос снимается, разобрался самостоятельно.
  Вот как заработало:

  function TFRForm.frxDesigner1SaveReport(Report: TfrxReport;
    SaveAs: Boolean): Boolean;
   var
    MemoryStream: TMemoryStream;
    Stream: TStream;
  begin
    Table1.Edit;
    try
    MemoryStream:=TMemoryStream.Create;
    Stream := tblTableShablon.CreateBlobStream(Table1Field1, bmReadWrite);
    frxReport1.SaveToStream(MemoryStream);
    MemoryStream.Position := 0;
    Stream.CopyFrom(MemoryStream, MemoryStream.Size);
    Table1.Post;
    finally
     MemoryStream.Free;
     Stream.Free;
    end;
    Result := True;
  end;
  

  Теперь и так перестало работать...
  Что же делать?
  При попытке выполнить команду
  Stream.CopyFrom(MemoryStream, MemoryStream.Size);
  выдает ошибку на картинке.
  Причем в первый раз сохраняется отчет, при втором сохранении вылетает ошибка.
  Help!!!