Hallo rolf,
ich habe zum ersten mal ReadLn() mit der SD-Karte nutzen wollen, leider führt dies zum "interner Assembler Error 178606"
Compiler läuft durch, nur beim Make kommt der Fehler.
Wenn ich das ReadLn() ausklammere geht auch der Make.
Bis jetzt hatte ich noch nie ReadLn für meine SD-Card genutzt, aber es wäre hier sinnvoll.
Woher weiss der Compiler eigentlich das es ein Fat16 Zugriff ist?
Ich hatte so einen ähnlichen Fehler mal, als ich aus versehen "FileClose" statt "F16_FileClose", verwendet hatte.
Hast Du eine Idee oder muß ich ein Testprogramm zusammenstellen?
Thorsten
ich habe zum ersten mal ReadLn() mit der SD-Karte nutzen wollen, leider führt dies zum "interner Assembler Error 178606"
Compiler läuft durch, nur beim Make kommt der Fehler.
Code
// HilfeSystem
DispHelpView : Array[0..5] of string[40];
HelpDirView : TPathStr;
Help_DateiView : file of String[40]; // File of String für ReadLn
HelpDatei_NameView : TFileName;
DispHelpView : Array[0..5] of string[40];
HelpDirView : TPathStr;
Help_DateiView : file of String[40]; // File of String für ReadLn
HelpDatei_NameView : TFileName;
Code
// Help von SD Lesen
//
procedure Read_Help( iChange: integer);
var
xFor, xstrNo, strNo : byte;
HelpStrBuffer : string[40]; // für den ersten Test
begin
if not bMMCok then // Keine SD Card, erstelle Meldung
DebugOut('ReadHelp 199');
Return; // Funktion beenden
endif;
sdAktive(); // Timer für SD Anzeige auf LCD
HelpDirView := 'hlp';
// Dateiname erzeugen
HelpDatei_NameView := 'h1.plp';
F16_FileAssign(Help_DateiView, HelpDirView, HelpDatei_NameView);// Handle mit FileNamen verknüpfen
if F16_FileExist(HelpDirView, HelpDatei_NameView,faAnyFile) then
if not F16_FileReset(Help_DateiView) then // vorhandene Datei öffnen
DebugOut('ReadHelp 200');
return;
endif;
DebugOut('201');
else // File Exist
DebugOut('ReadHelp 202');
return;
endif; // File Exist
CLR_Help; //lösche Anzeige Speicher für LCD
// hier bei ReadLn() kommt der Fehler...
ReadLn(Help_DateiView, HelpStrBuffer ); // zum Test nur eine Zeile lesen!
DebugOut('Read Help: ' +HelpStrBuffer);
// prüfe pb EOF (kommt später in die Schleife nach jedem ReadLn()
if F16_EndOfFile(Help_DateiView) then
DebugOut('HELP Dateiennde');
if not F16_FileClose(Log_DateiView) then // File schließen
DebugOut('203');
endif; // CloseFile
return;
endif;
DebugOut('204');
if not F16_FileClose(Log_DateiView) then // File schließen
DebugOut('205');
endif; // CloseFile
end Read_Help;
//
procedure Read_Help( iChange: integer);
var
xFor, xstrNo, strNo : byte;
HelpStrBuffer : string[40]; // für den ersten Test
begin
if not bMMCok then // Keine SD Card, erstelle Meldung
DebugOut('ReadHelp 199');
Return; // Funktion beenden
endif;
sdAktive(); // Timer für SD Anzeige auf LCD
HelpDirView := 'hlp';
// Dateiname erzeugen
HelpDatei_NameView := 'h1.plp';
F16_FileAssign(Help_DateiView, HelpDirView, HelpDatei_NameView);// Handle mit FileNamen verknüpfen
if F16_FileExist(HelpDirView, HelpDatei_NameView,faAnyFile) then
if not F16_FileReset(Help_DateiView) then // vorhandene Datei öffnen
DebugOut('ReadHelp 200');
return;
endif;
DebugOut('201');
else // File Exist
DebugOut('ReadHelp 202');
return;
endif; // File Exist
CLR_Help; //lösche Anzeige Speicher für LCD
// hier bei ReadLn() kommt der Fehler...
ReadLn(Help_DateiView, HelpStrBuffer ); // zum Test nur eine Zeile lesen!
DebugOut('Read Help: ' +HelpStrBuffer);
// prüfe pb EOF (kommt später in die Schleife nach jedem ReadLn()
if F16_EndOfFile(Help_DateiView) then
DebugOut('HELP Dateiennde');
if not F16_FileClose(Log_DateiView) then // File schließen
DebugOut('203');
endif; // CloseFile
return;
endif;
DebugOut('204');
if not F16_FileClose(Log_DateiView) then // File schließen
DebugOut('205');
endif; // CloseFile
end Read_Help;
Wenn ich das ReadLn() ausklammere geht auch der Make.
Bis jetzt hatte ich noch nie ReadLn für meine SD-Card genutzt, aber es wäre hier sinnvoll.
Woher weiss der Compiler eigentlich das es ein Fat16 Zugriff ist?
Ich hatte so einen ähnlichen Fehler mal, als ich aus versehen "FileClose" statt "F16_FileClose", verwendet hatte.
Hast Du eine Idee oder muß ich ein Testprogramm zusammenstellen?
Thorsten
Attachments
Filename: | 29-11-_2018_18-05-25.jpg |
Filesize: | 63.14 KB |
Title: | Meldung1 |
Information: | Meldung1 |
Download counter: | 100 |
Filename: | 29-11-_2018_18-04-51.jpg |
Filesize: | 24.58 KB |
Title: | Meldung2 |
Information: | Meldung2 |
Download counter: | 81 |