Общие вопросы программирования в C++Builder

[serg76]

система XPsp2
для такого кода нехватает памяти 
что мона сделать?

Код

  int i;
  Graphics::TBitmap *bmap=new Graphics::TBitmap;
  Printer()->Orientation=poLandscape;//       poPortrait;
  bmap->Width=Printer()->PageWidth;
  bmap->Height=Printer()->PageHeight;
 
  bmap->Canvas->Pen->Width=1;
  for(i=0;ibmap->Width;i+=350)
  {
    bmap->Canvas->MoveTo(i,0);
    bmap->Canvas->LineTo(i,bmap->Height);
  }
 
  Printer()->BeginDoc();
    BitBlt(Printer()->Canvas->Handle,0,0,Printer()->PageWidth,Printer()->PageHeight,bmap->Canvas->Handle,0,0,SRCCOPY);
  Printer()->EndDoc();
  delete[] bmap;

[VerZer]

если нет необходимости создавать отдельный экземпляр TBitmap, можно рисовать непосредственно на холсте принтера

[dimchik_b]

А можно узнать, почему delete[], а не delete?

[serg76]

2dimchik_b в примере увидел - это не правильно

если нет необходимости создавать отдельный экземпляр TBitmap, можно рисовать непосредственно на холсте принтера

нужно печатать графики с динамики
пробую превью написать

[dimchik_b]

А в каком именно месте выкидывает "Недостаточно памяти"?

[Asher]

Привет.

пробую превью написать

а в чем смысл для PreView делать битмап с разрешением принтера? делайте с размерами окна отображения.

P.S. памяти не хватает по причине ее фрагментации. Не может операционка выделить один блок такого размера.

[serg76]

2Asher

а в чем смысл для PreView делать битмап с разрешением принтера? делайте с размерами окна отображения.

хотелось сделать программу универсальней, а так как в разных принтерах разное dpi то и разное PageWidth,PageHeight.
Чем болеше значения, тем больше смогу вывести точек графика на печать.

P.S. памяти не хватает по причине ее фрагментации. Не может операционка выделить один блок такого размера.

2dimchik_b

А в каком именно месте выкидывает "Недостаточно памяти"?

меня это тоже заитересовало, провел научное изыскание  , на нобелевскую премию не потянет но может кому и пригодиться

тестировал на таком коде
создал переносимый экзешник

Код

  Printer()->Orientation=poLandscape;
 
  Printer()->BeginDoc();
  Graphics::TBitmap *bmap=new Graphics::TBitmap;
  bmap->Width=Printer()->PageWidth;
  bmap->Height=Printer()->PageHeight;
 
  Printer()->Canvas->Pen->Width=1;
  for(int i=0;ibmap->Width;i+=350)
  {
    bmap->Canvas->MoveTo(i+350,0);
    bmap->Canvas->LineTo(i,bmap->Height);
  }
  BitBlt(Printer()->Canvas->Handle,0,0,Printer()->PageWidth,Printer()->PageHeight,bmap->Canvas->Handle,0,0,SRCCOPY);
 
  delete bmap;
  Printer()->EndDoc();

проц                 память    операционка    принтер                результат
Sempron 3GHz  512M       WinXPsp2         Canon LBP 2900           
Intel Core 2       2G          WinXPsp2         Canon LBP 2900           
AMD 900MHz     256M       WinXP              Epson R300                 
AMD 900MHz     256M       WinXP              HP LaserJet 1010         
AMD 900MHz     256M       WinXP              Canon LBP 1120           
Pentium 3GHz    1G           WinXPsp2         Canon LBP 1120           
Intel Core 2       2G          WinXPsp1         Canon LBP 1120           
AMD 2GHz         256М      WinXPsp2          HP DeskJet 500           
AMD 2GHz         256М      WinXPsp2          Canon IP5200             
Celeron 500       128M      Win98               HP DeskJet 500           
Celeron 500       128M      Win98               Canon IP5200             

