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

Dimkin · August 2009

Добрый день! Подскажите пожалуйста вариант решения следующей проблемы:
При составлении отчета на странице все данные(по изделию) выбираються с бд кроме чертежа. В базе ханится только шаблон чертежа, а сам чертеж строиться с помощью ряда процедур в Delphi. Как мне передать построенные в приложении чертежи в отчет, если в отчете выводится например около 5 различных изделий?

Lizard~ · 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

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

Dimkin написал: »

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

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

Dimkin написал: »

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

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

Dimkin · August 2009

LizarD написал: »

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

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

Lizard~ · August 2009

Dimkin написал: »

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

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

Dimkin · August 2009

LizarD написал: »

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

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

Lizard~ · August 2009

Dimkin написал: »

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

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

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

Dimkin · August 2009

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

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

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

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

Dimkin · August 2009

Спасибо 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;

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

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

Комментарии

Оставить комментарий