QRPreview сохранить bmp

[serg76]

Builder 6, QuickReport v.3

Нужно сохранить QRPreview1->PreviewImage->QRPrinter->Canvas в формате bmp.
или то что формируется после QuickRep1->Prepare()


выгрузка в pdf пока не интересует.

[S0mbre]

Свойство Canvas есть у объекта TBitmap. Поэтому сохранить можно, например, как показано здесь.

[serg76]

у меня при таком копировании

"Project xxx.exe raised exception class EAccessViolation with message 'Access violation at address xxxxxxxx. Read of address yyyyyyyy'."

в архиве тестовый проект

[POV]

А создавать-то объект bit кто будет?

[serg76]

да недокопировал

так создаю

Код:

  bit=new Graphics::TBitmap;
  bit->PixelFormat=pf32bit;
  bit->Width=QRPreview1->ClientWidth;
  bit->Height=QRPreview1->ClientHeight;

[POV]

Вот то, что ты выложил.. нет new

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TRect mm=Rect(0,0,QRPreview1->ClientWidth,QRPreview1->ClientHeight);
  TRect bm=mm;
  Graphics::TBitmap *bit;
 
  bit->Canvas->CopyRect(mm, QRPreview1->PreviewImage->QRPrinter->Canvas, bm);
//  BitBlt(QuickRep1->QRPrinter->Canvas->Handle,0,0,bit->Width,bit->Height,bit->Canvas->Handle,0,0, PATCOPY);
 
  bit->SaveToFile("prim.bmp");
}
 

Выложи уж полный кусок кода.

[serg76]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TRect mm=Rect(0,0,QRPreview1->ClientWidth,QRPreview1->ClientHeight);
  TRect bm=mm;
  Graphics::TBitmap *bit;
 
  bit=new Graphics::TBitmap;
  bit->PixelFormat=pf32bit;
  bit->Width=QRPreview1->ClientWidth;
  bit->Height=QRPreview1->ClientHeight;

  bit->Canvas->CopyRect(mm, QRPreview1->PreviewImage->QRPrinter->Canvas, bm);
//  BitBlt(QuickRep1->QRPrinter->Canvas->Handle,0,0,bit->Width,bit->Height,bit->Canvas->Handle,0,0, PATCOPY);
 
  bit->SaveToFile("prim.bmp");
}

[POV]

Вместо QRPreview1 поставил просто Image - все работает.
На отладке погляди - QRPreview1 и его поля существуют?

[serg76]

Вместо QRPreview1 поставил просто Image - все работает.

мне надо с QRPreview1

На отладке погляди - QRPreview1 и его поля существуют?

Код:

  bit->Width=QRPreview1->ClientWidth;
  bit->Height=QRPreview1->ClientHeight;

есть или какие поля?

[POV]

Точку останова влепи. По alt+F5 на QRPreview1  погляди чему равен указатель объекта и его поля к которым ты обращается (QRPreview1->PreviewImage->QRPrinter->Canvas).
Если где-то будет "???" или "NULL" то косяк с объектом, чего-то там не инициализировано что-ли..

[serg76]

на QRPreview1->PreviewImage->QRPrinter->Canvas
адрес стоит

[serg76]

а через указатель

Код:

  TQRPreview *tq=new TQRPreview(QRPreview1);
  bit->Canvas->CopyRect(mm, tq->PreviewImage->QRPrinter->Canvas, bm);

пишит tq->PreviewImage->QRPrinter=NULL

[POV]

Ну потому-то ругается.

[serg76]

Ну потому-то ругается.

как решить проблему

[POV]

Я не в курсе что это за репорт и чего с ним не так.