![]() |
|
|
![]()
|
|
| alex6999 |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 5 Регистрация: 9.2.2009 Репутация: нет Всего: нет |
мне требуется отображать картинки из базы на квикрепорте.
пробовал ставить QRDBImage картинки требуется отображать выборочно сначало ставлю их все enable=false, потом отбражаю нужные через enable=true иногда все отображаются, иногда часть, чаще всего вообще ничего не отображается пробовал вот так, уже лучше, вернее картинки отображаются чаще. но всё равно глючат не по детски. тут конечно c++ но смысл ясен. TStream *SignatureStream; TBitmap *Signature = new TBitmap; Signature->SetSize(fPageReport->QRImage2->Width,fPageReport->QRImage2->Height); //без этого размер уезжает SignatureStream = LB_Drivers->CreateBlobStream(LB_Drivers->FieldByName("SIGNATURE"), bmRead); Signature->LoadFromStream(SignatureStream); fPageReport->QRImage2->Picture->Bitmap->Assign(Signature); SignatureStream->Free(); Signature->Free(); а вот такой код работает безупречно TBitmap *reportbmp; reportbmp = new TBitmap; reportbmp->SetSize(1000,600); GridRefresh(reportbmp,2); // эта процедура только рисует на канвасе. fPageReport->QRImage1->Picture->Bitmap->Assign(reportbmp); reportbmp->Free(); ещё один вопрос, увеличение разрения картинки не увеличивает качество печати на принтере 1200 дпи, мелкий текст получается корявый исспользую Rad Studio 2009 спасибо PS: картинку в базу сохраняю так TBlobField* BlobField; if(OpenPictureDialog1->Execute()) { if (DBImage1->DataSource->DataSet->State != dsEdit) if (DBImage1->DataSource->DataSet->State != dsInsert) DBImage1->DataSource->DataSet->Edit(); BlobField=(TBlobField*) DBImage1->DataSource->DataSet->FieldByName(DBImage1->DataField); BlobField->LoadFromFile(OpenPictureDialog1->FileName); DBImage1->DataSource->DataSet->Post(); } Это сообщение отредактировал(а) alex6999 - 9.2.2009, 20:49 |
|||
|
||||
![]()
|
| Правила форума "Delphi: Базы данных и репортинг" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами Обязательно указание: 1. Базы данных (Paradox, Oracle и т.п.) 2. Способа доступа (ADO, BDE и т.д.)
FAQ раздела лежит здесь! Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |