guden all habe ein Problem aaalllsssooo
Ich will ein Bild scannen, per ButtonClick soweit alles klar
ich habe dazu die kodak activX scanner typBibliothek geladen
auch gut und ich erwende folgenden Code:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if Form4.ImgScan1.ScannerAvailable then
try
Form4.ImgScan1.Image :=(Getpath+'scan1.bmp') ;
Form4.ImgScan1.OpenScanner;
Form4.ImgScan1.Zoom := 100;
Form4.ImgScan1.StartScan;
//Form4.ImgScan1.ProcessMessages;
finally
Form4.ImgScan1.CloseScanner;
Form4.Image1.Picture.LoadFromFile(Form4.ImgScan1.Image);
end
else
ShowMessage('Error! Kein Scanner installier');
Form4.Show;
end; |
dann bringt er mir fehler, das ein angeschlossenes gerät nicht funktioner .. klar;) hab ja immo kein Scanner also will ich überprüfen, ob einer inst. ist wie mache ich das... also er bringt den fehler nicht wenn ich draufklicke sondern beim Compelieren
