Gerät funktioniert nicht???

foxy · Verfasst: Di 28.01.03 09:40

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

markieren

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??

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

Klabautermann · Verfasst: 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 · Verfasst: 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

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

smiegel · Verfasst: 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.

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

foxy · Verfasst: Di 28.01.03 13:46

www.swissdelphicente.../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

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

smiegel · Verfasst: 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.

markieren

Quelltext

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

var
  fUndo:Bool;

initialization
  fUndo:=Succeeded(CoInitialize(nil));

finalization
  if fUndo then CoUninitialize;

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

foxy · Verfasst: Di 28.01.03 14:21

wenn du die Unit vor dir hast , steht da am ende

markieren

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?

markieren

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

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

smiegel · Verfasst: 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?

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

foxy · Verfasst: 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 ....

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

foxy · Verfasst: 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

boa ich glaub ich fahr nu heim und geh schlafen ....

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

foxy · Verfasst: 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

markieren

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??

_________________
"Only wimps use tape backup: real men just upload their important stuff on ftp, and let the rest of the world mirror it." (Linus Torvalds)
OperatingSystem Laptop (Ubuntu Hardy)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme