Tbitmap...Tjpeg

← →
denis24 (2004-11-16 17:17) [0]

Передаю в битовую матрицу графические данные со сканера
TWAIN_DrawDibToDC(MyBitMap.Canvas.Handle,0,0,Width,Height,dat,0,0)

(TWAIN_DrawDibToDC- это функция библиотеки по подключению к сканеру)
В итоге этот битмап имеет большие размеры.
Возник вопрос.
Можно ли эти графические данные передавать в обьект tjpeg на пример....только у jpeg нету canvas.Это както решается?

← →
Rem © (2004-11-16 17:29) [1]

JPEGImage.Assign(Bitmap);

← →
denis24 (2004-11-16 18:02) [2]

Тоесть забивать результаті сканирования в битмап,а в image
передавать jpeg?
jpeg.Assign(MyBitMap);
ImageUzi1.Picture.Graphic:=jpeg;

← →
Fenik (2004-11-16 18:17) [3]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625147&n=21

← →
Soft © (2004-11-16 19:55) [4]

>>denis24 (16.11.04 17:17)

А можно на почту кинуть описание функций TWAIN

Пример кода перевода BMP в jpeg

var Bitmap:TBitmap; Jpeg:TJPEGImage; Strstream:TFileStream; begin //create bitmap Bitmap:=TBitmap.Create; Bitmap.Height:=25; Bitmap.Width:=60; // //compress bitmap to Jpeg Jpeg:=TJPEGImage.Create; Jpeg.CompressionQuality:=1; Jpeg.Assign(Bitmap); Jpeg.Compress; // Jpeg.SaveToStream(Strstream); Jpeg.Free; end;

← →
Amoeba © (2004-11-17 11:07) [5]

TWAIN API здесь: ftp://delphi-jedi.org/api/twain19.zip

← →
denis24 (2004-11-17 12:12) [6]

To soft
Jpeg.CompressionQuality:=1;
.
.
Jpeg.Compress;
Это обязатально ,в качестве не потеряю?

>>denis24 (17.11.04 12:12) [6]
>>Jpeg.CompressionQuality:=1;

Конечно потеряешь, данный кусок взят из антиспамерской программы. Если хочешь без потери качества то Jpeg.CompressionQuality:=100;

Tbitmap...Tjpeg Найти похожие ветки