TImage EAccessViolation

[Schwedenbitter]

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 Thread komprimieren und Speichern.

Hier klappt es dann leider nicht mehr:

Delphi-Quellcode:

procedure TForm1.DelphiTwain1TwainAcquire(Sender: TObject;
   const Index: Integer; Image: TBitmap; var Cancel: Boolean);
Var
   T1   : TImage;
begin
   // Und wieder eine Seite...
   Inc(Zaehler);
   // Image im Formular anlegen
   If T1=nil Then
   Begin
      T1:=TImage.Create(Form1);
      //T1:=TImage.Create(Form1);
      T1.Left:=8;
      T1.Top:=8;
      T1.Width:=73;
      T1.Height:=105;
      T1.Stretch:=True;
      T1.AutoSize:=False;
   End;
   //Copies the Image parameter to the TImage
   T1.Picture.Assign(Image);            -> Zugrissverletzung
   //Image1.Picture.Assign(Image);      -> So lief es
   //We only want the first image
   Cancel:=True;
end;

Ich bekomme immer eine EAccessViolation. Wer kann mir sagen warum?

Gruß und Danke im Voraus, Alex

[mkinzler]

T1.Parent := Form1;

[Schwedenbitter]

Danke erstmal für die Antwort.

Zitat von mkinzler:

T1.Parent := Form1;

Hat leider nichts gebracht. Die Fehlermeldung kommt wie eh und je. Vielleicht habe ich es auch an der falschen Stelle:

Delphi-Quellcode:

   Inc(Zaehler);
   // Image im Formular anlegen
   If T1=nil Then
   Begin
      T1:=TImage.Create(Form1);
      T1.Parent:=Form1;
      T1.Left:=8;
      T1.Top:=8;
      T1.Width:=73;
      T1.Height:=105;
      T1.Stretch:=True;
      T1.AutoSize:=False;
   End;
   //Copies the Image parameter to the TImage
   T1.Picture.Assign(Image);

Ich glaube auch, dass das keine Rolle spielen sollte, da ich dem TImage mit TImage.Create(Form1); explizit sage, dass er zu Form1 gehört...

[DeddyH]

Und beiT1.Picture.Bitmap.Assign(Image); ?

[Schwedenbitter]

Hallo DeddyH

Zitat von DeddyH:

Und beiT1.Picture.Bitmap.Assign(Image); ?

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?

[DeddyH]

Kann es evtl. sein, dass das Image gar nicht erzeugt wird? Ich verstehe eh nicht, wieso Du eine lokale Variable auf nil prüfst, es muss ja sowieso erzeugt werden.

[Schwedenbitter]

Zitat von DeddyH:

Kann es evtl. sein, dass das Image gar nicht erzeugt wird? Ich verstehe eh nicht, wieso Du eine lokale Variable auf nil prüfst, es muss ja sowieso erzeugt werden.

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 sind
- Nach png wandeln
- Abspeichern
- betreffendes TImage löschen
Ende

Dazu muss ich zur Laufzeit TImage anlegen, weil ich nicht wissen kann, wieviel Seiten der Benutzer auf den Scanner gepackt hat.

[DeddyH]

Aber dann ist der Ansatz mit einer lokalen Variablen falsch. Falls Du ggf. mehrere dynamisch erzeugt Images brauchst, könntest Du ja beispielsweise eine TObjectList verwenden.

[Schwedenbitter]

Danke!

Zitat von DeddyH:

Aber dann ist der Ansatz mit einer lokalen Variablen falsch.

Das ist mir jetzt auch aufgefallen. Ich komme sonst von den Threads nicht an die TImage(s) ran. Blöder Fehler von mir!

Zitat von DeddyH:

Falls Du ggf. mehrere dynamisch erzeugt Images brauchst, könntest Du ja beispielsweise eine TObjectList verwenden.

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

Gruß, Alex

[DeddyH]

Ich habe gerade unter Delphi 5 nachgesehen, da gibt es TObjectlist bereits.