| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как можно вывести на принтер TIF-файл? [D7, Win95/98, WinXP]

alexeyII ©   (2003-12-15 11:52:00) 

Без использования платных компонент.

---

alexeyII   (2004-01-27 11:59:00) [1]

Воспользовался компонентой TTiffBitMap. Выдает пустую страницу.


procedure TForm1.BitBtn1Click(Sender: TObject);
var
 TiffBitmap: TTiffBitmap;
 MyRect: TRect;
begin
 try
  TiffBitmap := TTiffBitmap.Create;
  TiffBitmap.LoadFromTifFile(Edit1.Text);
  Printer.BeginDoc;
  Printer.Canvas.BrushCopy(MyRect, TiffBitmap, MyRect, clBlack);
  Printer.EndDoc;
 finally
  TiffBitmap.Free;
 end;
end;

где Edit1.Text - сжатый tiff.


---

d_oleg   (2004-01-27 10:19:00) [2]

На torry в разделе Bitmap images есть компонента TTiffBitMap. Наследник от TBitMap, позволяет загружать и сохранять в формате TIFF.

---

alexeyII   (2004-01-26 09:02:00) [3]

Чем такие высказывания бросать, лучше помогли.
Все компоненты платные. А как без них не пойму.

---

Anatoly Podgoretsky   (2004-01-26 08:52:00) [4]

alexeyII   (23.01.04 16:25) [5]
Дядя пошутил.

---

alexeyII   (2004-01-26 08:49:00) [5]

если не Bitmap'ом, так чем же выводить?

---

dmk   (2004-01-23 19:46:00) [6]

'D:\20040122\1003963.TIF'
А причем здесь Tif?
TBitmap нужны BMP файлы.

---

alexeyII   (2004-01-23 16:25:00) [7]

как использовать TBitMap?
Использую следующий код:

var
 Bitmap: TBitmap;
begin
 try
  Bitmap := TBitmap.Create;
  Bitmap.HandleType := bmDDB;
  Bitmap.LoadFromFile('D:\20040122\1003963.TIF');
  Image1.Canvas.StretchDraw(Bitmap.Canvas.ClipRect, Bitmap);
 except
 end;


Выдает следующее Bitmap image is not valid

Помогите, не могу понять, что не так?

---

_none_   (2003-12-15 14:58:00) [8]

to [alexeyII]
www.progdigy.com

---

Ghost7   (2003-12-15 13:47:00) [9]

Используй TBitMap.

---

alexeyII   (2003-12-15 12:18:00) [10]

У меня D7, а gdiplus D5, D6

---

_none_   (2003-12-15 12:12:00) [11]

gdiplus

---

Наверх