Forum | | | | Tommy | an short investigation about : Show of Landkarten with Date-Maps. Gibt's already Experience with the Integration of/ one Api moreover ? I erfasse Haltestellendaten and wants to site the Punktes through Übernahme the Orts - and Straßenangaben via Landkarte Show and the Coordinates thereby take and the data base with take off. large task or there already Ähnliches? |
| | | | |
| | Thomas Freier | something in the direction? [...]
Nachtrag: with of/ one Offlinekarte ? [...] |
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 01/24/14 ▲ |
| |
| | Tommy | GENAU! webmart.de position, like Google Maps too, The ticket to input the address available. my target would it, The address of Program To transfer (appeal through URL?"And The display the ticket in a Window darzustellen. One special Goodie would naturally yet The Übernahme the Coordinates.... in the code enclosed can I of course - to display the Bildes in the aufklappenden Image display for PNG's and the Ladebalken for Page The ticket in the Browserfenster see, but the term is so useless.
have You moreover weiterführende ideas??
Greeting Tommy
'$I firebird.inc
' data base
' ---------
'var fbDLL& = fbUseDLL("fbclient.dll",0)
'declare hdb& 'lever the data base
'Deklariere Eingabefelder
'------------------------
'Haltestellenname, place, latitude, longitude, booking, Buchtlänge, Echtzeitsystem, Funk, IP, Kennung1, Kennung2, Street, Nr, PLZ
Declare HST_Name$,HST_Ort$,Latitude$,Longitude$,booking$,Buchtlaenge$,Echtzeit$, Funk$, IP$, Kennung1$, Kennung2$, Street$, Nr$, PLZ$
Declare HST_Name&,HST_Ort&,Latitude&,Longitude&,Bucht&,Buchtlaenge&,Echtzeit&, Funk&, IP&, Kennung1&, Kennung2&, Strasse&, Nr&, PLZ&
Declare GoogleString$, Webcontrol&
Declare e%,x%,y%,zh%
Declare Save&,Exit&
Def GetSysColor(1) !"USER32","GetSysColor"
Set("SQLColWidth",15)
' data base link produce
'hdb& = fbInit("SYSDBA", "masterkey", "3TSDatabase.fdb" ,0)
x% = 955
y% = 435
zh%= 25
Window Title "Haltestelle erfassen"
Window Style 48 + 512
Window (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
UseFont "Arial",16,0,0,0,0
SetDialogFont 1
CLS GetSyscolor(15)
Create("Text",%HWnd,"Haltestellenname:",10,20,100,20)
HST_Name& = Create("Edit",%HWnd,"",140,20,350,20)
Create("Text",%HWnd,"Strasse/lane:",10,20+zh%,100,20)
Strasse& = Create("Edit",%HWnd,"",140,20+zh%,350,20)
Create("Text",%HWnd,"Nr:",500,20+zh%,30,20)
Nr& = Create("Edit",%HWnd,"",550,20+zh%,30,20)
Create("Text",%HWnd,"Ort:",10,20 + zh%*2,75,20)
HST_Ort& = Create("Edit",%HWnd,"",140,20 + zh%*2,200,20)
Create("Text",%HWnd,"Plz:",360,20 + zh%*2,75,20)
Plz& = Create("Edit",%HWnd,"",420,20 + zh%*2,70,20)
Create("Text",%HWnd,"Latitude (wide) :",10,20 + 3 * zh%,140,20)
Latitude& = Create("Edit",%HWnd,"",140,20 + 3 * zh%,150,20)
Create("Text",%HWnd,"Longitude (length):",310,20 + 3 * 25,140,20)
Longitude& = Create("Edit",%HWnd,"",450,20 + 3 * 25,150,20)
'halbfertiges part
'GoogleString$="https://maps.googleapis.com/maps/api/staticmap?center=Berkeley,CA&zoom=14&size=400x400&sensor=false"
var h& = @create("htmlWin",%hWnd,"maps.googleapis.com/maps/api/staticmap?center=Berkeley,CA&zoom=14&size=400x400&sensor=false",5,610,10,300,300)
waitinput
|
| | | | |
| | Thomas Freier | In these direction?
'Haltestellenname, place, latitude, longitude, booking, Buchtlänge, Echtzeitsystem, Funk, IP, Kennung1, Kennung2, Street, Nr, PLZ
Declare HST_Name$,HST_Ort$,Latitude$,Longitude$,booking$,Buchtlaenge$,Echtzeit$, Funk$, IP$, Kennung1$, Kennung2$, Street$, Nr$, PLZ$
Declare HST_Name&,HST_Ort&,Latitude&,Longitude&,Bucht&,Buchtlaenge&,Echtzeit&, Funk&, IP&, Kennung1&, Kennung2&, Strasse&, Nr&, PLZ&
Declare GoogleString$, Webcontrol&
Declare e%,x%,y%,zh%
Declare Save&,Exit&
Def GetSysColor(1) !"USER32","GetSysColor"
Set("SQLColWidth",15)
' data base link produce
'hdb& = fbInit("SYSDBA", "masterkey", "3TSDatabase.fdb" ,0)
x% = 955
y% = 435
zh%= 25
Window Title "Haltestelle erfassen"
'Window Style 48 + 512
Window (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
UseFont "Arial",16,0,0,0,0
SetDialogFont 1
CLS GetSyscolor(15)
Create("Text",%HWnd,"Haltestellenname:",10,20,100,20)
HST_Name& = Create("Edit",%HWnd,"",140,20,350,20)
Create("Text",%HWnd,"Strasse/lane:",10,20+zh%,100,20)
Strasse& = Create("Edit",%HWnd,"",140,20+zh%,350,20)
Create("Text",%HWnd,"Nr:",500,20+zh%,30,20)
Nr& = Create("Edit",%HWnd,"",550,20+zh%,30,20)
Create("Text",%HWnd,"Ort:",10,20 + zh%*2,75,20)
HST_Ort& = Create("Edit",%HWnd,"",140,20 + zh%*2,200,20)
Create("Text",%HWnd,"Plz:",360,20 + zh%*2,75,20)
Plz& = Create("Edit",%HWnd,"",420,20 + zh%*2,70,20)
Create("Text",%HWnd,"Latitude (wide) :",10,20 + 3 * zh%,140,20)
Latitude& = Create("Edit",%HWnd,"",140,20 + 3 * zh%,150,20)
Create("Text",%HWnd,"Longitude (length):",310,20 + 3 * 25,140,20)
Longitude& = Create("Edit",%HWnd,"",450,20 + 3 * 25,150,20)
'Kordinaten the Haltestelle are famous
settext Latitude&,"48.13699"
settext Longitude&,"11.5754"
'now The html produce
STANDORT
var h& = @create("htmlWin",%hWnd,$TempDir +"Test.html",5,610,10,300,300)
while 1
waitinput
wend
End
proc STANDORT'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ html produce
assign #2,$TempDir +"Test.html"
rewrite #2
Print #2,"<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Strict//EN'"
Print #2,"'https://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>"
Print #2,"<html xmlns='https://www.w3.org/1999/xhtml' xmlns:v='urn:schemas-microsoft-com:vml'>"
Print #2,"<HEAD>"
Print #2,"<TITLE>Karte</TITLE>"
Print #2,"<style type='Text/css'>"
Print #2,"#ticket { width: 400px; height: 400px;}"
Print #2,"</style>"
Print #2,"<script type='Text/javascript' src='https://maps.google.com/maps/api/js?sensor=false'></script>"
Print #2,"<script type='Text/javascript'>"
Print #2,"function initialize() {"
Print #2, " var latlng = new google.maps.LatLng("+gettext$(Latitude&)+", "+gettext$(Longitude&)+");"
Print #2," var myOptions = {"
Print #2," zoom: 18,"
Print #2," center: latlng,"
Print #2," mapTypeId: google.maps.MapTypeId.ROADMAP"
Print #2," };"
Print #2," var map = new google.maps.Map(document.getElementById('ticket'), myOptions);"
Print #2," var marker = new google.maps.Marker({"
Print #2," position: latlng,"
Print #2," map: map,"
Print #2," title: 'Hello champion."+chr $(092)+chr $(110)+" i'm here!' "
Print #2," });}"
Print #2,"</script>"
Print #2,"</HEAD>"
Print #2,"<body onload='initialize()'>"
Print #2," <div id='ticket' ></div>"
Print #2,"</body>"
Print #2,"</html>"
Close #2
endproc
|
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 01/25/14 ▲ |
| |
| | p.specht
| good idea, by me "scriptfehler", what must I adjust? |
| | | XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 01/25/14 ▲ |
| |
| | Thomas Freier | might the Line break his
'Hello champion."+chr$(092)+chr$(110)+" i'm here!'
once so testing
'Hello champion. i'm here!'
|
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 01/25/14 ▲ |
| |
| | Thomas Freier |
I erfasse Haltestellendaten and wants to site the Punktes through Übernahme the Orts - and Straßenangaben via Landkarte Show and the Coordinates thereby take and the data base with take off.
Datenübernahme Perhaps by drag&drop. names from the ticket are you don't say so and müßten nachgetragen go. example: [...]
|
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 01/25/14 ▲ |
| |
| | Tommy | Hello Thomas!
somehow is my latest response extinct
the Script is a genialer Ansatz and ought to as Problemlöser bring into action let. though would it cool, your Script walk To see! by me dismisses it itself unfortunately with a Scriptfehler (see Appendix) would You there again drüberschauen, Please? too your last Ansatz is for my Task very überlegenswert! i'd Yes sooner inverse dran weg want: The address enter and The Koordianten take.....
with many greet from Wien Tommy
|
| | | | |
| | Thomas Freier | I wisely not How I the Error find could. Getestet with FF, Opera, safari and k-meleon and no Problems. neither over XProfan. can The attitude at eurem IE The cause his? enclosed The Arbeits-html. |
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 01/25/14 ▲ |
| |
| | Julian Schmidt | Thomas suitor (25.01.14)
might the Line break his 'Hello champion."+chr$(092)+chr$(110)+" i'm here!'
once so testing 'Hello champion. i'm here!'
objectively must it so hot.
then functions it. |
| | | | |
| | Thomas Freier | @Julian, thanks. is somehow verschütt gone as i here whom Line break as an afterthought registered having, because in of my *.prf was is so include. |
| | | Gruß Thomas Windows XP SP2, XProfan X2 | 01/26/14 ▲ |
| |
| | Tommy | working! GENIAL! best Thanks! |
| | | | |
|
AnswerTopic-Options | 12.358 Views |
Themeninformationenthis Topic has 4 subscriber: |