SD Card auslesen

SizeMB  : longword;

Procedure get_MMC_size;
var count : byte;
Begin
  if F16_CheckDisk then                             // we check for an existing FAT16 system
    SizeMB:= F16_GetDiskSize;
    str20:= longToStr(SizeMB);
    count:= length(str20);
    TxBlock(@str20, word(count));
    
    SizeMB:= F16_GetDiskFree;
    str20:= longToStr(SizeMB);
    count:= length(str20);
    TxBlock(@str20, word(count));

    SizeMB:= F16_GetDiskUsed;
    str20:= longToStr(SizeMB);
    count:= length(str20);
    TxBlock(@str20, word(count));
  else
    TXchar('?');
  endif;
end;

//-------------------------------------------------------------- 
// Display Process  Fuss und LOGs speichern; 
//-------------------------------------------------------------- 
process LCD_DisplBott(180, 384 : iData; 5);  {Stacksize = 256 bytes, Framesize = 512 bytes, 5 Systicks} 
begin
// FirstStart InitSD hier im Status-Process, damit die anderen Tasks der Steuerung nicht verzögert werden. 
// 
  
  if not bSDFirstStart then 
    bSDFirstStart:= true; // erster Start und alle 12h 1x
    
    sdAktive();// Timer für SD Anzeige LCD setzen 
    bMMCok:= F16_DiskInit;// always the very fist step 
    if not bMMCok then 
    DebugOut('SD init fail!'); 
    endif; 
    
    WDTrig;// WD Triggern wenn eingeschaltet 
    
    if bMMCok then 
      sdAktive();// Timer für SD Anzeige LCD setzen 
      bMMCok:= F16_DiskReset;                         // SD Disk Reset 
      if not bMMCok then  
       DebugOut('SD Reset fail!'); 
      endif; 
    endif; 
    
    WDTrig;// WD TRriggern wenn eingeschaltet 
    
    if bMMCok then 
      sdAktive();// Timer für SD Anzeige LCD setzen 
      if F16_CheckDisk then                         // ist ein gültiges FAT16 vorhanden, 
        SizeMBsd:= F16_GetDiskSize;                 // dann die Daten holen 
        SizeMBsdFree:= F16_GetDiskFree; 
        SizeMBsdUsed:= F16_GetDiskUsed; 
        
        WDTrig;// WD TRriggern wenn eingeschaltet 
        if not bMMCok then 
         DebugOut('SD CheckDisk fail!'); 
        endif; 
        
        WDTrig;// WD TRriggern wenn eingeschaltet 
        
      // Prüfe ob BOOT.CFG vorhanden und identisch ist 
        if CheckBootCfg then 
          DebugOut('CheckBoot  SD<>EEPR'); 
          BCfgUnterschied:= true; 
        else 
          BCfgUnterschied:= false; 
          BCfgFrage:= false; 
        endif; 
        
      endif; 
    endif; 
    
  endif;// bSDFirstStart 
  
//------------------------------ 
  
  WDTrig;// WD TRriggern wenn eingeschaltet 
  DispBottom; // Statuszeile mit Uhr, Zustand usw. 
  Save_LogPipe;     // Prüfen ob Meldungen in der Pipe liegen, dann auf SD ablegen 
  
  Schedule;       // Rechenzeit nach 1. Durchlauf sofort freigeben 
  
end LCD_DisplBott;