XProfan

Français

Tommy

une kurze Recherche zum Thema : Montrer de Landkarten avec Google-Maps.
Gibt's bereits Erfahrungen avec qui Einbindung einer Api en supplément ?
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.
grande devoir ou bien gibt es bereits Ähnliches?

XProfan X2

23.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

Thomas
Freier

quelque chose dans qui direction? [...]

Nachtrag: avec einer Offlinekarte ? [...]

Gruß Thomas
Windows XP SP2, XProfan X2

24.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

Kompilieren Marque Séparation

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

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

dans cet direction?

Kompilieren Marque Séparation

'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

25.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

25.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

Könnte qui Zeilenumbruch son

Kompilieren Marque Séparation

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

Einmal so testen

Kompilieren Marque Séparation

'allô Meister. je suis ici!'

Gruß Thomas
Windows XP SP2, XProfan X2

25.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

25.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

25.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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

25.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

Thomas Freier (25.01.14)

Könnte qui Zeilenumbruch son

Kompilieren Marque Séparation

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

Einmal so testen

Kompilieren Marque Séparation

'allô Meister. je suis ici!'

réellement muss es so appeler.

Kompilieren Marque Séparation

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 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

@Julian, merci. Ist irgendwie verschütt gegangen comme je ici den Zeilenumbruch nachträglich eingetragen hatte, car dans meiner *.prf était es so enthalten.

Gruß Thomas
Windows XP SP2, XProfan X2

26.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Tommy

Funzt! GENIAL! Besten Dank!

XProfan X2

26.01.2014 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

Thomas
Freier

ici encore un abgewandelter Script de "Pascal" pour Tipfaule. Adressen dans qui Gridbox, per Double-cliquez sur ins EDIT et Drag&Drop ins le vide champ de [...]

Pour dem chercher ensuite per Drag&Drop lat et lon dans qui ensprechenden Spalten tirer.

Kompilieren Marque Séparation

 $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"
Déclarer p#,h&,item&
Faible p#,8
declare FORMATETC#:dim FORMATETC#,20
long FORMATETC#,4=0,1,-1,1
struct STGMEDIUM=tymed&,Value&,IUnknown&
declare STGMEDIUM#:dim STGMEDIUM#,STGMEDIUM

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

    parameters IFace&
    var VTable&=long(IFace&,0)
    return call(long(VTable&,12),IFace&,FORMATETC#,STGMEDIUM#)

endproc'-------------------------------------------------------------

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

    return 0'--E_OK

endproc'-------------------------------------------------------------

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

    parameters This&,IDataObject&,KeyState&,X&,Y&
    long FORMATETC#,0=~CF_HDROP'----------------Format: DropFiles

    ifnot GetData(IDataObject&)

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

    endif

    long FORMATETC#,0=~CF_TEXT'-----------------Format: Text

    ifnot GetData(IDataObject&)

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

    endif

    return 0'--E_OK

endproc'-------------------------------------------------------------

Proc INSERT

    Paramètres la ligne$
    var a$=Chr$(13)+Chr$(10)'Zeilenumbruch
    GetCursorPos(p #)' Empfänger ist ?
    h&=WindowFromPoint(Long(# p,0),Long(# p,4))
    ~GetCursorPos(HIT#)
    ~ScreenToClient(Lb&,HIT#)
    sendmessage(Lb&,~LVM_HITTEST,0,HIT#)'---------------------Infos sur Cursor dans Bezug sur Lv
    sendmessage(Lb&,~LVM_SUBITEMHITTEST,0,HIT#)
    zielx&= HIT#.SubItem&
    ziely&= HIT#.Item&

    Si h&=Lb&

        Si ziely&=-1

            @InsertString(Lb&,0,"|||")
            SetText Lb&,0, zielx&, $ Trim(la ligne$)

        D'autre

            SetText Lb&,ziely&, zielx&, $ Trim(la ligne$)

        EndIf

    EndIf

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

'=========================================================================
Cls GetSysColor(15)
SetWindowPos %HWND=0,0-570,310;-1
var Font&=Créer("Font","MS Sans Serif",16,0,0,0,0)
SETDIALOGFONT Font&
CreateText(%hwnd,"Ziel:",10,12,90,22)
var edi&=Créer("RichEdit",%hwnd,»,100,10,300,22)
var text$ = "Ort;0;350;lat;0;80;lon;0;80"
var Lb& = Créer("GridBox", %hwnd, Text$, 0, 10, 44, 540, 190)
SetFont Lb&,Font&
declare 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&)
declare HIT#'------LVHITTESTINFO-Struktur
struct HIT=x&,y&,Flags&,Item&,SubItem&
dim Hit#,HIT
declare ziely&,zielx&
AddStrings(Lb&,"Geniner rue 50 Lübeck||")
AddStrings(Lb&,"Marli rue 50 Lübeck||")
AddStrings(Lb&,"Ziegel rue 50  Lübeck||")
SubClass %hwnd, 1
Utilisateur Messages 2000

tandis que 1

    waitinput
    cas %umessage=16:pause

    Si (%umessage = 2000)

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

    Endif

endwhile

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

SubClassProc

    Si SubClassMessage(%hWnd, ~WM_NOTIFY)

        Si Long(&sLParam,8)=-3

            item&=Long(&sLParam,12)

            Si item&<>-1

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

            EndIf

        EndIf

    EndIf

ENDPROC