Forums

window 540,760
Título de la ventana "Hvide Sande Sluse"
usermessages 16
@Conjunto("ErrorLevel", 2)
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
Declarar x%
x% = @MessageBox("Soll dieses Programa\n\nauf Ihrem Gerät comenzó voluntad?\n\nDie Ausführung es\nunter Ausschluß jeglicher Ansprüche!","Hvide-Sande",4096+4+32+256)
Case x%=7 : FIN//Alto
var font&=CreateFont(Arial,18,0,0,0,0)
SetDialogFont Font&
declarar File$,Edit&,WebControl&,WebObject&,Document&,Body&,da&,fehl%,wert&,zeit$
Declarar start%,neu%,Knopf%,ende%,alt$
File$="https://hyde.dk"
//para el Ver código fuente
Edit&=create("Multiedit",%hwnd,"",610,10,800,660)
SetFont Edit&,Font&
//Datendatei disponible, sonst neu

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

    Asignar #1, "hvide.STR"
    Rewrite #1
    Imprimir #1, "Datum; C; 10; 0"
    Imprimir #1, "Zeit; C; 10; 0"
    Imprimir #1, "Strom; C; 10; 0"
    Imprimir #1, "Havn; C; 10; 0"
    Imprimir #1, "Fjord; C; 10; 0"
    Cerrar #1
    db("Create", "hvide.STR", "hvide.DBF")

endif

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

Sinestar encargado %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)
//letzter Strom
alt$= @Trim$(@gettext$(wert&,0,4))//Vergleich para lukket- åben Abfrage
start%=1
WERTE//a Procedimiento Webseite invitar y Werte en el erste Línea escribir
start%=0
neu%=0

mientras que 1

    Waitinput 10000// después de Millisecunden se Waitinput durchbrochen
    caso %umessage=16:romper
    zeit$=@dt("getTime", 0)

    SELECT val(@SUBSTR$(zeit$,2,":"))

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

        //todos 10 Minuten Web neu invitar
        Case neu%=0
        WERTE// neue auslesen ---
        neu%=1
        OTHERWISE
        neu%=0

    ENDSELECT

    Case ende%=1:BREAK

endwhile

DeleteObject font&
End
//Procedimiento Werte auslesen #####################################################

Proc WERTE

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

    mientras que ocxGet(WebObject&,"Busy")//'--warten, a Expediente geladen es

        sleep 5

    endwhile

    Document&=ocxGet(WebObject&,"Document")
    Body&=ocxGet(Document&,"Body")
    settext Edit&,ocxGet(Body&,"outerHTML")//'--HTML-Ver código fuente
    //FEHLER?-------z.Z. no aktiv
    ' whileloop @GetCount(edit&)-1
    '  if @InStr("Die Navigation a el Webseite wurde abgebrochen",@GetString$(edit&,&loop))> 0
    '    Knopf% = @MessageBox("Programm se beendet","Kein WEB-Zugriff",0)
    '    Ende% = 1
    '    ocxRelease(Body&,Document&,WebObject&)
    '    WebObject&=HTMLWin("QueryInterface",WebControl&)
    '   RETORNO
    ' endif
    ' endwhile
    var Startpos%=0
    Var tex$=""
    Var Strom$=""
    Var Sluse$=""
    Var Havn$=""
    Var tex1$=Date$(0)+"|"+@dt("getTime", 0)'+"|"
    //' Ver código fuente durchsuchen

    whileloop @GetCount(edit&)-1

        if @InStr("Gennemstrømning",@GetString$(edit&,&bucle))> 0

            tex$= @GetString$(edit&,&bucle)
            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$=""
    //' Ver código fuente durchsuchen

    whileloop @GetCount(edit&)-1

        if @InStr("Havnen",@GetString$(edit&,&bucle))> 0

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

        endif

    endwhile

    Tex$=""
    //' Ver código fuente durchsuchen

    whileloop @GetCount(edit&)-1

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

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

        endif

    EndWhile

    If start%=1

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

    Más

        If @Trim$(sluse$)<>""

            If alt$<>@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$)
                alt$= @Trim$(sluse$)

            más

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