вывод: ХЗ
подозреваю что есть зависимость от памяти принтера

P.S. народ, если у кого есть доступ к матричникам поновее(Epson LX300,Epson 2180, OKI Microline , и т.д.) для работы надо, заранее спасибо

[GoodWin]

Надо создавать bmp с помощью

 HDC hBitHDC = CreateCompatibleDC( Printer()->Handle );
 HBITMAP  FhBitmap = CreateCompatibleBitmap( Printer()->Handle , Printer()->PageWidth , Printer()->PageHeight );
 SelectObject( hBitHDC , FhBitmap );

 //рисуем на hBitHDC

 //Копируем на принтер, например с помощью BitBlt

  if ( hBitHDC )
  {  DeleteDC( hBitHDC ); hBitHDC = NULL; }
 if ( FhBitmap  )
  {  DeleteObject( FhBitmap ); FhBitmap = NULL; }

TBitmap почему то не поддерживает размер ,помоему больше размеров экрана

[Asher]

Привет.

Повторяю еще раз.
В чем смысл делать канву для предпросмотра с разрешением принтера?
все равно на экране ничего не увидите.
Есть функция отрисовки, которая работает в координатах переданного холста.
Для предпросмотра - передаете ей канву и размеры битмапа, для печати - канву и размеры принтера и рисуете сразу на ней.
Все.

[dimchik_b]

Мой вопрос состоял в том, что в какой именно строчке программы возникает исключение? То есть ставить точки останова и смотреть: вылетит - не вылетит. И тогда уже решать, где мало памяти. А все соображения о ненужности рисования в разрешении принтера - правильные

[serg76]

2Asher

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

остановился на том, что Stretch рисунка лучше сделать на сжатие(для экрана), так не теряется качество печати.

2dimchik_b

Мой вопрос состоял в том, что в какой именно строчке программы возникает исключение?

программа работает.
в зависимости от конфигурации(кампа и принтера) разная реакция: где нормально, где вобще не реагирует, где чистый лист, где на недостаток памяти

p.s.  идеальным остается рисование на прямую, но тогда все надо повторно прорисовывать
p.p.s. народ, если у кого есть доступ к матричникам поновее(Epson LX300,Epson 2180, OKI Microline , и т.д.) для работы надо, заранее спасибо

[Termi_uc]

Во первых, ошибка с нехваткой памяти возникает потому, что ты пытаешься выделить
4 * Printer()->PageWidth * Printer()->PageHeight байт памяти

Код:

Graphics::TBitmap *bmap=new Graphics::TBitmap;
  bmap->Width=Printer()->PageWidth;
  bmap->Height=Printer()->PageHeight;//в этой строчке

на моем принтере (домашний, лазерник) это 64 метра.
На плотере это несоразмерно больше. Именно поэтому возникает ошибка с нехваткой памяти.

Во вторых, зачем выделять память под всю картинку сразу? Выводи по частям, и при превью и на принтер.

[Zor]

Еще есть малоизвестный баг (напарывался неск раз) - после создания TBitmap надо всегда обновлять PixelFormat,
даже если по умолчанию он уже нужный стоит. Иначе изредка случается Fatal.

Если фото печатать не будут - ставьте pf8bit (самый быстрый режим), или вообще pf1bit..pf4bit.
Заодно и памяти меньше нужно на порядок.

[oxotnik]

Подниму старую темку...
Рисую на канве размерами 23 000х13 000, что весьма мне мало...
хотелось бы увеличить раз эдак в 10.

какими компонентами такое можно сотворить, или как сделать векторную графику?

[Yurkins]

Подниму старую темку...
Рисую на канве размерами 23 000х13 000, что весьма мне мало...
хотелось бы увеличить раз эдак в 10.

какими компонентами такое можно сотворить, или как сделать векторную графику?

ImageEn

[oxotnik]

2 Yurkins Благодарю!!!