Передача рисунков в Fr

Комментарии

• Lizard~ Тольятти

  August 2009 отредактировано August 2009

  Dimkin написал: »

  Как мне передать построенные в приложении чертежи в отчет, если в отчете выводится например около 5 различных изделий?

  
  Как вариант, можно попробовать добавить дополнительное поле в набор данных, по которому строится отчет, и заносить туда подготовленный чертёж.
  Типа:
  

  var
    bmp: TBitmap;
    vstream: TStream;
  begin
    bmp := TBitmap.Create;
    vstream := TStream.Create;
    try
      bmp.SaveToStream(vstream);
      //Рисуем на битмапе
      ...
      ...
      ....
      //заполнение поля готовым чертежом
      vstream.Position := 0;
      cds.Edit;
      (cds.FieldByName('pictur') as TBlobField).LoadFromStream(vstream);
      cds.Post;
    finally
      bmp.Free;
      vstream.Free;
    end;
  end;
  
• Dimkin

  August 2009 отредактировано 20:15

  LizarD написал: »

  Как вариант, можно попробовать добавить дополнительное поле в набор данных, по которому строится отчет, и заносить туда подготовленный чертёж.
  Типа:
  

  var
    bmp: TBitmap;
    vstream: TStream;
  begin
    bmp := TBitmap.Create;
    vstream := TStream.Create;
    try
      bmp.SaveToStream(vstream);
      //Рисуем на битмапе
      ...
      ...
      ....
      //заполнение поля готовым чертежом
      vstream.Position := 0;
      cds.Edit;
      (cds.FieldByName('pictur') as TBlobField).LoadFromStream(vstream);
      cds.Post;
    finally
      bmp.Free;
      vstream.Free;
    end;
  end;
  

  
  Возникли попутно вопросы: а куда именно добавлять дополнительное поле? В наборе данных у меня содержатся только frxBDEQuery, и по этим запросам заполняеться формы отчёта - добавить дополнительное поле к запросу, но как? И еще можно вопрос - Как организовать так, что бы для конкретного изделия выводился конкретный чертёж? Надо привязывать поле к данным из BDEquery?
  
• Lizard~ Тольятти

  August 2009 отредактировано August 2009

  Dimkin написал: »

  Возникли попутно вопросы: а куда именно добавлять дополнительное поле? В наборе данных у меня содержатся только frxBDEQuery, и по этим запросам заполняеться формы отчёта - добавить дополнительное поле к запросу, но как?

  
  Отказаться от frxBDEQuery. Использовать TClientDataSet. В TClientDataSet добавить поле типа TBlobField.
  В это поле и грузить картинку чертежа. Т.е. в результате в TClientDataSet получим часть отчета с описанием детали и в дополнително созданом поле TBlobField чертеж.
  
  

  Dimkin написал: »

  И еще можно вопрос - Как организовать так, что бы для конкретного изделия выводился конкретный чертёж? Надо привязывать поле к данным из BDEquery?

  Так как в записи со спецификацией детали содержиться поле с чертежом, они и будут связаны.
• Dimkin

  August 2009 отредактировано 20:15

  LizarD написал: »

  Отказаться от frxBDEQuery. Использовать TClientDataSet. В TClientDataSet добавить поле типа TBlobField.
  В это поле и грузить картинку чертежа. Т.е. в результате в TClientDataSet получим часть отчета с описанием детали и в дополнително созданом поле TBlobField чертеж.
  Так как в записи со спецификацией детали содержиться поле с чертежом, они и будут связаны.

  
  А как подключить TClientDataSet к frxReport? В набор данных можно подключить только TfrxUserDataSet..
• Lizard~ Тольятти

  August 2009 отредактировано 20:15

  Dimkin написал: »

  А как подключить TClientDataSet к frxReport? В набор данных можно подключить только TfrxUserDataSet..

  Стандартно.
  TfrxDBDataset у него в свойство DataSet указать нужный TClientDataSet
  TfrxDBDataset будет видно в отчете. Его связать с нужным MasterData бендом.
• Dimkin

  August 2009 отредактировано August 2009

  LizarD написал: »

  Стандартно.
  TfrxDBDataset у него в свойство DataSet указать нужный TClientDataSet
  TfrxDBDataset будет видно в отчете. Его связать с нужным MasterData бендом.

  
  Спасибо за помощь, буду пробовать!
• Lizard~ Тольятти

  August 2009 отредактировано August 2009

  Dimkin написал: »

  Спасибо за помощь, буду пробовать!

  
  Можно предложить ещё один самый элементарный вариант.
  Пред печатью подготавливать картинки и складывать на диск. Потом в событии OnBeforePrint указывать, какую картинку выводить. После печати картинки удалять.
  

  procedure Picture1OnBeforePrint(Sender: TfrxComponent);
  begin
   Picture1.picture.LoadFromFile(IntToStr(<Line>) + '.bmp');
  end;
  
