Forum: Multimedia
Delphi
by Schwedenbitter,
27. Aug 2008
@DeddyH
Bei dem Code-Schnipsel in Zeile 10, weil das Object zwar da aber leer war (Siehe unten).
:cheers: Ich habe es geschafft. Mein Denkfehler (mal wieder).
Es reicht nicht, ein Object anzulegen, sondern ich muss es auch füllen! Richtig muss also so heißen:
Procedure Speichern;
Var
PNG :TPNGObject;
Forum: Multimedia
Delphi
by Schwedenbitter,
27. Aug 2008
Das mache ich schon. Ich wollte nur nicht den ganzen Code hier posten. Sind zwar nur 117 Zeilen. Aber ich will das nicht überfrachten...
Forum: Multimedia
Delphi
by Schwedenbitter,
27. Aug 2008
Das mit der TObjectList habe ich jetzt eingebaut. Leider aber nicht richtig. Denn ich bekomme jetzt eine Zugriffsverletzung. Syntaxfehler kann ich nicht ausmachen. Der Code wird ohne zu murren kompiliert.
So funktionierte es ...
Procedure Speichern;
Var
PNG :TPNGObject;
Begin
// Vom Scanner holen
// Image1 ist vom Typ TImage
Forum: Multimedia
Delphi
by Schwedenbitter,
27. Aug 2008
Danke!
Das ist mir jetzt auch aufgefallen. Ich komme sonst von den Threads nicht an die TImage(s) ran. Blöder Fehler von mir!
Ich habe mir mal das hier angesehen und es liest sich vielversprechend. Bin (leider) grad auf Arbeit und kann es nicht ausprobieren. Es scheint nur ein Problem zu geben: Gibt es das unter Delphi 6 auch schon? Es sieht leider nicht danach aus :cry:
Gruß, Alex
Forum: Multimedia
Delphi
by Schwedenbitter,
27. Aug 2008
Ich dachte (<>Wissen), dass man mittels der Abfrage auf nil prüfen kann, ob das Object bereits auf dem Formular existiert; also erzeugt ist. Denn ich brauche die TImage nur, weil als Zwischenspeicher für die Scannerresultate. So stelle ich mir meinen Programmcode vor:
Thread 1
- Neues TImage anlegen
- Ergebnis des Scanners reinschreiben
Ende
Thread 2
- Schauen ob TImage(s) vorhanden...
Forum: Multimedia
Delphi
by Schwedenbitter,
27. Aug 2008
Hallo DeddyH
Das hat leider auch nichts gebracht. Es sollte letztlich auch ohne .Bitmap klappen. Denn wenn ich das TImage bei der Erstellung anlege, dann klappt es mit dem Befehl Image1.Picture.Assign(Image); schließlich auch ohne .Bitmap.
Nur weil ich TImage zur Laufzeit anlege, dürften doch keine anderen Befehle notwendig werden, oder? :gruebel:
Forum: Multimedia
Delphi
by Schwedenbitter,
27. Aug 2008
Danke erstmal für die Antwort.
Hat leider nichts gebracht. Die Fehlermeldung kommt wie eh und je. Vielleicht habe ich es auch an der falschen Stelle:
Inc(Zaehler);
// Image im Formular anlegen
If T1=nil Then
Begin
T1:=TImage.Create(Form1);
T1.Parent:=Form1;
Forum: Multimedia
Delphi
by Schwedenbitter,
26. Aug 2008
Hallo,
ich versuche mich grad am Scannen mehrerer Seiten mit TTwain. Das Scannen klappt, wenn ich schon beim Erstellen des Formulars ein TImage anlege, dem dann das Scanresultat zugewiesen wird. Mein Ziel ist es aber, mehrere Dokumente einzuscannen und da ich nicht weiß, wieviel der User auf den Scanner gepackt hat, muss ich die TImages zur Laufzeit anlegen. Ich will die später dann mittels...
