Bitmap ist ungültig

[Stread]

Hi,
ich wollte mal das Bild meiner Webcam anzeigen und abspeichern.
ich habe dazu den (doch schon alten) Code von TStringlist gefunden.
http://www.delphipraxis.net/59566-we...den-frame.html
Habe soweit alles gemacht wie gesagt, aber beim Compilieren sagt mein Delphi XE
EInvalidGraphic mit Meldung 'Bitmap ist ungültig' und es springt zur Projektdatei

Delphi-Quellcode:

program PCam2;

uses
  Forms,
  UCam2 in 'UCam2.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);  //Rot
  Application.Run;                        //markiert
end.

Es gibt ja noch keine eigene Komponente zur Webcam?
Wenn er denn funktioniert, wäre der Source schön kurz und man muss nicht 5 andere Units mit 5000 Zeilen Code einbinden.

[himitsu]

Zitat:

Delphi-Quellcode:

Application.CreateForm(TForm1, Form1); //Rot
Application.Run; //markiert

Da er dort anhält (nächster Befehl, wenn die genaue Zeile nicht ermittelbar war),
hat es also irgendwo, beim Erstellen deiner TForm1 geknallt.

Entweder ist ein ungültiges Bild z.B. in einer TImageList oder einem TImager auf der Form (also in der zu ladenden DFM) vorhanden.
Oder im Constructor, bzw. im OnCreate der TForm1 oder in einem der Constructoren der Komponenten auf der Form tritt dieser Fehler auf.



Haltepunkt auf Application.CreateForm(TForm1, Form1); und dann mit F7 (bzw. F8) weiter, bis du die eigentliche fehlerstelle findest.

Kommst du mit F7 nicht bis ins OnCreate der Form (notfalls eines Erstellen), dann liegt der Fehler vermutlich in der DFM oder einer der Subkomponenten.



Notfalls auch nochmal Haltepunkt auf Application.Initialize; , dann F9 und ab dort mit F8 durch die DPR.
So bekommst du auf jedenfall erstmal die genaue Fehlerzeile innerhalb der DPR.
Und dann, wie schon beschrieben, das Debuggen neu starten und ab der nun schon bekannten Fehlerzeile mit F7 einen Schritt tiefer. (dort dann wieder mit F7/F8 weiter voranarbeiten)

[Stread]

Ich habe auf einem 2. Computer das ganze nochmal wiederholt, dort ging es gleich.
Sehr komisch das ganze

Edit: Doch nicht. Aber ich weiß jetzt schon warum. Ich kann das Programm genau 1. Ausführen. (Pro PC Start) beim zweiten mal, egal auf direkt auf die .exe oder aus Delphi heraus, geht es nicht mehr. Dann kommt der Fehler Bitmap ist ungültig.
Aus Delphi heraus bricht es gleich ab, von der .exe aus zeigt er mir das Fenster Videogerät auswählen, und beim klick auf OK bricht er dann auch ab.

Projekt ist mal angefügt.