Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: 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 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.023 c
14-1081759781
Lexer
2004-04-12 12:49
2004.05.02
Характеристика программиста


3-1081144026
Xmen
2004-04-05 09:47
2004.05.02
Запрос


1-1082025096
Ivolg
2004-04-15 14:31
2004.05.02
Папка


1-1081856491
Xobbit
2004-04-13 15:41
2004.05.02
MDIForm and MDIChild


4-1078333980
Rustamus
2004-03-03 20:13
2004.05.02
Доступ к системе