Moin, mal ne kleine Frage wegen FAT16_23
Das Demo XMega_FAT32 habe ich mir genau angeschaut. Und soweit alles
an VAR raus kopiert für mein Demo.
F16_DiskInit; // ok
F16_DiskReset // ok
F16_CheckDisk // ok
Danach sende ich ein Befehl von Computer an den uC das der in die Procedure
Dir_Aulesen; läuft. Dabei bekomme ich nur einige Dir`s und files angezeigt.
Und der uC hängt sich auf. Auch der PC (USB) hängt sich auf, ich kann nichts mehr senden.
Mein ? auf das ich am Computer warte, kommt auch nicht an.
function ListDir: boolean;
var
LastDir : TSearchRec;
begin
Writeln(SerOutCDC, 'List Volume Items');
if F16_FindFirst('','*.*', faAnyFile, SR) then
repeat
FileName:= SR.name;
Writeln(SerOutCDC, ' - ' + SR.name);
until not F16_FindNext(SR);
endif;
return(true);
end;
Procedure Dir_Aulesen;
Begin
if ListDir then
mDelay(500);
Write(SerOutCDC, '?'); // Sende ? für ende
endif;
end Dir_Aulesen;
Den F16_GetDiskSize; oder F16_GetDiskSize; kann ich 1000 mal auslesen.
Wie gesagt ich habe die function ListDir: boolean; aus dem Demo raus kopiert.
Vllt jmd ne Idee für mich ?
Gruß Frank
Das Demo XMega_FAT32 habe ich mir genau angeschaut. Und soweit alles
an VAR raus kopiert für mein Demo.
F16_DiskInit; // ok
F16_DiskReset // ok
F16_CheckDisk // ok
Danach sende ich ein Befehl von Computer an den uC das der in die Procedure
Dir_Aulesen; läuft. Dabei bekomme ich nur einige Dir`s und files angezeigt.
Und der uC hängt sich auf. Auch der PC (USB) hängt sich auf, ich kann nichts mehr senden.
Mein ? auf das ich am Computer warte, kommt auch nicht an.
Code
function ListDir: boolean;
var
LastDir : TSearchRec;
begin
Writeln(SerOutCDC, 'List Volume Items');
if F16_FindFirst('','*.*', faAnyFile, SR) then
repeat
FileName:= SR.name;
Writeln(SerOutCDC, ' - ' + SR.name);
until not F16_FindNext(SR);
endif;
return(true);
end;
Procedure Dir_Aulesen;
Begin
if ListDir then
mDelay(500);
Write(SerOutCDC, '?'); // Sende ? für ende
endif;
end Dir_Aulesen;
Den F16_GetDiskSize; oder F16_GetDiskSize; kann ich 1000 mal auslesen.
Wie gesagt ich habe die function ListDir: boolean; aus dem Demo raus kopiert.
Vllt jmd ne Idee für mich ?
Gruß Frank
