XProfan

Thomas
Freier

Etwas en el Richtung? [...]

Apéndice: Mit uno Offlinekarte ? [...]

Gruß Thomas
Windows XP SP2, XProfan X2

24.01.2014 ▲

Tommy

GENAU! webmart.de stellt, como Google Maps auch, el Karte después de Eingabe el Adresse disponible. Mein Ziel wäre lo, el Adresse vom Programa a transferencia (Aufruf por URL?" y el Anzeige el Karte en un Ventana darzustellen. Ein spezielles Goodie wäre natürlich todavía el Übernahme el Koordinaten....
Im Code anbei kann Yo zwar - después de Anzeige des Bildes en el aufklappenden Bildanzeige para PNG's y el Ladebalken para la página el Karte en el Browserfenster sehen, pero la Ablauf
es así unbrauchbar.

Hast Usted dazu weiterführende Ideen??

Saludo Tommy

'$I firebird.inc
' Datenbank
' ---------
'var fbDLL& = fbUseDLL("fbclient.dll",0)
'declarar hdb& 'Handle el Datenbank
'Deklariere Eingabefelder
'------------------------
'Haltestellenname, Ort, latitude, longitude, Bucht, Buchtlänge, Echtzeitsystem, Funk, IP, Kennung1, Kennung2, Strasse, Nr, PLZ
Declarar HST_Name$,HST_Ort$,Latitude$,Longitude$,Bucht$,Buchtlaenge$,Echtzeit$, Funk$, IP$, Kennung1$, Kennung2$, Strasse$, Nr$, PLZ$
Declarar HST_Name&,HST_Ort&,Latitude&,Longitude&,Bucht&,Buchtlaenge&,Echtzeit&, Funk&, IP&, Kennung1&, Kennung2&, Strasse&, Nr&, PLZ&
Declarar GoogleString$, Webcontrol&
Declarar e%,x%,y%,zh%
Declarar Save&,Exit&
Def GetSysColor(1) !"USER32","GetSysColor"
Conjunto("SQLColWidth",15)
' Datenbank Verbindung herstellen
'hdb& = fbInit("SYSDBA", "masterkey", "3TSDatabase.fdb" ,0)
x% = 955
y% = 435
zh%= 25
Título de la ventana "Haltestelle erfassen"
Ventana de Estilo 48 + 512
Ventana (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
UseFont Arial,16,0,0,0,0
SetDialogFont 1
CLS GetSyscolor(15)
Crear("Text",%HWnd,"Haltestellenname:",10,20,100,20)
HST_Name& = Crear("Edit",%HWnd,"",140,20,350,20)
Crear("Text",%HWnd,"Strasse/Gasse:",10,20+zh%,100,20)
Strasse& = Crear("Edit",%HWnd,"",140,20+zh%,350,20)
Crear("Text",%HWnd,"Nr:",500,20+zh%,30,20)
Nr& = Crear("Edit",%HWnd,"",550,20+zh%,30,20)
Crear("Text",%HWnd,"Ort:",10,20 + zh%*2,75,20)
HST_Ort& = Crear("Edit",%HWnd,"",140,20 + zh%*2,200,20)
Crear("Text",%HWnd,"Plz:",360,20 + zh%*2,75,20)
Plz& = Crear("Edit",%HWnd,"",420,20 + zh%*2,70,20)
Crear("Text",%HWnd,"Latitude (Breite) :",10,20 + 3 * zh%,140,20)
Latitude& = Crear("Edit",%HWnd,"",140,20 + 3 * zh%,150,20)
Crear("Text",%HWnd,"Longitude (Longitud):",310,20 + 3 * 25,140,20)
Longitude& = Crear("Edit",%HWnd,"",450,20 + 3 * 25,150,20)
'halbfertiges Teil
'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

XProfan X2

24.01.2014 ▲

Thomas
Freier

In esta Richtung?

'Haltestellenname, Ort, latitude, longitude, Bucht, Buchtlänge, Echtzeitsystem, Funk, IP, Kennung1, Kennung2, Strasse, Nr, PLZ
Declarar HST_Name$,HST_Ort$,Latitude$,Longitude$,Bucht$,Buchtlaenge$,Echtzeit$, Funk$, IP$, Kennung1$, Kennung2$, Strasse$, Nr$, PLZ$
Declarar HST_Name&,HST_Ort&,Latitude&,Longitude&,Bucht&,Buchtlaenge&,Echtzeit&, Funk&, IP&, Kennung1&, Kennung2&, Strasse&, Nr&, PLZ&
Declarar GoogleString$, Webcontrol&
Declarar e%,x%,y%,zh%
Declarar Save&,Exit&
Def GetSysColor(1) !"USER32","GetSysColor"
Conjunto("SQLColWidth",15)
' Datenbank Verbindung herstellen
'hdb& = fbInit("SYSDBA", "masterkey", "3TSDatabase.fdb" ,0)
x% = 955
y% = 435
zh%= 25
Título de la ventana "Haltestelle erfassen"
'Ventana de Estilo 48 + 512
Ventana (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
UseFont Arial,16,0,0,0,0
SetDialogFont 1
CLS GetSyscolor(15)
Crear("Text",%HWnd,"Haltestellenname:",10,20,100,20)
HST_Name& = Crear("Edit",%HWnd,"",140,20,350,20)
Crear("Text",%HWnd,"Strasse/Gasse:",10,20+zh%,100,20)
Strasse& = Crear("Edit",%HWnd,"",140,20+zh%,350,20)
Crear("Text",%HWnd,"Nr:",500,20+zh%,30,20)
Nr& = Crear("Edit",%HWnd,"",550,20+zh%,30,20)
Crear("Text",%HWnd,"Ort:",10,20 + zh%*2,75,20)
HST_Ort& = Crear("Edit",%HWnd,"",140,20 + zh%*2,200,20)
Crear("Text",%HWnd,"Plz:",360,20 + zh%*2,75,20)
Plz& = Crear("Edit",%HWnd,"",420,20 + zh%*2,70,20)
Crear("Text",%HWnd,"Latitude (Breite) :",10,20 + 3 * zh%,140,20)
Latitude& = Crear("Edit",%HWnd,"",140,20 + 3 * zh%,150,20)
Crear("Text",%HWnd,"Longitude (Longitud):",310,20 + 3 * 25,140,20)
Longitude& = Crear("Edit",%HWnd,"",450,20 + 3 * 25,150,20)
'Kordinaten el Haltestelle son bekannt
settext Latitude&,"48.13699"
settext Longitude&,"11.5754"
'ahora el html erzeugen
STANDORT
var h& = @create("htmlWin",%hWnd,$TempDir +"Test.html",5,610,10,300,300)

mientras que 1

    waitinput

wend

End

proc STANDORT'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ html erzeugen

    assign #2,$TempDir +"Test.html"
    rewrite #2
    Imprimir #2,"<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Strict//EN'"
    Imprimir #2,"'https://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>"
    Imprimir #2,"<html xmlns='https://www.w3.org/1999/xhtml' xmlns:v='urn:schemas-microsoft-com:vml'>"
    Imprimir #2,"<HEAD>"
    Imprimir #2,"<TITLE>Karte</TITLE>"
    Imprimir #2,"<style type='texto/css'>"
    Imprimir #2,"#karte { width: 400px; height: 400px;}"
    Imprimir #2,"</style>"
    Imprimir #2,"<script type='texto/javascript' src='https://maps.google.com/maps/api/js?sensor=false'></script>"
    Imprimir #2,"<script type='texto/javascript'>"
    Imprimir #2,"function initialize() {"
    Imprimir #2, "  var latlng = new google.maps.LatLng("+gettext$(Latitude&)+", "+gettext$(Longitude&)+");"
    Imprimir #2,"  var myOptions = {"
    Imprimir #2,"    zoom: 18,"
    Imprimir #2,"    center: latlng,"
    Imprimir #2,"    mapTypeId: google.maps.MapTypeId.ROADMAP"
    Imprimir #2,"  };"
    Imprimir #2,"  var map = new google.maps.Map(document.getElementById('karte'),  myOptions);"
    Imprimir #2,"  var marker = new google.maps.Marker({"
    Imprimir #2,"      position: latlng,"
    Imprimir #2,"      map: map,"
    Imprimir #2,"      title: '¡Hola Meister."+chr$(092)+chr$(110)+" Yo bin hier!' "
    Imprimir #2,"  });}"
    Imprimir #2,"</script>"
    Imprimir #2,"</HEAD>"
    Imprimir #2,"<body onload='initialize()'>"
    Imprimir #2,"  <div id='karte' ></div>"
    Imprimir #2,"</body>"
    Imprimir #2,"</html>"
    Cerrar #2

ENDPROC

Gruß Thomas
Windows XP SP2, XProfan X2

p.specht

Gute Concepto, en me "scriptfehler", qué muss Yo adaptar?

XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

Thomas
Freier

Könnte el Zeilenumbruch ser

'¡Hola Meister."+chr$(092)+chr$(110)+" Yo bin hier!'

Einmal así testen

'¡Hola Meister. Yo bin hier!'

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

Yo erfasse Haltestellendaten y möchte el Lage des Punktes por Übernahme el
Orts - y Straßenangaben via Landkarte Mostrar y el Koordinaten esta tomar y el Datenbank con ablegen.

Datenübernahme tal vez por drag&drop. Namen de el Karte son no posible y müßten nachgetragen voluntad. Ejemplo: [...]

screen.png	302 kB

Hochgeladen:	25.01.2014

Ladeanzahl:
		Descargar

Gruß Thomas
Windows XP SP2, XProfan X2

Tommy

Hola Thomas!

irgendwie es mi letzte Antwort untergegangen

Das Script es una genialer Ansatz y debería se como Problemlöser einsetzen dejar.
Aunque wäre lo toll, dein Script laufen a sehen! En me verabschiedet lo desafortunadamente con un Scriptfehler (siehe Anhang)
Würdest Usted como otra vez drüberschauen, Por favor,?
Auch Su letzter Ansatz es para mi Aufgabenstellung muy überlegenswert!

Yo sería sí más umgekehrt dran ir querer: El Adresse eingeben y el Koordianten tomar.....

Mit vielen Grüßen de Wien
Tommy

fehler.jpg	28 kB

Hochgeladen:	25.01.2014

Ladeanzahl:
		Descargar

XProfan X2

Thomas
Freier

Yo weis no Yo el Fehler encontrar podría. Getestet con FF, Opera, Safari y k-meleon y no Problemas. Auch no encima Xprofan. Kann el Einstellung beim eurem IE el Ursache ser? Anbei el Arbeits-html.

seite5.html	2 kB

Hochgeladen:	25.01.2014

Ladeanzahl:
		Descargar

Gruß Thomas
Windows XP SP2, XProfan X2

Julian
Schmidt

Thomas Freier (25.01.14)

Könnte el Zeilenumbruch ser

'¡Hola Meister."+chr$(092)+chr$(110)+" Yo bin hier!'

Einmal así testen

'¡Hola Meister. Yo bin hier!'

Tatsächlich muss lo así heißen.

Imprimir #2,"      title: '¡Hola Meister"+chr$(092)+chr$(110)+" Yo bin hier!'"

Dann funktioniert lo.

XProfan X2
Win7 Professional, SP1, AMD FX(tm)-8350 Eight-Core Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

26.01.2014 ▲