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

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;
Это обязатально ,в качестве не потеряю?

---

← →
Soft ©   (2004-11-18 04:36) [7]

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

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

---

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

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



Память: 0.46 MB
Время: 0.034 c