Entwickler-Ecke
Sonstiges (Delphi) - Gerät funktioniert nicht???
foxy - Di 28.01.03 09:40
Titel: Gerät funktioniert nicht???
Morgen alle ... also ich habe ein echtes mist Problem, da ich nie kompelieren kann
ich habe in ein ButtonClick eine scanfunktion eingebaut
die sieht so aus
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 installiert');
Form4.Show;
end; } |
aber der bringt IMMER Gerät nicht angeschlossen
1. ich hab auch kein scanner angeschlossen, aber er soll das doch überprüfen und dann sagen nein!!!.... und erst überprüfen, wenn ich auf den Button klicke ... ich weis escht nicht weiter
Nachtrag: Ich habe gerade mal BreakPoints gesetzt... also er kommt nicht bis in die FormCreate, und irgendwie auch nicht in die Projekt .dfm voll komisch was könnte das sein??
Klabautermann - Di 28.01.03 11:20
Hallo,
verwendest du eine Scanner Komponente, die du schon zur Entwicklungszeit auf Active := TRUE gesetzt hast?
Gruß
Klabautermann
foxy - Di 28.01.03 11:25
ich verwende die Kodak Komponente ... hab ich auch schon gedacht aber man kann die nirgens auf true setzten :(
aber ich habe da was gefunden, in der unit, die die verwendet
HINWEIS:
// Von $IFDEF_LIVE_SERVER_AT_DESIGN_TIME überwachte Einträge, werden von
// Eigenschaften verwendet, die Objekte zurückgeben, die explizit mit einen Funktionsaufruf
// vor dem Zugriff über die Eigenschaft erzeugt werden müssen. Diese Einträge wurden deaktiviert,
// um deren unbeabsichtigte Benutzung im Objektinspektor zu verhindern. Sie können sie
// aktivieren, indem Sie LIVE_SERVER_AT_DESIGN_TIME definieren oder sie selektiv
// aus den $IFDEF-Blöcken entfernen. Solche Einträge müssen jedoch programmseitig
// mit einer Methode der geeigneten CoClass vor der Verwendung
// erzeugt werden.
nur ich weis nicht was ich da machen muss ... bzw wo ich das definieren muss ... in der Unit oder in meiner mainUn ... ka
und die $IFDEF finde ich au nicht nirgens .... iss komisch
smiegel - Di 28.01.03 13:40
Hallo foxy,
gibt es zu der Kodak-Scanner-Komponente keine Beispiel-Sources oder ein Handbuch? Ich würde einmal auf der Kodak-Homepage nachschauen!
Was passiert, wenn Du einen Scanner anschließt?
Das Dir keiner helfen kann, liegt wahrscheinlich daran, dass niemand die Scann-Komponente kennt.
foxy - Di 28.01.03 13:46
http://www.swissdelphicenter.ch/de/showcode.php?id=971
das iss der tip von dem ich das habe .... wenn du mal drüberschauen könntest .... wäre echt nett .... vielleicht kennt sich sonst einer aus ... :/ kann doch nich so schwer sein
also wenn ich alles entferne( die Unit,alle uses deklarationen, eintrag in der projekt.dfm) alles kommt das immer noch .... aber erst seit ich das blöde teil da inst. habe
smiegel - Di 28.01.03 14:13
Hallo foxy,
erweitere die Unit
ImgeditLibCtl_TLB um folgende Zeilen, die Du am Schluss eingibst. Dann müsste es funktionieren. Zumindest startet dann Dein Programm.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| var
fUndo:Bool;
initialization
fUndo:=Succeeded(CoInitialize(nil));
finalization
if fUndo then CoUninitialize; |
foxy - Di 28.01.03 14:21
wenn du die Unit vor dir hast , steht da am ende
Quelltext
1:
2:
3:
4:
| procedure Register;
begin
RegisterComponents('ActiveX',[TImgScan]);
end; |
dann setz ich meine var in die implementation
was du geschrieben hast und am ende sieht das dann so aus?
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure Register;
begin
RegisterComponents('ActiveX',[TImgScan]);
end;
initialization
fUndo:=Succeeded(CoInitialize(nil));
finalization
if fUndo then CoUninitialize; |
stimmt das?? weil so kommt das noch immer :(
smiegel - Di 28.01.03 14:28
Hallo foxy,
ich habe mir extra die Mühe gemacht und die Kodak-Scan-Komponente installiert.
Nachdem ich die Änderungen vorgenommen hab', ging es bei mir. Vorher bekam ich immer die Fehlermeldung " ... CoInitialize wurde nicht aufgerufen ...".
Was erhälst Du für eine Fehlermeldung?
foxy - Di 28.01.03 14:46
erst mal echtes MEga thx an dich
echt!
Mein Kopf fühlt sich an als ob ein Zug kollidiert wäre ...
also meine fehlermeldung ist
"Vorgang kann nicht erzeugt werden. Ein an das System angeschlossene Gerät funktioniert nicht"
ich glaube ich versuch mal als nächstes ob das wirklich 100 % mit dieser Kombo zusammenhängt, und nicht mit einer einstellung in delphi.
also ich beginn mal ein einfaches neues projekt ... ich sag dir dann das ergebnis
Nachtrag:
Alle anderen Progs kann ich compelieren ....
foxy - Di 28.01.03 14:58
Ach LOOOOOOOOOOOL
verdammter mist ich kann nich so unterbelichtet sein ....
ich bin gerade mein Prog systematisch von oben nach unten durchgegangen und was war ???
VERDAMMT NOCH MAL MEINE .dll war nich richtig eingebunden DAS darf nicht war sein echt nicht .... VERDAMMT
sry an alle und NOMMA MEGA THX an smiegel
ich geb dir ma ein Bier aus falls wa uns im RL sehen :D
boa ich glaub ich fahr nu heim und geh schlafen ....
foxy - Mo 17.02.03 16:00
hi ich muss das Thema nomma auffrischen .... will keine neue topic machen sonst bekomm ich wieder eins auf die ohren von tino ;)
ma ne frage .. die Zeile
Quelltext
1:
| if Form4.ImgScan1.ScannerAvailable then |
sollte doch eigentlich rausfinden, ob ein scanner inst. ist?? oder?
also bei mir macht er das nicht :/
wenn ich auf meinen Button drücke (siehe code oben), dann stürzt alles ab also wirklich alles, weil ich keinen scanner inst. habe :)
was ist das ??ß weis das einer??
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!