TImgScan, Parameter funktionieren nicht

KD · Hält's aus hier Beiträge: 6

hallo,

bei dem folgenden Code wird nicht komprimiert. Wäre schön, wenn jemand helfen könnte.

Wenn ich eine Seite A4 scanne, ist die Tiffdatei etwa 220 KB groß. Die gleiche Seite mit Kodak Imaging gescannt hat etwa 30 KB.

Gruß
K.-D.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

ImgScan1.SetScannerName('EPSON TWAIN 5');
ImgScan1.OpenScanner;
ImgScan1.SetPageTypeCompressionOpts(CustomSettings, BlackAndWhite1Bit,CCITTGroup42D, G42DFaxRBO);
ImgScan1.ShowSetupBeforeScan := true;
ImgScan1.Image := 'C:\test.tif';
ImgScan1.ScanTo := FileOnly;
ImgScan1.PageOption := AppendPages;
ImgScan1.MultiPage := true;
ImgScan1.StartScan;
ImgScan1.CloseScanner;

Moderiert von raziel: Delphi-Tags hinzugefügt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme