Forums

window 540,760
Titre de la fenêtre "Hvide Sande Sluse"
usermessages 16
@Set("ErrorLevel", 2)
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
Déclarer x%
x% = @MessageBox("Soll cet Programme\n\nauf Ihrem Gerät gestartet volonté?\n\nDie Ausführung erfolgt\nunter Ausschluß jeglicher Ansprüche!","Hvide-Sande",4096+4+32+256)
Cas x%=7 : FIN//démolir
var font&=CreateFont(Arial,18,0,0,0,0)
SetDialogFont Font&
declare File$,Edit&,WebControl&,WebObject&,Document&,Body&,da&,fehl%,wert&,zeit$
Déclarer start%,récente%,Knopf%,ende%,vieux$
File$="https://hyde.dk"
//pour den Voir le texte source
Edit&=create("Multiedit",%hwnd,»,610,10,800,660)
SetFont Edit&,Font&
//Datendatei vorhanden, sonst récente

Ifnot @FileExists(($PROGDIR+"HVIDE.dbf"))

    Assign #1, "hvide.STR"
    Rewrite #1
    Imprimer #1, "Datum; C; 10; 0"
    Imprimer #1, "Zeit; C; 10; 0"
    Imprimer #1, "Strom; C; 10; 0"
    Imprimer #1, "Havn; C; 10; 0"
    Imprimer #1, "Fjord; C; 10; 0"
    Fermer #1
    db("Create", "hvide.STR", "hvide.DBF")

endif

//Listbox pour qui Datenanzeige
wert& = @Créer("GridBox",  %hwnd,"Datum;0;100;Zeit;0;70;Strømning;1;110;Havn;1;80;Sluse;1;80", 2, 10,10,500,660)
//vieille Werte einlesen
@db("Open", #1, "Hvide.DBF")

WhileNot %dbEoF=1

    zeit$=@Trim$(@DB("Get", "DATUM"))
    zeit$=zeit$+"|"+@Trim$(@DB("Get", "ZEIT"))
    zeit$=zeit$+"|"+@Trim$(@DB("Get", "STROM"))
    zeit$=zeit$+"|"+@Trim$(@DB("Get", "HAVN"))
    zeit$=zeit$+"|"+@Trim$(@DB("Get", "FJORD"))
    @Insertstring(wert&,0,zeit$)
    @db("Go", "NEXT")

ENDWHILE

@db("Close", #1)
//dernier Strom
alt$= @Trim$(@gettext$(wert&,0,4))//comparaison pour lukket- åben Abfrage
start%=1
WERTE//zur Procédure Webseite magasin et Werte dans la première la ligne écrivons
start%=0
neu%=0

tandis que 1

    Waitinput 10000// pour Millisecunden wird Waitinput durchbrochen
    cas %umessage=16:pause
    zeit$=@dt("getTime", 0)

    SELECT val(@SUBSTR$(zeit$,2,»))

        CASEOF 0,10,20,30,40,50

        //alle 10 Minuten Web récente magasin
        Cas récente%=0
        WERTE// neue auslesen ---
        récente%=1
        OTHERWISE
        récente%=0

    ENDSELECT

    Cas ende%=1:BREAK

endwhile

DeleteObject font&
Fin
//Procédure Werte auslesen #####################################################

Proc WERTE

    ocxInit()
    WebControl&=create("HTMLWin",%hwnd,file$,1,330,10,0,0)
    WebObject&=HTMLWin("QueryInterface",WebControl&)

    tandis que ocxGet(WebObject&,"Busy")//'--attendre, jusqu'à Dossier geladen ist

        sleep 5

    endwhile

    Document&=ocxGet(WebObject&,"Document")
    Body&=ocxGet(Document&,"Body")
    settext Edit&,ocxGet(Body&,"outerHTML")//'--HTML-Voir le texte source
    //FEHLER?-------z.Z. pas aktiv
    ' whileloop @GetCount(edit&)-1
    '  si @InStr("Die navigation trop qui Webseite wurde abgebrochen",@GetString$(edit&,&loop))> 0
    '    Knopf% = @MessageBox("Programm wird beendet","Kein WEB-Zugriff",0)
    '    Ende% = 1
    '    ocxRelease(Body&,Document&,WebObject&)
    '    WebObject&=HTMLWin("QueryInterface",WebControl&)
    '   RETOUR
    ' endif
    ' endwhile
    var Startpos%=0
    Var tex$=»
    Var Strom$=»
    Var Sluse$=»
    Var Havn$=»
    Var tex1$=Date$(0)+"|"+@dt("getTime", 0)'+"|"
    //' Voir le texte source fouiller

    whileloop @GetCount(edit&)-1

        si @InStr("Gennemstrømning",@GetString$(edit&,&loop))> 0

            tex$= @GetString$(edit&,&loop)
            tex$=@Translate$(tex$,"<",»)
            tex$=@Translate$(tex$,">",»)
            tex$=@Translate$(tex$,"H2",»)
            tex$=@Translate$(tex$,"SPAN",»)
            tex$=@Translate$(tex$,"mSUP3/SUP/s//","m³")
            tex$=@Translate$(tex$,"class=floatright",»)
            tex$=@Translate$(tex$,"Gennemstrømning",»)
            Strom$=tex$

        endif

    Endwhile

    Tex$=»
    //' Voir le texte source fouiller

    whileloop @GetCount(edit&)-1

        si @InStr("Havnen",@GetString$(edit&,&loop))> 0

            tex$= @GetString$(edit&,&loop+1)
            tex$=@Translate$(tex$,"<TD class=alignright>",»)
            tex$=@Translate$(tex$,"</TD>",»)
            tex$=@Translate$(tex$,"</TR>",»)
            Havn$=tex$

        endif

    endwhile

    Tex$=»
    //' Voir le texte source fouiller

    whileloop @GetCount(edit&)-1

        si @InStr("<TD>Slusedrift</TD>",@GetString$(edit&,&loop))> 0

            tex$= @GetString$(edit&,&loop+1)
            tex$=@Translate$(tex$,"<TD class=alignright>",»)
            tex$=@Translate$(tex$,"</TD></TR></TBODY></TABLE>",»)
            Sluse$=tex$

        endif

    Endwhile

    Si start%=1

        @Insertstring(wert&,0,tex1$+"|"+strom$+"|"+havn$+"|"+sluse$)

    D'autre

        Si @Trim$(sluse$)<>»

            Si vieux$<>@Trim$(sluse$)// val(strom$)<>0'

                @db("Open", #1, $PROGDIR+"Hvide.DBF")
                @db("AppendBlank")
                @db("Put", "DATUM", Date$(0))
                @db("Put", "ZEIT", @dt("getTime",0))
                @db("Put", "STROM", Strom$)
                @db("Put", "HAVN", Havn$)
                @db("Put", "FJORD", sluse$)
                @db("PutRec", 0)
                @db("Close", #1)
                @Insertstring(wert&,0,tex1$+"|"+strom$+"|"+havn$+"|"+sluse$)
                vieux$= @Trim$(sluse$)

            d'autre

                '			  Si val(gettext$(wert&,0,2))=0
                settext wert&,0,0, Date$(0)
                settext wert&,0,1, @dt("getTime",0)
                settext wert&,0,2, strom$
                settext wert&,0,3, havn$
                settext wert&,0,4, sluse$
                '					Else
                '					@Insertstring(wert&,0,tex1$+"|"+strom$+"|"+havn$+"|"+sluse$)
                '				endif

            EndIf

        endif

    endif

    destroywindow(WebControl&)
    ocxRelease(Body&,Document&,WebObject&)
    ocxDeInit()

endproc