XProfan

Español

Tommy

Un kurze Recherche para Thema : Mostrar de Landkarten con Google-Maps.
Gibt's ya Erfahrungen con el Einbindung uno Api dazu ?
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.
Große Tarea oder hay ya Ähnliches?

XProfan X2

23.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

Thomas
Freier

Etwas en el Richtung? [...]

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

Gruß Thomas
Windows XP SP2, XProfan X2

24.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

Kompilieren Marca Separación

'$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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

In esta Richtung?

Kompilieren Marca Separación

'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

25.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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'...

25.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Könnte el Zeilenumbruch ser

Kompilieren Marca Separación

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

Einmal así testen

Kompilieren Marca Separación

'¡Hola Meister. Yo bin hier!'

Gruß Thomas
Windows XP SP2, XProfan X2

25.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

25.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

25.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

25.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Thomas Freier (25.01.14)

Könnte el Zeilenumbruch ser

Kompilieren Marca Separación

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

Einmal así testen

Kompilieren Marca Separación

'¡Hola Meister. Yo bin hier!'

Tatsächlich muss lo así heißen.

Kompilieren Marca Separación

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 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

@Julian, Gracias. Ist irgendwie verschütt gegangen como Yo hier el Zeilenumbruch nachträglich eingetragen hatte, porque en meiner *.prf war lo así enthalten.

Gruß Thomas
Windows XP SP2, XProfan X2

26.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Tommy

Funzt! GENIAL! Besten Dank!

XProfan X2

26.01.2014 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Thomas
Freier

Hier todavía una abgewandelter Script de "Pascal" para Tipfaule. Adressen en el Gridbox, por Haga doble clic en en el EDIT y Drag&Drop en el vacío Feld de [...]

Nach el Suchen entonces por Drag&Drop lat y lon en el ensprechenden Spalten ziehen.

Kompilieren Marca Separación

 $H Windows.ph
 $H Messages.ph
 $H commctrl.ph
usermessages 16
Def GetSysColor(1) !"USER32","GetSysColor"
Def WindowFromPoint(2)!"USER32","WindowFromPoint"
Def GetCursorPos(1) !"USER32","GetCursorPos"
Declarar p#,h&,item&
Dim p#,8
declarar FORMATETC#:dim FORMATETC#,20
long FORMATETC#,4=0,1,-1,1
struct STGMEDIUM=tymed&,Value&,IUnknown&
declarar STGMEDIUM#:dim STGMEDIUM#,STGMEDIUM

proc GetData'-------------------------------------------------GetData

    parámetros IFace&
    var VTable&=long(IFace&,0)
    volver call(long(VTable&,12),IFace&,FORMATETC#,STGMEDIUM#)

ENDPROC'-------------------------------------------------------------

proc Dummy'-----------------------------------------------------Dummy

    volver 0'--E_OK

ENDPROC'-------------------------------------------------------------

proc Drop'-------------------------------------------------------Drop

    parámetros This&,IDataObject&,KeyState&,X&,Y&
    long FORMATETC#,0=~CF_HDROP'----------------Formato: DropFiles

    ifnot GetData(IDataObject&)

        var Mem&=~GlobalLock(STGMEDIUM#.Value&)
        INSERT stringw$(Mem&,20)
        '   imprimir "Datei:",stringw$(Mem&,20)
        ~GlobalUnlock(STGMEDIUM#.Value&)
        ~GlobalFree(STGMEDIUM#.Value&)

    endif

    long FORMATETC#,0=~CF_TEXT'-----------------Formato: Texto

    ifnot GetData(IDataObject&)

        var Mem&=~GlobalLock(STGMEDIUM#.Value&)
        INSERT cadena$(Mem&,0)
        ~GlobalUnlock(STGMEDIUM#.Value&)
        ~GlobalFree(STGMEDIUM#.Value&)

    endif

    volver 0'--E_OK

ENDPROC'-------------------------------------------------------------

Proc INSERT

    Parámetros Línea$
    var a$=Chr$(13)+Chr$(10)'Zeilenumbruch
    GetCursorPos(p #)' Empfänger es ?
    h&=WindowFromPoint(Largo(p #,0),Largo(p #,4))
    ~GetCursorPos(HIT#)
    ~ScreenToClient(Lb&,HIT#)
    sendmessage(Lb&,~LVM_HITTEST,0,HIT#)'---------------------Infos encima Cursor en Bezug en Lv
    sendmessage(Lb&,~LVM_SUBITEMHITTEST,0,HIT#)
    zielx&= HIT#.SubItem&
    ziely&= HIT#.Item&

    If h&=Lb&

        If ziely&=-1

            @InsertString(Lb&,0,"|||")
            SetText Lb&,0, zielx&, trim$(zeile$)

        Más

            SetText Lb&,ziely&, zielx&, trim$(zeile$)

        EndIf

    EndIf

ENDPROC'-------------------------------------------------------------

'=========================================================================
Cls GetSysColor(15)
SetWindowPos %HWND=0,0-570,310;-1
var Font&=Crear("Font","MS Sans Serif",16,0,0,0,0)
SETDIALOGFONT Font&
CreateText(%hwnd,"Ziel:",10,12,90,22)
var edi&=Crear("RichEdit",%hwnd,"",100,10,300,22)
var texto$ = "Ort;0;350;lat;0;80;lon;0;80"
var Lb& = Crear("GridBox", %hwnd, Texto$, 0, 10, 44, 540, 190)
SetFont Lb&,Font&
declarar IDropTarget#,IDropTarget&
dim IDropTarget#,32'-----------------------IDropTarget-Interface
long IDropTarget#, 0=procaddr("Dummy",2)'--QueryInterface
long IDropTarget#, 4=procaddr("Dummy",1)'--AddRef
long IDropTarget#, 8=procaddr("Dummy",1)'--Release
long IDropTarget#,12=procaddr("Dummy",5)'--DragEnter
long IDropTarget#,16=procaddr("Dummy",5)'--DragOver
long IDropTarget#,20=procaddr("Dummy",1)'--DragLeave
long IDropTarget#,24=procaddr("Drop",5)'---Drop
long IDropTarget#,28=IDropTarget#
IDropTarget&=IDropTarget#+28
external("ole32","OleInitialize",0)
external("ole32","RegisterDragDrop",%hwnd,IDropTarget&)
declarar HIT#'------LVHITTESTINFO-Struktur
struct HIT=x&,y&,Flags&,Item&,SubItem&
dim Hit#,HIT
declarar ziely&,zielx&
AddStrings(Lb&,"Geniner Straße 50 Lübeck||")
AddStrings(Lb&,"Marli Straße 50 Lübeck||")
AddStrings(Lb&,"Ziegel Straße 50  Lübeck||")
SubClass %hwnd, 1
Mensajes del usuario 2000

mientras que 1

    waitinput
    caso %umessage=16:romper

    If (%umessage = 2000)

        texto$ = GetText $(Lb&, &uwparam, &ulparam)
        settext edi&,texto$
        Setfocus(edi&)
        SendString(edi&,"+ ({FIN})")

    Endif

endwhile

external("ole32","RevokeDragDrop",%hwnd)
external("ole32","OleUninitialize")
disponer IDropTarget#,FORMATETC#,STGMEDIUM#,p#,hit#
DeleteObject font&
end

SubClassProc

    If SubClassMessage(%hWnd, ~WM_NOTIFY)

        If Largo(&sLParam,8)=-3

            item&=Largo(&sLParam,12)

            If item&<>-1

                SendMessage(%hwnd, 2000, item&, Largo(&sLParam,16))

            EndIf

        EndIf

    EndIf

ENDPROC