HIVE-Project

Code: Alles auswählen

  ic:=sdfat.fatEngineStart( DO, CLK, DI, CS, -1, -1, -1, -1, -1)
  if ic < 0                                           
    ser.writeString(string(13))                                        
    ser.writeString(string("Die Micro SD Card wurde nicht gefunden!"))       
    ser.writeString(string(13))                                        
    ser.writeString(string("Stecken Sie die Karte ein, oder prüfen sie die Verbindungen.")) 
    ser.writeString(string(13))                                        
    ser.writeString(string("Drücken Sie nach einlegen des Speichermediums die Resettaste."))
    ser.writeString(string(13))                                       
    repeat                                                      
  ser.writeString(string(13))
  ser.writeString(string("Micro SD card Ready."))                 
  ser.writeString(string(13))

Code: Alles auswählen

  ser.start(31,30,115200)
  ser.writeString(string("Power ON",$0D))
  sdfat.FATEngine
'  repeat 800_000
  ic := \sdfat.mountPartition(0,0)
  if ic==0
    ser.writeString(string("Micro SD card Ready.",$0D))
    ser.writeString(string("Micro SD card Mount Partition 0.",$0D))
  else
    ERRtxt(ic)
    repeat
  dmarker[RMARKER] := sdfat.getDirCluster              'root-marker merken
'  sdfat.setDirCluster(dmarker[RMARKER])               'root-marker wieder aktivieren
  ser.writeString(string("SET ROOT Directory",$0D))
'  ic := \sdfat.changeDirectory(string("A"))

  ic:=sdfat.openFile(string("LIZENZ.TXT"), "r")
  if ic == 0
    fg := sdfat.listSize + 1
    repeat ic from 0 to fg
      TEXT[ic]:=\sdfat.readCharacter
  else
    ser.writeString(string("Datei nicht gefunden!"))
    ser.writeString(string(13))
    repeat

'   Init the TCP/IP driver
'               cs  sck si  so  int xtalout macptr      ipconfigptr
  sock.start(   14, 15, 16, 17,  18, -1,      @mac_addr,  @ip_addr)
  cognew(webserver, @webstack)                          ' Start the webserver cog

  ser.writeString(string("Server Running",$0D))
  repeat

Code: Alles auswählen

OBJ
  sock[3]       : "api_telnet_serial"
  str           : "util_strings"
  ser           : "TFullDuplexSerial"
  sdfat         : "adm-fat"

CON
  pathMax = 64

VAR
  byte path[pathMax]            'Verzeichnis aktuelle Seite wenn 0 dan 1.seite

Code: Alles auswählen

PRI pageout(sockidx)| a, b, c, d, e, i
  'öffnen pfad
  ser.writeString(@path)
  ser.writeString(string($0D))
  sdfat.setDirCluster(dmarker[RMARKER])               'root-marker wieder aktivieren
'  i := \sdfat.changeDirectory(string("A"))               'geht
  path[0]:="A"
  path[1]:=0
  i := \sdfat.changeDirectory(@path)                    'geht nicht
  ifnot i==0
    ERRtxt(i)
    sock[sockidx].str(@S404)
    return 0
    'öffne ini
    'öffne txt
  sock[sockidx].str(@S__1)
  sock[sockidx].str(@S__2)
  sock[sockidx].str(@S__3)
  sock[sockidx].str(@S__4)
  return 0

Code: Alles auswählen

  i := \sdfat.changeDirectory(string("A"))

Code: Alles auswählen

  path[0]:="A"
  path[1]:=0
  i := \sdfat.changeDirectory(@path)