Illegal memory errror

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|601\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Illegal memory errror
Tue, 03 Aug 2010, 20:44
dna	This code gives the above error message. While Not KeyDown(1) Locate 0,0 Cls MemAddr = TMemAddr If TSeek = 0 Then LPP = 0 Else LPP = TLPP EndIf TMemAddr = MemAddr If (KeyDown(29) + KeyDown(199)) = 2 Then LPP = 0:TSeek = 0:TMemAddr = 0:LinesPerPage = LinesPerPageMax If (KeyDown(208)) Then LPP = LPP+Colums:LinesPerPage = LinesPerPage + Colums:TSeek = TSeek + Colums: TMemAddr = TMemAddr+Colums If (KeyDown(200)) Then If LPP > 0 Then LPP=LPP - Colums If LinesPerPage > LinesPerPageMax Then LinesPerPage=LinesPerPage-colums If TSeek > 0 Then TSeek=TSeek-colums If TMemAddr > 0 Then TMemAddr=TMemAddr-colums EndIf If (KeyDown(209)) Then LPP = LPP + LinesPerPageMax LinesPerPage = LinesPerPage + LinesPerPageMax TSeek = TSeek + LinesPerPageMax TMemAddr = TMemAddr + LinesPerPageMax EndIf If (KeyDown(201)) Then If LPP- LinesPerPageMax > 0 Then LPP=LPP- LinesPerPageMax If LinesPerPage- LinesPerPageMax > LinesPerPageMax Then LinesPerPage=LinesPerPage- LinesPerPageMax If TSeek- LinesPerPageMax > 0 Then TSeek=TSeek- LinesPerPageMax If TMemAddr- LinesPerPageMax > 0 Then TMemAddr=TMemAddr- LinesPerPageMax EndIf If MouseDown(3) And md = False Then my = MouseY() md = True EndIf If MouseDown(3) And md = True Then mys = MouseY()-my If LPP+Columsmys> 0 Then If LPP+Columsmys<fs Then LPP = LPP+Columsmys EndIf EndIf If LinesPerPage + Columsmys > 0 Then If LinesPerPage + Columsmys <fs Then LinesPerPage = LinesPerPage + Columsmys EndIf EndIf If TSeek + Columsmys > 0 Then If TSeek + Columsmys <fs Then TSeek = TSeek + Columsmys EndIf EndIf If TMemAddr+Columsmys > 0 Then If TMemAddr+Columsmys <fs Then TMemAddr = TMemAddr+Columsmys EndIf EndIf EndIf If Not MouseDown(3) Then md = False EndIf SeekFile(File1,TSeek) TSeek = FilePos(File1) TLPP = LPP Color 255,255,255 AdrBar$ = "" Text 0,1,"Address \|" mi = 8 For i = 0 To Colums-1 Text mi9,1,Right$(Hex(i),2)+" \|":mi = mi + 4 Next Text mi9,1," Text" Text 0,13,"----------------------------------------------------------------------------------------" tl = 2 While Eof(File1) <> True And LPP <= LinesPerPage s_a$ = "":s_c$ = "" Color 255,255,255 mi = 8 Text 0,13TL, Hex(MemAddr) + "\|" For i = 0 To colums-1 If Not Eof(File1) Then b1 = ReadByte (File1) Color 255-b1,b1,0;255-b1 Text mi9,13tl,Right$(Hex(b1),2) Color 255,255,255 mi = mi + 2 Text mi9,13tl," \|" mi = mi + 2 s_c$ = s_c$+Chr(b1) tb2 = tb1 tb1 = b1 EndIf Next Text mi9,13TL, s_c$ MemAddr = MemAddr + colums LPP = LPP+ 1 tl = tl + 1 Wend Text 0,13tl,"File Size: " + fileSz:tl = tl + 1 Text 0,13*tl,"File Pos: " + (TSeek) Flip ;1 Wend WaitKey() CloseFile(File1) --v i use B2D -=-=- DNA
Wed, 04 Aug 2010, 09:14
dna	Sorry about my orginal post. I left the header off. the code should be as it was above but should have also included: Graphics 800,600,32,2 SetBuffer BackBuffer() Global Path$ = "D:" Global FileName$ = "HexTest" filesz = FileSize(Path + FileName) ;FileSize(Path + "\" + FileName) Global File1;File1 = ReadFile(Path + "\" + FileName) fs = filesz:File1= ReadFile(Path + "\" + FileName) Local LinesPerPage,LPP,TSeek,TMemAddr,MemAddr,LinesPerPageMax,ColumsMax,Colums LinesPerPageMax = 40 LinesPerPage = LinesPerPageMax ColumsMax = 16 Colums = 16 LPP = 0 --v The problem may have been in the original variable header declarations. I tried your method with the above header and it does work thanks. -=-=- DNA