Abstand zwischen zwei linien messen?

[Karstadt]

Hallo. Möchte den Astand zwischen zwei schwarzen linien abmessen. Siehe Bild. (Die Roten linie sollen von untere schware Linie bis zum obere schwarze linie gemessen werden). Geht das? Ich muss zugeben ich bin der absolute anfäger in solchen sachen.

[Klaus01]

Guten Morgen,

Code:

 
Steigung:  y = m*x + n
  
m = dy/dx
    = (y2-y1) / (x2-x1)

Die Steigung kannst Du ausrechnen, weil
Du ja die Entpunkte der schiefen Geraden hast.

Ein Link dazu: http://www.macfunktion.ch/mathe/geraden/steigung.html

Grüße
Klaus

[Karstadt]

Hallo. Das muss nicht immer die steigerung sein. Es kann sein, das die Linien auch neben einander in einen bestimmten Abstand von einander sind. Wie kann ich diesen Abstand messen?

[Klaus01]

dann sind die Geraden parallel,

sagen wir mal Du malst die Linie mit procedure LineTo(X1, Y1: Integer);
und die andere mit procedure LineTo(X2, Y2: Integer);
dann ist der Abstand y2 -y1

Grüße
Klaus

[Karstadt]

...ich habe mich falsch ausgedrückt. Die Linien sind schon fertig gemalt. Ich lade mir ein Bild und jetzt muss den Abstand berechnen, wenn ich irgendow auf der untere Linie klicke.

Wichtig ist, das ich die Linien in einer bestehender Bild messen soll. Ich muss erkenne wo die Linie anfängt und wo die Linie endet.

[Klaus01]

wenn das also halbautomatisch gehen soll und Du die Endpunkte anklicken kannst.
Dann sollte es doch gehen das Du dir die Klickpositionen merkst ( onMouseDown, TImage)
wenn Du den Anfang un das Ende der Linien anklickst.
Mit den Positionen und den Bildmaßen kannst Du dann eine Strecke ausrechnen.


Vollautomatisch sollte das wohl eine Ecke schwerer sein.

Grüße
Klaus

[Karstadt]

Delphi-Quellcode:

wenn das also halbautomatisch gehen soll und Du die Endpunkte anklicken kannst.
Dann sollte es doch gehen das Du dir die Klickpositionen merkst ( onMouseDown, TImage)
wenn Du den Anfang un das Ende der Linien anklickst.
Mit den Positionen und den Bildmaßen kannst Du dann eine Strecke ausrechnen.


Vollautomatisch sollte das wohl eine Ecke schwerer sein.

Grüße
Klaus

-> Das ist genau meine Aufgaben
Das einzige was mir bekannt ist die ist X Größe.

Wenn ich die X Größe kenne muss ich mich von unten nach oben (gerade Linie) durcharbeiten. Das Bild hat nur zwei Farben (weis und schwarz).

Ich planne so mein Vorgehensweise. Da mir die X koordinate bekannt ist muss ich nur von oben nach unten gehen und den abstand von diesen zwei linie ausmessen. Muss ich die TImage komponente nehmen. Reicht nicht die TPicture ?

[Klaus01]

TPicture hat so weit ich das weiß, kein Eventhandler für onMousedown.


Grüße
Klaus

[mschaefer]

Aber TImage und das hat das Picture und das die Bitmap und da liegen die Pixel zum auslesen.. // Grüße

[Karstadt]

BMP.Canvas.Pixels[x,y]