Как можно вывести на принтер TIF-файл?

← →
alexeyII (2003-12-15 11:52) [0]

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

← →
_none_ © (2003-12-15 12:12) [1]

gdiplus

← →
alexeyII (2003-12-15 12:18) [2]

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

← →
Ghost7 (2003-12-15 13:47) [3]

Используй TBitMap.

← →
_none_ © (2003-12-15 14:58) [4]

to [alexeyII]
www.progdigy.com

← →
alexeyII (2004-01-23 16:25) [5]

как использовать 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

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

← →
dmk © (2004-01-23 19:46) [6]

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

← →
alexeyII (2004-01-26 08:49) [7]

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

← →
Anatoly Podgoretsky © (2004-01-26 08:52) [8]

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

← →
alexeyII (2004-01-26 09:02) [9]

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

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

← →
alexeyII (2004-01-27 11:59) [11]

Воспользовался компонентой 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.

Как можно вывести на принтер TIF-файл? Найти похожие ветки