User manual

mikroPascal PRO for dsPIC30/33 and PIC24
MikroElektronika
295
// lename[7] := ‘F’; // uncomment this line to search for le that DOES NOT exist
if Cf_Fat_Assign(lename, 0) <> 0 then
begin
//--- le has been found - get its date
Cf_Fat_Get_File_Date(year,month,day,hour,minute);
UART1_Write_Text(‘ created: ‘);
WordToStr(year, outstr);
UART1_Write_Text(outstr);
ByteToStr(month, outstr);
UART1_Write_Text(outstr);
WordToStr(day, outstr);
UART1_Write_Text(outstr);
WordToStr(hour, outstr);
UART1_Write_Text(outstr);
WordToStr(minute, outstr);
UART1_Write_Text(outstr);
//--- le has been found - get its modied date
Cf_Fat_Get_File_Date_Modied(year, month, day, hour, minute);
UART1_Write_Text(‘ modied: ‘);
WordToStr(year, outstr);
UART1_Write_Text(outstr);
ByteToStr(month, outstr);
UART1_Write_Text(outstr);
WordToStr(day, outstr);
UART1_Write_Text(outstr);
WordToStr(hour, outstr);
UART1_Write_Text(outstr);
WordToStr(minute, outstr);
UART1_Write_Text(outstr);
//--- get le size
fsize := Cf_Fat_Get_File_Size;
LongIntToStr(fsize, outstr);
UART1_Write_Line(outstr);
end
else begin
//--- le was not found - signal it
UART1_Write(0x55);
Delay_ms(1000);
UART1_Write(0x55);
end;
end;
//-------------- Tries to create a swap le, whose size will be at least 100
// sectors (see Help for details)
procedure M_Create_Swap_File();
var i : word;
begin
for i:=0 to 511 do
Buffer[i] := i;
size := Cf_Fat_Get_Swap_File(5000, ‘mikroE.txt’, 0x20); // see help on this function
for details