• Dimkin

  August 2009 отредактировано 20:15

  LizarD написал: »

  Можно предложить ещё один самый элементарный вариант.
  Пред печатью подготавливать картинки и складывать на диск. Потом в событии OnBeforePrint указывать, какую картинку выводить. После печати картинки удалять.
  

  procedure Picture1OnBeforePrint(Sender: TfrxComponent);
  begin
   Picture1.picture.LoadFromFile(IntToStr(<Line>) + '.bmp');
  end;
  

  
  Спасибо, но как кажеться это не очень оптимально, но тоже интересный вариант..
  А можно вопрос по ходу дела - я вывожу данные в клиент ClientDataSet, но не могу добавить к нему картинку( Как это правильно сделать не поскажите?
  Если я пыьаюсь добавить чертеж в запросе на AfterScroll(в query который вытягивает данные из БД) или как-либо еще он мне выдает - EDatabaseError 'ClientDataSet1: dataset not in edit or insert mode'((
• Lizard~ Тольятти

  August 2009 отредактировано 20:15

  Dimkin написал: »

  Спасибо, но как кажеться это не очень оптимально, но тоже интересный вариант..
  А можно вопрос по ходу дела - я вывожу данные в клиент ClientDataSet, но не могу добавить к нему картинку( Как это правильно сделать не поскажите?
  Если я пыьаюсь добавить чертеж в запросе на AfterScroll(в query который вытягивает данные из БД) или как-либо еще он мне выдает - EDatabaseError 'ClientDataSet1: dataset not in edit or insert mode'((

  Правильно говорит.
  После того, как получен набор данных с сервера БД, при перегрузке в TClientDataSet. Т.е. нужно просто пробежаться по
  Главному набору данных, перегружая данные в TClientDataSet, при этом структура полей в TClientDataSet должно соответствовать главному набору + Blob поле для картинки.

  begin
    dsMain.First;
    cds.CreateDataSet;
    with dsMain do
    begin
      //Заполнение полей из основного набора данных в TClientDataSet
      cds.Insert;
      cds.Fields[0].Value := dsMain.Fields[0].Value; //Можно в цикле все поля перебрать, если лень перечислять....
  
      //заполнение поля готовым чертежом. В vstream находится готовый чертеж
      vstream.Position := 0;
      (cds.FieldByName('pictur') as TBlobField).LoadFromStream(vstream);
  
      cds.Post;
      Next;
    end;
  end;
  
• Dimkin

  August 2009 отредактировано 20:15

  LizarD написал: »

  Правильно говорит.
  После того, как получен набор данных с сервера БД, при перегрузке в TClientDataSet. Т.е. нужно просто пробежаться по
  Главному набору данных, перегружая данные в TClientDataSet, при этом структура полей в TClientDataSet должно соответствовать главному набору + Blob поле для картинки.

  begin
    dsMain.First;
    cds.CreateDataSet;
    with dsMain do
    begin
      //Заполнение полей из основного набора данных в TClientDataSet
      cds.Insert;
      cds.Fields[0].Value := dsMain.Fields[0].Value; //Можно в цикле все поля перебрать, если лень перечислять....
  
      //заполнение поля готовым чертежом. В vstream находится готовый чертеж
      vstream.Position := 0;
      (cds.FieldByName('pictur') as TBlobField).LoadFromStream(vstream);
  
      cds.Post;
      Next;
    end;
  end;
  

  
  Сделал так

  begin
    Query1.Active:=true;
    Query1.First;
    cds.CreateDataSet;
    with Query1 do
    while not query1.Eof do
    begin
      //Заполнение полей из основного набора данных в TClientDataSet
      cds.Insert;
      for i := 0 to 12 do
      begin
      cds.Fields[i].Value := Query1.Fields[i].Value; //Можно в цикле все поля перебрать, если лень перечислять....
      end;
      (cds.FieldByName('my') as TStringField).Value := '12345';
      ShowMessage((cds.FieldByName('my') as TStringField).Value);
      cds.Post;
      Next;
    end;
  

  ShowMessage выдает корректно значение поля, однако в FastReport значения эти не попадают( Попадают только выбранные из БД. Хотя настроил вроде правильно Query -> DataSetProvider -> cds -> frxDBDataSet. Или это не верно?
  
• Dimkin

  August 2009 отредактировано August 2009

  Думал уже может сделать так:
  Данные по изделию передавать из приложения через frDBDataSet, а в query, которое выбирает эти данные, на событие onAfterScroll сгенерировать чертеж и передать его параметром в FastReport. А вуже в FastReporte на данных перед чертежом на событие onAfterData сделать присвоения picture в FR переменной из приложения. Но смотриться как-то неоптимально(
• Dimkin

  August 2009 отредактировано 20:15

  Спасибо Lizard~! Вроде разобрался! Если кому интересно сделал следующим образом(описано на простом примере):

  procedure TForm1.Query2CalcFields(DataSet: TDataSet);
  var
   bmp: TBitmap;
  begin
    bmp := TBitmap.Create;
   //Строим чертеж и сохраняем в bmp
    -
    -
    // В дополнительное поле в Query(создаем поле типа integer) передаем адрес рисунка
   Query2my.Value:=integer(bmp);
  end;
  

  
  B FastReporte добавляем следующую функцию:

  procedure Memo2OnAfterData(Sender: TfrxComponent);
  var P: TPicture;                                  
  begin
       P:=TPicture.Create;
       P:=TPicture(<frxDBDataset2."my">);
       Picture1.Picture:=P;                                                                                                
  end;
  

  
  Если есть предложения лучше - пишите, буду рад посмотреть!