-
Forum: Multimedia
Delphi
by Slashmob,
11. Dez 2011
Okidoki, ich werds spätestens morgen erfahren :-D
PS: Überprüf mal deine PN's
-
Forum: Multimedia
Delphi
by Slashmob,
11. Dez 2011
Darf ich fragen was das ABS bedeutet?
Ja es ist laut Aufgabenstellung richtig, aber ich denke es wäre besser, wenn man nicht nur von den Punkten ausgeht sondern von den ganzen roten Quadraten.
Man könnte doch einfach den Bereich der zu ignorieren ist vergörßern, sprich vielleicht sowas:
If (wert > schwellwert) and (Image3.Canvas.pixels<> clred) then scheint aber noch nicht ganz richtig...
-
Forum: Multimedia
Delphi
by Slashmob,
11. Dez 2011
Wie es im moment aussieht mit der Überlappung ist im Bild zu sehen (im Anhang).
Normalerweise dürfte er ja wegen der IF-Anweisung in keinem roten Bereich ein neues Quadrat zeichnen. Tut er aber..
Achja noch was und wie schafft man es genauso viele Punkte im Image4( Weißes Bild) wie Quadrate im Image3 zu zeichnen? Kann ich das am schnellsten mit einer IF-Anweisung machen? Was muss ich hier...
-
Forum: Multimedia
Delphi
by Slashmob,
11. Dez 2011
Mhm, überlappen sich trotzdem.
Bei b und h gibts keine Probleme (denk ich), da global deklariert, weiß nicht ob du darauf hinaus wolltest.
-
Forum: Multimedia
Delphi
by Slashmob,
11. Dez 2011
Mit initialisieren meinst du diesen Teil hier
vor die FOR-Schleifen zu setzen oder? Wenn nicht dann versteh ich nicht was genau du mit initialisieren meinst :oops:
-
Forum: Multimedia
Delphi
by Slashmob,
11. Dez 2011
Ja überlappen sich bei mehrmaligen Drücken des Buttons und Änderung des Schwellwerts(spinedit1.value).
-
Forum: Multimedia
Delphi
by Slashmob,
11. Dez 2011
Was genau soll ich im FormCreat sehen? Oder hab ich dich missverstanden?
procedure TForm1.FormCreate(Sender: TObject);
begin
b:=image1.width; h:=image1.height; // Breite und Höhe der Imagefelder
image2.width:=b; image2.height:=h;
image3.width:=b; image3.height:=h;
image4.width:=b; image4.height:=h;
image1.canvas.brush.color:=clblack; // Hintergrundfarben
-
Forum: Multimedia
Delphi
by Slashmob,
11. Dez 2011
Hab den code jetzt korrigiert. Dennoch frag ich mich warum folgendes Problem auftritt.
Ich lass die Quadrate mit der Kantenlänge 3 zeichnen. Ok alles wunderbar,klappt!
Dann verändere ich z.B. auf die Kantenlänge 7. Das Quadrat mit Kantenlänge 3 bleibt bestehen und er zeichnet mir um dieses Quadrat nur einen Umriss des Quadrats mit Kantenlänge 7. Das heißt er füllt die Fläche nicht richtig...
-
Forum: Multimedia
Delphi
by Slashmob,
10. Dez 2011
Ja, aber wie ruf ich die Prozedur richtig auf?
Und wie sieht die richtige Zuweisung aus?
Bei diesem Teil hab ich Verständisprobleme.
Im moment weiß ich nur, dass ich mit de Prozedur "quadratmalen" ein Quaadrat, bestehend aus 4 Linien, zeichnen und diese innere Fläche mit der Prozedur "floodfill" ausfüllen soll.
Die Allgemeinform der Prozeduren steht ja in der Aufgabe, aber jetzt...
-
Forum: Multimedia
Delphi
by Slashmob,
10. Dez 2011
Was ich nicht verstehe... Wir haben doch die Quadratmal-Prozedur procedure tform1.quadratmalen(image,top_,left_,kantenlaenge,farbe:integer); die uns mit Hilfe der Parameter das Quadrat malen soll. Wieso muss ich hier mit moveto/lineto bzw. rectangle arbeiten? Ich hatte mir das so vorgestellt, dass ich bei image3 das left_ und bottom_ bestimme, die kantenlänge aus dem spinedit2.value einlese und...
-
Forum: Multimedia
Delphi
by Slashmob,
9. Dez 2011
Ah super, danke schon mal für die Infos. Werde mich mal dransetzen und versuchen das umzusetzen. :thumb:
-
Forum: Multimedia
Delphi
by Slashmob,
9. Dez 2011
Nun steh ich wieder vor der Frage wie ich folgendes Problem lösen soll.
Ich muss nun um die gefundenen Punkte (X,Y), die im Stringgrid aufgelistet werden, ein Quadrat malen und dieses dann ausfüllen. (im Image3)
Hierfür hab ich zwei Prozeduren. Aber irgendwie verstehe ich nicht wie diese im Zusammenhang stehen.
Sowas hab ich leider noch nie gemacht. :oops:
Zum Beispiel weiß ich nicht was...
-
Forum: Multimedia
Delphi
by Slashmob,
9. Dez 2011
Ah jetzt steht dort keine Null mehr. *freu* :-D
Vor dem IF stand kein Begin und end?!
begin
b:=image1.width; h:=image1.height; // Breite und Höhe der Imagefelder
image2.width:=b; image2.height:=h;
schwellwert:=spinedit1.value; // Voreinstellung 10
z:=0;
-
Forum: Multimedia
Delphi
by Slashmob,
9. Dez 2011
Ich habe jetzt versucht den Code etwas anzupassen.
Ich brauch ja nur die Stellen wo es einen Unterschied der beiden Bildern mit dem Schwellwert gibt. Das heißt, es werden nicht mehr alle Pixel aufgelistet, sondern nur die, wo der (Differenz-)Wert > Schwellenwert.
Das Problem ist, dass bei der Ausgabe auf dem Stringgrid der (Differenz-)Wert immer Null ist.
Wo könnte der Fehler sein?
@Bummi...
-
Forum: Multimedia
Delphi
by Slashmob,
9. Dez 2011
Was bedeutet das? Muss ich ggf. was ändern?
@Bummi: versuche grade deine Idee anzupassen, doch irgendwie bleibt der Differenzwert immer Null.
Muss nochmal in den Code gucken...
-
Forum: Multimedia
Delphi
by Slashmob,
9. Dez 2011
Hm, das versteh ich nicht.
Hab versucht mit der ersten Schleife das erste Bild pixelweise auszulesen und mit der zweiten Schleife das zweite Bild. Liegt das vlt. daran, dass ich bei beiden die gleichen Variablen genommen hab?
-
Forum: Multimedia
Delphi
by Slashmob,
9. Dez 2011
Ach logisch, stimmt! (Bin noch Anfänger :oops:)
Jetzt ist der Fehler weg, aber es wird kein Wert angezeigt, stattdessen ändert sich die zeilenanzahl :?
Kriegt er denn mit dem obigen code einen Wert? Bin mir nicht ganz sicher...
-
Forum: Multimedia
Delphi
by Slashmob,
9. Dez 2011
Nun möchte ich den "wert" mit dem schwellwert vergleichen und ihn im stringgrid ausgeben, aber das klappt nicht. Dann kommt folgende Fehlermeldung:
Error: Incompatible type for arg no.3: Got "LongInt", expected "AnsiString"
For i:=1 to image1.width do // Erstes Bild pixelweise auslesen
Begin
For j:=1 to image1.height do
Begin
...
-
Forum: Multimedia
Delphi
by Slashmob,
9. Dez 2011
Das heißt bei der Differenz hab ich dann automatisch die Rotmaske drinnen,richtig?
-
Forum: Multimedia
Delphi
by Slashmob,
9. Dez 2011
Wie geht das mit dem ausmaskieren? In der Aufgabe steht ja ich soll eine Rotmaske für die Pixel verwenden.
Zu 4)Wie sieht das als Code aus, wenn ich das erste Bild pixelweise, also in jeder Zeile und Spalte die Pixel auslese und mit dem zweiten Bild vergleiche und dann die Differenz der Pixel bei den gleichen Koordinaten bilde?
Dachte irgendwie an sowas...
For i:=1 to image1.width do ...
-
Forum: Multimedia
Delphi
by Slashmob,
8. Dez 2011
Guten Tag zusammen,
ich möchte das untenstehende Projekt bearbeiten, das ich allerdings inhaltlich nicht ganz verstehe und mir somit die konkrete Umsetzung sehr schwer fällt.
Hier ist die Aufgabenstellung:
_________________________________________________________________________________________________________
Es sollen zwei Bilder des identischen Bereichs des Sternhimmels untersucht...
