foxy - Mo 27.01.03 14:06
Titel: Scanner Problem
guden all habe ein Problem aaalllsssooo :D
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