Seite 1 von 1

Datei in Speicher laden?

Verfasst: 23.08.2011 19:17
von Codusa
Wahrscheinlich sehe ich den Wald in den Bäumen mal wieder nicht :(
Ich würde gerne eine Datei in den Speicher laden um dann mit einem Pointer auf die entsprechende Speicheradresse verweisen zu können.
Irgendwie so(in er Theorie):

Code: Alles auswählen

*Pointer=Openfile(1,"test.txt")
Procedure(@Pointer)

Re: Datei in Speicher laden?

Verfasst: 23.08.2011 19:20
von RSBasic
Siehe ReadData().

Re: Datei in Speicher laden?

Verfasst: 23.08.2011 19:23
von Codusa
Wald gefunden :)

Danke für die schnelle und hilfreiche Antwort! :allright:

Re: Datei in Speicher laden?

Verfasst: 23.08.2011 19:23
von STARGÅTE

Code: Alles auswählen

Procedure LoadFile(FileName.s)
	Protected File.i, *MemoryID
	File = ReadFile(#PB_Any, FileName)
	If File
		*MemoryID = AllocateMemory(Lof(File))
		If *MemoryID
			ReadData(File, *MemoryID, Lof(File))
		EndIf
		CloseFile(File)
	EndIf
	ProcedureReturn *MemoryID
EndProcedure
LoadFile gibt dir nun die *MemoryID zurück.
Denk aber ans selbstständige wieder freigeben mit FreeMemory() !

Re: Datei in Speicher laden?

Verfasst: 23.08.2011 19:39
von Codusa
Danke, klappt einwandfrei!