Térképrajzolás GPS segítségével
2009-09-15T11:17:03+02:00
2009-09-16T12:28:35+02:00
2022-07-25T10:51:18+02:00
  • megkaptad az e-mail cimem?
    Mutasd a teljes hozzászólást!
  • Mutasd a teljes hozzászólást!
  • csak azért kérem, mert a kép meghivása, és generálása nem mükodi
    Mutasd a teljes hozzászólást!
  • Na jó, tudom hogy ez már egy kicsit pofátlanság, de a dpr és pas fájlt el tudnád küldeni?
    Mutasd a teljes hozzászólást!
  • Mutasd a teljes hozzászólást!
  • Amugy helyesen "немає за што" (nemaje za sto)
    Mutasd a teljes hozzászólást!
  • Mutasd a teljes hozzászólást!
  • Köszönöm szépen
    Mutasd a teljes hozzászólást!
  • Ez már a bővitett változat nem a 20 soros!

    unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls, ShellApi, ComCtrls, jpeg; type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Panel1: TPanel; Panel2: TPanel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; ComboBox1: TComboBox; ComboBox2: TComboBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Memo1: TMemo; Memo2: TMemo; Image1: TImage; ReplaceDialog1: TReplaceDialog; OpenDialog1: TOpenDialog; Shape1: TShape; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); procedure Label3Click(Sender: TObject); procedure ReplaceDialog1Replace(Sender: TObject); procedure ReplaceDialog1Find(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} Uses WinInet, UrlMon; procedure TForm1.SpeedButton1Click(Sender: TObject); var kozep,szoveg,eredmeny,meret, nagyitas : String; begin kozep := memo1.Lines[0]; meret := ComboBox1.Items[ComboBox1.Itemindex]; nagyitas := ComboBox2.Items[ComboBox2.Itemindex]; szoveg := Memo1.Text; eredmeny := 'http://maps.google.com/maps/api/staticmap?center='+ kozep+ '&zoom='+ meret+ '&path=color:0x0000FF80|weight:5|'+ szoveg+ '&size='+ nagyitas+ '&&sensor=false&key=ABQIAAAAjU0EJWnWPMv7oQ-jjS7dYxSPW5CJgpdgO_s4yyMovOaVh_KvvhSfpvagV18eOyDWu7VytS6Bi1CWxw'; if URLDownloadToFile(nil, pchar(eredmeny), pchar(extractfilepath(paramstr(0))+'gunter86.jpg'), 0, nil)=0 then begin end; Form1.Caption := 'Hely: '+extractfilepath(paramstr(0))+'gunter86.jpg'; end; procedure TForm1.SpeedButton2Click(Sender: TObject); var directory : String; begin try directory:=ExtractFilePath(ParamStr(0)); ShellExecute(Handle, nil, PChar(directory+'\gunter86.jpg'), nil, PChar(directory), SW_SHOWMAXIMIZED); except end; end; procedure TForm1.Label3Click(Sender: TObject); var linkneve: array[0..254] of WideChar; begin StringToWideChar('http://maps.huge.info/trace.htm', linkneve, 254); HlinkNavigateString(nil, linkneve); end; procedure TForm1.SpeedButton4Click(Sender: TObject); begin if Length(Memo1.SelText) > 0 then ReplaceDialog1.FindText := Memo1.SelText; ReplaceDialog1.Execute; end; procedure TForm1.ReplaceDialog1Replace(Sender: TObject); var Flags: TReplaceFlags; begin if frReplaceAll in ReplaceDialog1.Options then begin if frMatchCase in ReplaceDialog1.Options then Flags := [] else Flags := [rfIgnoreCase]; Memo1.Lines.Text := StringReplace(Memo1.Lines.Text, ReplaceDialog1.FindText, ReplaceDialog1.ReplaceText, [rfReplaceAll]+Flags); ShowMessage('ELKÉSZŰLT'); end; end; procedure TForm1.ReplaceDialog1Find(Sender: TObject); var s, sub: string; SelPos: Integer; begin Memo1.SetFocus; if Memo1.SelLength > 0 then Memo1.SelStart := Memo1.SelStart +1; if frMatchCase in ReplaceDialog1.Options then begin s := Memo1.Lines.Text; sub := ReplaceDialog1.FindText; end else begin s := AnsiUpperCase(Memo1.Lines.Text); sub := AnsiUpperCase(ReplaceDialog1.FindText); end; Memo1.SelStart := SelPos-1; Memo1.SelLength := Length(ReplaceDialog1.FindText); if Memo1.SelStart = Memo1.GetTextLen then begin ShowMessage('Az állomány végén van a kurzor!'); Memo1.SelStart := 0; end; end; procedure TForm1.SpeedButton3Click(Sender: TObject); begin if OpenDialog1.Execute then begin Memo1.Clear; Memo1.Lines.LoadFromFile(Opendialog1.FileName); end; end; end.
    Mutasd a teljes hozzászólást!
  • Kösz szépen a progit.
    Ha megkérlek el tudnád küldeni a forráskódot is? Az igazság az, hogy én Ukrajnában lakom, és orosz rendszereket használunk, és a windows nem tud mit kezdeni a magyar karakterekkel, ugyhogy csak megnyitn tudom, és más semmi. Ígérem, csak lekompillálom az orosz delphim alatt, és le is törlöm.
    Mutasd a teljes hozzászólást!

  • Letudtad tölteni?
    Mutasd a teljes hozzászólást!
  • hudibandi!
    Nem tudom letolteni a krogit, nem nyitja meg az oldalt. Segitenel?
    Mutasd a teljes hozzászólást!
  • kosz mindenkinek a hozzaszolast. sokat segitettetek
    Mutasd a teljes hozzászólást!

  • -= Google térkép generálása itt =-

    a GPS koordinátákat csak helyettesítsd be és legenerálja a képet

    API key szükséges hozzá

    pl egy kód:
    http://maps.google.com/maps/api/staticmap?center=37.400437,-122.073040&zoom=13&path=color:0x0000FFcc|weight:5|37.40507,-122.08214|37.39894,-122.08214|37.39539,-122.06789|37.39921,-122.05587|37.40903,-122.05948|37.41271,-122.07458|37.40603,-122.08317|37.40507,-122.08214&size=500x300&sensor=TRUE_OR_FALSE&key=YOUR_KEY_HERE
    Mutasd a teljes hozzászólást!
  • Én is szerettem volna google maps-al, de a baj az, hogy ezt a dolgot télen kell megejteni, amikor még csak el van döntve, hogy mi hol lesz.

    No de a parcellák télen is ott vannak, meg nyáron is. A rajzot tök mindegy mikor csinálod meg, nem?
    Fogod a képet, ráviszed az egeret egy pontjára, megnézed a GPS koordinátákat és felviszed a progidba.
    Ez alapján úgy rajzolsz térképet, ahogy csak szeretnél (persze egy spec komponenssel ez egyszerűbb). Aztán lehet tervezni, akár a helyszínen, akár a jó meleg irodában. Miért kellene ehhez terepmunka?
    Mutasd a teljes hozzászólást!
  • Mo-n a régészek gyakorlatilag ugyanerre a feladatra az ArcGIS programot használják (csak ők ásatásokat, lelőhelyeket és nem mezőgazdasági területeket mérnek fel). Természetesen egyedi fejlesztés és testreszabás szükséges lesz.
    Mutasd a teljes hozzászólást!
  • hm...
    belenézek, kösz a figyelmeztetést
    Mutasd a teljes hozzászólást!
  • lépj be itt teszt felhasználóként


    Hiba a szerver oldalon! A hirdetéseket nem lehetett lekérni.(mx.messaging.messages::ErrorMessage)#0
    body = (Object)#1
    clientId = "DirectHTTPChannel0"
    correlationId = "41F54945-A532-6007-B314-BD6BBFC5BAD4"
    destination = ""
    extendedData = (null)
    faultCode = "Server.Error.Request"
    faultDetail = "Error: [IOErrorEvent type="ioError" bubbles=false cancelable=false eventPhase=2 text="Error #2032"]. URL: ../getAds.php"
    faultString = "HTTP request error"
    headers = (Object)#2
    messageId = "0DCA3D24-1928-4687-F29E-BD6BBFE48910"
    rootCause = (flash.events::IOErrorEvent)#3
    bubbles = false
    cancelable = false
    currentTarget = (flash.net::URLLoader)#4
    bytesLoaded = 0
    bytesTotal = 0
    data = ""
    dataFormat = "text"
    eventPhase = 2
    target = (flash.net::URLLoader)#4
    text = "Error #2032"
    type = "ioError"
    timestamp = 0
    timeToLive = 0


    Ez gondolom csak azert jelent meg, mert veletlenul debug modban maradt az alkalmazas..?
    Mutasd a teljes hozzászólást!
  • Ha már eltárolt koordinátákból kell kirajzolni egy adott területet az nem nagy dolog. (Ha jól értelmeztem a problémát)

    A google maps tud poligont is rajzolni, ha ez ebben a formában elég, akkor nem nagy ügy.

    Ennyi elég?
    lépj be itt teszt felhasználóként és belépés után a listában kattints kettőt az első merülésre, majd a "szerkesztés a térképen" gombra. Ott látod a kirajzolt útvonalat.
    Mutasd a teljes hozzászólást!
  • TÖRÖLVE
    Mutasd a teljes hozzászólást!
  • real_het
    A mapinfoval az a baj, hogy egy rakás, számomra fölösleges dolog van benne, ugyhogy nem fogjuk megvenni.
    Mutasd a teljes hozzászólást!
  • Huuuuuuuuhhhhhh. Na ezekkel el leszek egy darabig, míg átböngészem. koszi. de ha valakinek van még ötlete, azt nagyon megköszönném
    Mutasd a teljes hozzászólást!
  • Van egy pár kész szoftver is erre, pl. mapinfo, itt olvashatsz rola.

    Ebben lehet térképeket szerkeszteni is, adatbazistokat, GPS-t is kezel.
    Borsos ára is van persze: "The price for MapInfo Professional version 9.0 is $1495, single seat list price."

    De ha egyszeru, sajátot szeretnél, akkor eloszor olvasgass utána pl Google. Itt van a http://www.sitkei.com/commoncad/ project is :D.

    Koordinata transzformaciok, vetuleti rendszerek, terkep objektumok tarolasa, user interakcio, miegymas.

    Szoval ha a com port, meg a gps kommunikacio megy, akkor lepesrol lepesre ez is menni fog (pl. kezdetnek egy vonalrajzolo progi, majd zoom, pan, ...), ha mégsem, akkor ez így állás/munka rovat.
    Mutasd a teljes hozzászólást!
  • Mutasd a teljes hozzászólást!
  • Felteszem másképp a kérdést.
    A GPS kapcsolat a számitógéppel nem probléma, a funkcionális elektronikába és annak programozásába nagyon otthon vagyok, az hogy leolvassam az adatokat a GPS-ről, és esetleg tároljam őket egy adatbázisban nem probléma.
    A probléma az, hogy nem tudom hogy a meglévő koordinátákból hogy tudnék egy "térképet" rajzolni. van-e esetleg ilyen program, ami ezt megcsinálja, vagy írni kell egyet. ha írni kell, na az jelent problémát, mert azt se tudom., hogy fogjak bele.
    Mutasd a teljes hozzászólást!
  • Aha, ertem. Marad a manualis gps kezeles, ahol a koordinakkal aztan azt csinalsz, amit akarsz...

    Mutasd a teljes hozzászólást!
  • real_het!
    Én is szerettem volna google maps-al, de a baj az, hogy ezt a dolgot télen kell megejteni, amikor még csak el van döntve, hogy mi hol lesz. kimegyünk 1-2 agronómussal, és ők ott rámutatnak a területre, hogy ott pl. ez lesz ültetve, és ezt akkor be kell vinni az adatbazisba, és itt nem 1 nagy területről van szó, hanem sok-sok kissebbről, ami sztem csak GPS-el lehetne elég pontos.
    Mutasd a teljes hozzászólást!
  • Hi!

    google maps?

    Nyilvan nehezebben szamolhato el, mint ha latják, hogy egesznap egy laptoppal járod körbe a táblákat :D

    Kulonben meg kell hozzá soros port kezelés es azon egy protokol hasznalata.
    Mutasd a teljes hozzászólást!
  • Üdv mindenkinek!
    A kérdésem a következő:
    Egy mezőgazdasági cégnél dolgozok_ és a problémám az, Hogy hogy lehetne a legegyszerübben megoldani azt, hogy szerkesszek egy olyan térképet, amin semmi más nincs, csak a cég álltal használt főldterületek. Úgy szeretném ezt megoldani, hogy fogok egy GPS-t, és körbejárom vele az adott területeket, és az automatikusan lerajzolja a megtett utvonalamat. na most ezt nem egy meglévő térképre, hanem egy üres fehér JPG-be, vagy bármilyen més kiterjesztéfü fájlba.
    A célja pedig az lenne a programnak, hogy rákattintva a lerajzolt területre, minden adatot megjelenitsen róla (mit termelnek rajta, stb)
    Előre is kösz a segítséget.
    Mutasd a teljes hozzászólást!
abcd