Forum: Multimedia
Delphi
by Klaus01,
30. Dez 2008
.. noch als Nachschlag:
Wenn ich das jpg lade verschwindet das Bild auch bei mir.
Ich habe den Code dann so angepasst, dann klappe es auch mit jpg.
procedure TForm1.Button1Click(Sender: TObject);
var
i,j : Integer;
blackCount: Integer;
jpg : TJpegImage;
Forum: Multimedia
Delphi
by Klaus01,
30. Dez 2008
.. kannst Du das Bild mal anhängen
Grüße
Klaus
Forum: Multimedia
Delphi
by Klaus01,
30. Dez 2008
... also bei mir tut es..
siehe Bild im Anhang.
Grüße
Klaus
Forum: Multimedia
Delphi
by Klaus01,
30. Dez 2008
.. die Variable heißt bei mit blackCount und nicht blackCout.
Grüße
Klaus
Forum: Multimedia
Delphi
by Klaus01,
30. Dez 2008
Hallo,
das könnte im Ansatz so ausschauen:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j : Integer;
blackCount: Integer;
begin
blackCount := 0;
Forum: Multimedia
Delphi
by Klaus01,
30. Dez 2008
.. da fällt mir nichts anderes ein als die schwarzen Pixel zu zählen
und in ein Verhältnis zur gesammten Pixelanzahl zu setzen.
Grüße
Klaus