Скачать: CL | DM;

Как можно вывести на принтер 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]

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

---

← →
d_oleg ©   (2004-01-27 10:19) [10]

На 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.


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c