GPS Koordinaten aus einem Bild!

[MiniMax]

Hallo Zusammen,
ich habe folgende Probleme:

1) Ich möchte ein Screenshot (Bild) in mein Programm Laden, und dann die Vier Eckkoordinaten angeben. Nun soll Lazarus, bei Klick auf das Bild die exakte GPS Koordinate ausgeben. Die Koordinaten sollen Später in einer Textbox (Label) Angezeigt werden. Wie bekomme ich das hin?

2) Wie bekomme ich hin, das mein Programm beim Programmende, das Bild in einem Ordner speichert, Zusammen mit anderen Einstellungen (wie z.B. die Eckkoordinaten)??

Ich hoffe ihr könnt mir Helfen!

[Mithrandir]

Scheitert es an der Umrechnung Bildkoordinaten <-> GPS-Koordinaten, oder daran, wie man feststellen kann, wo geklickt wurde? :gruebel:

[MiniMax]

Hallo,
es scheitert an beiden Sachen (Umrechnung + Wo geklickt wurde)

[blink182]

du hast ja die Koordinaten von oben und unten. Dann berechnest du die Differenz der beiden "Punkte". Hast somit dann die "Breite" wie groß dein Viereck ist, in Koordinaten. Dann rechnest du noch um wie viele Breitengrade auf einen Pixel gehen. Ich glaub das war dif/pixel
und dann hast klickst du irgendwohin bekommst den Pixel - multiplizierst das mit dif/pixel und addierst das zu deiner oberen Koordinate. äquivalent für links rechts. Ich meine so hatten wir das damals gemacht, als wir das mal brauchten :-)

[Torpedo]

Das funktioniert aber nur, wenn das Bild (ich nehme mal an, es ist ein Satellitenfoto/Landkarte) weit genug hineingezoomt ist.
Sonst kann man nicht so einfach Koordinaten auf einer Kugel auf einer zweidimensionalen Fläche darstellen.

[FAlter]

Hi,

Umrechnung in GPS-Koordinaten? Wie meinen?

Meinst du das? http://de.wikipedia.org/wiki/Geographische_Koordinaten
Ist dein Bild eine Landkarte?
Falls es ein Foto ist wirst du nicht genauer kommen als an die GPS-Exif-Daten es angeben...

Gruß
FAlter

[MiniMax]

Hallo Zusammen,
danke für eure Antworten. Ich schildere mein Problem mal etwas näher.
Das bild ist ein Satteliten Bild! Es zeigt ein Feld mit ein bisschen Umzu.
Ein Beispiel: Google Maps Beispiel

Diese Software ist für einen Autopiloten gedacht!
Könntet ihr mir beispiele Reinstellen, wie ich das mit Lazarus/Delphi realisieren kann?

Ich hoffe es hat lust jemand mir ein Beispiel reinzustellen?!
Schöhne Weihnachten noch @All

[Torpedo]

Bei einem Zoom-Faktor wie auf dem gezeigten Bild sollte die Berechnung durch einfache Interpolation/Dreisatz möglich sein, wenn mindestens zwei Koordinaten dem richtigen Punkt auf dem Bild zugeordnet werden können.

[MiniMax]

Hi,
danke für deine Antwort! Kannst du mal ein Beispiel reinstellen? Das wäre sehr nett von dir, weil ich noch nicht so recht weis wie man mit Lazarus rechnet :wall:

[wicht]

Hört sich doof an, aber ich glaube, du solltest dir erstmal grundlegendes Wissen aneignen (Tutorial lesen, oder mal Delphi-Crashkurs anschauen)...

[MiniMax]

Hi,
der Link ist gut, aber das was dort drinne steht habe ich schon lange hintermir! Es ist halt nur mit dem Rechnen wo es noch hapert! Habt ihr denn keinen Vorschlag, wie ich den Bildpunkt auslesen kann?

[blink182]

wie wäre es mit der OnMouseDown-Methode? :-)

[MiniMax]

und was bringt die? Eine Frage noch: alle Sprechen von der Delphi Online Hilfe - aber wo finde ich die`?

[wicht]

Als Lazarus-Benutzer wohl nirgens, als Delphi-Benutzer unter Hilfe im Menü??

[MiniMax]

Achso! Naja dann werde ich mal überlegen mir Delphi 7 zu Holen
Danke@all

[blink182]

Onmousedown würde ich nehmen, da du dann genau die Position hast wo die mouse gedrückt wurde
die Methode Hat x,y als integer Parameter ähnlich wie Mousemove und noch tmousebutton dann kannst du prüfen ob die linke Taste gedrückt wurde.

[wicht]

Also, man findet auch zu fast jeder Funktion/Klasse genug Zeugs im Internet. Ich persönlich finde Google manchmal nützlicher, als die Delphi-Hilfe.. Dafür würde ich mir jedenfalls kein Delphi kaufen, wenn für meine Projekte Lazarus passt.

[MiniMax]

Würde das auch so gehen?

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Form1.Caption := 'x: ' + IntToStr(X) + ', y: ' + IntToStr(Y);
end;

UNd dann halt nur mit Onmousedown ???

[wicht]

Probier's doch aus :wink: .. Der Code sieht für mich aber okay aus, das sollte laufen.

[MiniMax]

Hey Leute,
er Funktioniert!
Danke nochmal an euch alle