Author Topic: _FILEEXISTS error.  (Read 3836 times)

0 Members and 1 Guest are viewing this topic.

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
_FILEEXISTS error.
« on: July 03, 2020, 04:11:58 am »
Hi Folks,

It's not that the files dont exist cause i know they do, it's just if i call _FILEEXISTS my program just hangs up. Any ideas why?

Here's how i using it....

Code: QB64: [Select]
  1.       DIM Tmp_Texture AS BSP_Texture
  2.       NumTXRecs& = Entry(Index&).Size / LEN(Tmp_Texture)
  3.       DIM Texture(NumTXRecs& - 1) AS BSP_Texture
  4.       GET #InFile, BytePos&, Texture()
  5.       _MEMPUT Level.DataPntr, Level.DataPntr.OFFSET + MemOffset, Texture()
  6.  
  7.       '// Load all the texture files???
  8.       FOR i& = 0 TO NumTXRecs& - 1
  9.        PRINT Texture(i&).Name
  10.        IF _FILEEXISTS(RTRIM$(Texture(i&).Name) + ".tga") THEN PRINT "File Found"
  11.       NEXT
  12.  
  13.  

Thanks

Unseen

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: _FILEEXISTS error.
« Reply #1 on: July 03, 2020, 04:37:47 am »
Hi.

How is a dump of files from the disk to the field created? Is it including the full path to the file, or is the EXE in a different folder than the files and array contain just file names?

Filenames - do they contain unicode characters? If so, you need direntry.h to extract the files from disk (I've tried it and it works well) unlike the DIR command with file redirection, in DIR case are unicode characters replaced with spaces. (so for file name with unicode characters then DIR return invalid name)

Wait... in your code, you load texture to memory, you do not write texture data to harddrive to file?
Here miss something as

FF = FREEFILE
OPEN file FOR BINARY AS FF
PUT FF,, Texture()
CLOSE FF
« Last Edit: July 03, 2020, 04:45:40 am by Petr »

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: _FILEEXISTS error.
« Reply #2 on: July 03, 2020, 04:55:28 am »
Quote
Filenames - do they contain unicode characters?

To be honest i don't know! They are read from a .bsp file, are specified as being 64 bytes in length and are not null terminated. These strings must contain something else though as RTRIM$ is not working on them!

Quote
in your code, you load texture to memory

Yep, i'm loading (well attempting to load) all the textures the level file uses. (I'd post the code and files but it's over 250mb....)

Unseen
« Last Edit: July 03, 2020, 04:57:33 am by Unseen Machine »

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: _FILEEXISTS error.
« Reply #3 on: July 03, 2020, 05:09:37 am »
Good. Is there a field behind the file names indicating the size of the files in bytes? Is it written one after the other (binary data of the first file, then binary data of the next and so on)? Did you try the method A $ = SPACE $ (file size) then GET and then paste it into the file? Or is there something else between the file names and then comes the area where the binary data of the individual files is? I don't know if the TGA format has any identifiers at the beginning and end of the file, so I'd try to find out the location in the file and deduce how it's written in a row.

What ASC code do there have spaces in file names? The spaces may be changed to another code that _TRIM $ does not work with. Try converting these characters to spaces, then _TRIM $ will work for you and maybe it will help.

Code: QB64: [Select]
  1. a$ = "    HI   "
  2. b$ = STRING$(5, CHR$(255)) + "HI" + STRING$(5, CHR$(255))
  3.  


Offline RhoSigma

  • QB64 Developer
  • Forum Resident
  • Posts: 565
    • View Profile
Re: _FILEEXISTS error.
« Reply #4 on: July 03, 2020, 05:22:03 am »
Just a guess, as I had a similar problem in GuiTools,
you take the filename from Texture().NAME, which is probably a fixed length string in your Texture UDT. Now assigning a value to a fixed length string in QB64 will properly fill the remaining bytes of a fixed length string (if any) with spaces, but you don't assign a value, but loading the contents out of a file via GET, hence you get into Texture().NAME whatever is in the file at that position, which may even be zeros. Using RTRIM in the _FILEEXIST call will only remove spaces, but not zeros. The zeros remain ant the end of the string and that makes _FILEEXIST failing.

I've made LStrip/RStrip functions in GuiTools (dev_framwork/GuiAppFrame.bm), which are much smarter than LTRIM/RTRIM and can handle the problem described above, just replace RTRIM with RStrip and use mode stripFIX.
My Projects:   https://qb64forum.alephc.xyz/index.php?topic=809
GuiTools - A graphic UI framework (can do multiple UI forms/windows in one program)
Libraries - ImageProcess, StringBuffers (virt. files), MD5/SHA2-Hash, LZW etc.
Bonus - Blankers, QB64/Notepad++ setup pack

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: _FILEEXISTS error.
« Reply #5 on: July 03, 2020, 05:25:32 am »
Quote
Is there a field behind the file names indicating the size of the files in bytes
Yes, the filenames are always 64 bytes long but not all of the bytes are always used.

I've just discovered that SOME of the entries are null terminated (chr$(0)), and for these i can now manipulate, now i've just gotta go through and find out how to sort out the ones which arent!

Quote
Try converting these characters to spaces, then _TRIM $ will work for you and maybe it will help.

No really the way i wanted to do it but i agree, it's a valid work around.

Quote
you take the filename from Texture().NAME, which is probably a fixed length string in your Texture UDT

Exactly that.

Quote
I've made LStrip/RStrip functions in GuiTools (dev_framwork/GuiAppFrame.bm), which are much smarter than LTRIM/RTRIM and can handle the problem described above, just replace RTRIM with RStrip and use mode stripFIX.

Thanks for the suggestion, i'll have a look into it.

Unseen

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: _FILEEXISTS error. - Resolved
« Reply #6 on: July 03, 2020, 07:42:07 am »
I made a work around thanks to the suggestions i received and now it works!

Code: QB64: [Select]
  1. FUNCTION BSP_File_Conform$ (File$) '// Changes file names so we can use them
  2.  
  3.  Allowed$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_\/"
  4.  
  5.  FOR i% = 1 TO LEN(File$)
  6.   Ltr$ = MID$(File$, i%, 1)
  7.   IF INSTR(Allowed$, Ltr$) OR INSTR(Allowed$, UCASE$(Ltr$)) THEN
  8.    IF Ltr$ = "/" THEN
  9.     FName$ = FName$ + "\"
  10.    ELSE
  11.     FName$ = FName$ + Ltr$
  12.    END IF
  13.   END IF
  14.  
  15.  BSP_File_Conform$ = FName$
  16.  

Thanks folks

Unseen