Форум: "Media";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Вниз
Как можно вывести на принтер 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 вся ветка
Форум: "Media";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.046 c
