XProfan

Thomas
Freier

quelque chose dans qui direction? [...]

Nachtrag: avec einer Offlinekarte ? [...]

Gruß Thomas
Windows XP SP2, XProfan X2

24.01.2014 ▲

Tommy

GENAU! webmart.de stellt, comment Google Maps aussi, qui carte pour Eingabe qui Adresse zur Disposition. mon but wäre es, qui Adresse vom Programme trop transfert (Aufruf par URL?" et qui Anzeige qui carte dans einem la fenêtre darzustellen. un spezielles Goodie wäre naturellement encore qui Übernahme qui Koordinaten....
Im Code anbei peux je zwar - pour Anzeige des Bildes dans qui aufklappenden Bildanzeige pour PNG's et dem Ladebalken pour qui page qui carte dans dem Browserfenster voyons, mais qui le bout
est inutilisable.

la hâte Du en supplément weiterführende idées??

Salut Tommy

'$I firebird.inc
' banque de données
' ---------
'var fbDLL& = fbUseDLL("fbclient.dll",0)
'declare hdb& 'Handle qui banque de données
'Deklariere Eingabefelder
'------------------------
'Haltestellenname, lieu, latitude, longitude, Bucht, Buchtlänge, Echtzeitsystem, Funk, IP, Kennung1, Kennung2, Strasse, Nr, PLZ
Déclarer HST_Name$,HST_Ort$,Latitude$,Longitude$,Bucht$,Buchtlaenge$,temps réel$, Funk$, IP$, Kennung1$, Kennung2$, Strasse$, Nr$, PLZ$
Déclarer HST_Name&,HST_Ort&,Latitude&,Longitude&,Bucht&,Buchtlaenge&,Echtzeit&, Funk&, IP&, Kennung1&, Kennung2&, Strasse&, Nr&, PLZ&
Déclarer GoogleString$, Webcontrol&
Déclarer e%,x%,y%,zh%
Déclarer Save&,Exit&
Def GetSysColor(1) !"User32","GetSysColor"
Set("SQLColWidth",15)
' banque de données liaison herstellen
'hdb& = fbInit("SYSDBA", "masterkey", "3TSDatabase.fdb" ,0)
x% = 955
y% = 435
zh%= 25
Titre de la fenêtre "Haltestelle erfassen"
Fenêtre Style 48 + 512
Fenêtre (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
UseFont Arial,16,0,0,0,0
SetDialogFont 1
CLS GetSyscolor(15)
Créer("Text",%HWnd,"Haltestellenname:",10,20,100,20)
HST_Name& = Créer("Edit",%HWnd,»,140,20,350,20)
Créer("Text",%HWnd,"Strasse/ruelle:",10,20+zh%,100,20)
Strasse& = Créer("Edit",%HWnd,»,140,20+zh%,350,20)
Créer("Text",%HWnd,"Nr:",500,20+zh%,30,20)
Nr& = Créer("Edit",%HWnd,»,550,20+zh%,30,20)
Créer("Text",%HWnd,"Ort:",10,20 + zh%*2,75,20)
HST_Ort& = Créer("Edit",%HWnd,»,140,20 + zh%*2,200,20)
Créer("Text",%HWnd,"Plz:",360,20 + zh%*2,75,20)
Plz& = Créer("Edit",%HWnd,»,420,20 + zh%*2,70,20)
Créer("Text",%HWnd,"Latitude (Breite) :",10,20 + 3 * zh%,140,20)
Latitude& = Créer("Edit",%HWnd,»,140,20 + 3 * zh%,150,20)
Créer("Text",%HWnd,"Longitude (Longueur):",310,20 + 3 * 25,140,20)
Longitude& = Créer("Edit",%HWnd,»,450,20 + 3 * 25,150,20)
'halbfertiges partie
'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

dans cet direction?

'Haltestellenname, lieu, latitude, longitude, Bucht, Buchtlänge, Echtzeitsystem, Funk, IP, Kennung1, Kennung2, Strasse, Nr, PLZ
Déclarer HST_Name$,HST_Ort$,Latitude$,Longitude$,Bucht$,Buchtlaenge$,temps réel$, Funk$, IP$, Kennung1$, Kennung2$, Strasse$, Nr$, PLZ$
Déclarer HST_Name&,HST_Ort&,Latitude&,Longitude&,Bucht&,Buchtlaenge&,Echtzeit&, Funk&, IP&, Kennung1&, Kennung2&, Strasse&, Nr&, PLZ&
Déclarer GoogleString$, Webcontrol&
Déclarer e%,x%,y%,zh%
Déclarer Save&,Exit&
Def GetSysColor(1) !"User32","GetSysColor"
Set("SQLColWidth",15)
' banque de données liaison herstellen
'hdb& = fbInit("SYSDBA", "masterkey", "3TSDatabase.fdb" ,0)
x% = 955
y% = 435
zh%= 25
Titre de la fenêtre "Haltestelle erfassen"
'Fenêtre Style 48 + 512
Fenêtre (%MaxX - x%) / 2,(%MaxY - y%) / 2 - x%,y%
UseFont Arial,16,0,0,0,0
SetDialogFont 1
CLS GetSyscolor(15)
Créer("Text",%HWnd,"Haltestellenname:",10,20,100,20)
HST_Name& = Créer("Edit",%HWnd,»,140,20,350,20)
Créer("Text",%HWnd,"Strasse/ruelle:",10,20+zh%,100,20)
Strasse& = Créer("Edit",%HWnd,»,140,20+zh%,350,20)
Créer("Text",%HWnd,"Nr:",500,20+zh%,30,20)
Nr& = Créer("Edit",%HWnd,»,550,20+zh%,30,20)
Créer("Text",%HWnd,"Ort:",10,20 + zh%*2,75,20)
HST_Ort& = Créer("Edit",%HWnd,»,140,20 + zh%*2,200,20)
Créer("Text",%HWnd,"Plz:",360,20 + zh%*2,75,20)
Plz& = Créer("Edit",%HWnd,»,420,20 + zh%*2,70,20)
Créer("Text",%HWnd,"Latitude (Breite) :",10,20 + 3 * zh%,140,20)
Latitude& = Créer("Edit",%HWnd,»,140,20 + 3 * zh%,150,20)
Créer("Text",%HWnd,"Longitude (Longueur):",310,20 + 3 * 25,140,20)
Longitude& = Créer("Edit",%HWnd,»,450,20 + 3 * 25,150,20)
'Kordinaten qui station sommes bekannt
settext Latitude&,"48.13699"
settext Longitude&,"11.5754"
'maintenant qui html erzeugen
STANDORT
var h& = @create("htmlWin",%hWnd,$TempDir +"Test.html",5,610,10,300,300)

tandis que 1

    waitinput

Wend

Fin

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

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

endproc

Gruß Thomas
Windows XP SP2, XProfan X2

p.specht

Gute concept, chez mir "scriptfehler", quoi muss je anpassen?

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

Thomas
Freier

Könnte qui Zeilenumbruch son

'allô Meister."+chr$(092)+chr$(110)+" je suis ici!'

Einmal so testen

'allô Meister. je suis ici!'

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

je erfasse Haltestellendaten et voudrais qui situation des Punktes par Übernahme qui
Orts - et Straßenangaben via la carte Montrer et qui Koordinaten dabei prendre et dans qui banque de données avec enlever.

Datenübernahme peut-être per drag&drop. Namen aus qui carte sommes pas possible et müßten nachgetragen volonté. Beispiel: [...]

screen.png	302 kB

Hochgeladen:	25.01.2014

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Tommy

allô Thomas!

irgendwie ist mon dernier Antwort untergegangen

cela Script est un genialer Ansatz et sollte sich comme Problemlöser einsetzen laisser.
Allerdings wäre es toll, dein Script courir trop voyons! chez mir verabschiedet es sich malheureusement avec einem Scriptfehler (siehe Anhang)
Würdest Du là nochmal drüberschauen, s'il te plaît?
aussi Dein dernier Ansatz ist pour mon Aufgabenstellung très überlegenswert!

je serait oui plutôt renversé tour aller voulons: qui Adresse eingeben et qui Koordianten prendre.....

avec vielen Grüßen aus vienne
Tommy

fehler.jpg	28 kB

Hochgeladen:	25.01.2014

Downloadcounter:
		Download

XProfan X2

Thomas
Freier

je weis pas comment Je l' faute trouver pourrait. Getestet avec FF, Opera, safari et k-meleon et aucun Probleme. aussi pas sur Xprofan. peux qui Einstellung beim eurem IE qui Ursache son? Anbei qui Arbeits-html.

seite5.html	2 kB

Hochgeladen:	25.01.2014

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Julian
Schmidt

Thomas Freier (25.01.14)

Könnte qui Zeilenumbruch son

'allô Meister."+chr$(092)+chr$(110)+" je suis ici!'

Einmal so testen

'allô Meister. je suis ici!'

réellement muss es so appeler.

Imprimer #2,"      title: 'allô Meister"+chr$(092)+chr$(110)+" je suis ici!'"

ensuite funktioniert es.

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

26.01.2014 ▲