снова "invalid File Format"

Комментарии

• DimaBr

  March 2012 отредактировано 14:14

  1. уничтожать поток нужно там же где и создаёте иначе AV 100% если отчёт не найден
  2. чтение из потока правильное, а как записываете ???
  
• neznayka2@

  March 2012 отредактировано 14:14

  DimaBr написал: »

  1. уничтожать поток нужно там же где и создаёте иначе AV 100% если отчёт не найден
  2. чтение из потока правильное, а как записываете ???

  1 спасибо
  2

  procedure TfrReport.acLoadREportExecute(Sender: TObject);
  var
    fs: TFileStream;
  begin
    CreateOrShowform(TfmDlgLoadReport, fmDlgLoadReport, False, false);
    with fmDlgLoadReport do
    begin
      ShowModal;
      if ModalResult=mrOK then
      begin
        fs:=TFileStream.Create(fmDlgLoadReport.edFile.Text,fmOpenRead);
        with ZQuery1 do
        begin
          Close;
          SQL.Clear;
          Params.Clear;
          SQL.Add('select  fn_insert_report(:parent_id, :report_name, :report_data) as result;');
   
          Params.ParamValues['report_name']:=  Trim(fmDlgLoadReport.edReportName.Text);
          Params.ParamValues['parent_id']:=  (DBTreeView.Selected as TdxDBTreeNode).keyfieldvalue;
          ParamByName('report_data').DataType:=ftBlob;
          ParamByName('report_data').LoadFromStream(fs,ftBlob);
          Open;
        end;
        fs.free;
      end;
    end;
  end;
  
• gpi

  March 2012 отредактировано March 2012

  А где в Вашем коде что-то подобное этому:
  
  frxReport1.SaveToStream(ms);
  ms.Position:=0;
  ParamByName('report_data').LoadFromStream(ms,ftBlob);
• neznayka2@

  March 2012 отредактировано 14:14

  gpi написал: »

  А где в Вашем коде что-то подобное этому:
  
  frxReport1.SaveToStream(ms);
  ms.Position:=0;
  ParamByName('report_data').LoadFromStream(ms,ftBlob);

  Зачем это? Сначала отчеты сохраняются в бд, потом выгружаются:

  procedure TfrReport.SaveReportToDB;
  begin
    CreateOrShowform(TfmDlgLoadReport, fmDlgLoadReport, False, false);
    with fmDlgLoadReport do
    begin
      ShowModal;
      if ModalResult=mrOK then
      begin
        with ZQuery1 do
        begin
          Close;
          SQL.Clear;
          Params.Clear;
          SQL.Add('select  fn_load_report(:parent_id, :report_name,  :report_data);');
  
          Params.ParamValues['report_name']:=  Trim(fmDlgLoadReport.edReportName.Text);
          Params.ParamValues['parent_id']:=  (DBTreeView.Selected as TdxDBTreeNode).keyfieldvalue;
          ParamByName('report_data').LoadFromFile(fmDlgLoadReport.edFile.Text, ftBlob);
          ExecSQL;
        end;
      end;
    end;
  end;
  
  procedure TfrReport.LoadReportFromDB(ReportName: String);
  var
    ms: TMemoryStream;
  begin
    try
    Screen.Cursor:=crHourGlass;
    with ZQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add(Format('SELECT report_data FROM report WHERE report_name=''%s''',[ReportName]));
        Open;
        if RecordCount=0 then
          begin
            MessageDlg('Отчет не найден.',mtInformation,[mbOK],0);
            Exit;
          end
        else
          begin
            ms:=TMemoryStream.Create;
            try
              TBlobField(FieldByName('report_data')).SaveToStream(ms);
              ms.Position:=0;
              if ms.Size>0 then
              begin
                frxReport1.Clear;
                frxReport1.LoadFromStream(ms);
                frxReport1.PrepareReport();
                frxReport1.ShowPreparedReport;
              end;
           finally
             ms.Free;
            end;
          end;
      end;
    finally
      ZQuery1.Close;
      Screen.Cursor:=crDefault;
    end;
  end;
  

  В бд отчет лежит в таком виде(тип поля bytea в PostgreSQL) 1512 на самом деле коды символов 015 и 012

  <?xml version="1.0" encoding="utf-8"?>1512
  <TfrxReport Version="4.9.105" DotMatrixReport="False" IniFile="\\Software\\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40976,7880202894" ReportOptions.Description.Text="" ReportOptions.LastChange="40976,8944702431" ScriptLanguage="PascalScript" ScriptText.Text="begin
  
  end." PropData="044C65667403780103546F7002380844617461736574730100095661726961626C65730100055374796C650100">1512  
      <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>1512  
      <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">1512    
          <TfrxMemoView Name="Memo1" Left="60" Top="40" Width="444" Height="88" ShowHint="False" Font.Charset="1" Font.Color="-16777208" Font.Height="-48" Font.Name="Arial" Font.Style="1" ParentFont="False" Text="report"/>1512  
      </TfrxReportPage>1512
  </TfrxReport>1512
  
• DimaBr

  March 2012 отредактировано 14:14

  Запись

      MS := TMemoryStream.Create;
      Report.SaveToStream(MS);
      MS.Position := 0;
      (DataSet.FieldByName('DataReports')as TBlobField).LoadFromStream(MS);
      MS.Free;
  

  
  Чтение

      MS := TMemoryStream.Create;
      TBlobField(QueryReport.FieldByName('DataReports')).SaveToStream(MS);
      MS.Position := 0;
      Result.LoadFromStream(MS);
      MS.Free;