+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: In-Form (https://qb64phoenix.com/forum/forumdisplay.php?fid=70)
+---- Thread: Text Fetch needs updating (/showthread.php?tid=4420)
Text Fetch needs updating - bplus - 01-27-2026
Text Fetch works fine in QB64pe v 3.2 just tested it tonight, can't seem to get it working in QB64pe v4.3
RE: Text Fetch needs updating - a740g - 01-27-2026
falcon.h will not work with the latest version QB64-PE. Also, you are using an old version of InForm.
I have an updated version that uses _FILES$ instead of direntry.h here: https://github.com/QB64-Phoenix-Edition/InForm-PE/tree/master/examples/TextFetch
RE: Text Fetch needs updating - bplus - 01-27-2026
Thankyou @a740g, I can get your version working for a distrubution, see zip below (and simple instruction how I put it together), but not clear how to take old InForm app that uses falcon.h and bypass that (the falcon.h part) for new version of InForm.
snap of a740g version of TextFetch in action:
zip is distributable for those who don't have InForm yet or don't have Samuel's current version of InForm loaded in place with QB64pe.exe folder. Instructions: I used the .bas and .frm from a740g's github samples and added his InForm Folder a sub folder found in his InForm-PE-master.zip
And testing the downloaded distribution zip for those who dont have InForm's current version from here:
ClipBoard:
Quote:SUB loadDirsFilesListIt works! but dont try TextFetch on a .frm file or any of the files under the InForm sub directory because they are all one long: long: long single line in the ListBox so selecting text from it isn't possible.
DIM AS LONG nDirs, i
Caption(lbCWD) = "Current Directory: " + _CWD$
REDIM AS STRING Dir(0 TO 0), File(0 TO 0)
nDirs = GetCurDirLists(Dir(), File())
IF nDirs > 0 THEN
ResetList ListDirs
FOR i = LBOUND(Dir) TO UBOUND(Dir)
AddItem ListDirs, Dir(i)
NEXT
ResetList ListFiles
FOR i = LBOUND(File) TO UBOUND(File)
AddItem ListFiles, File(i)
NEXT
END IF
END SUB
RE: Text Fetch needs updating - bplus - 01-27-2026
Ha! Looks like TextFetch is oldest file in InForm examples at 3 years! along with ClickTheVoid, next oldest was one 2 years old with most being 3 months old!
RE: Text Fetch needs updating - Magdha - 01-27-2026
Mark, as you & bobalooie are putting your old InForm programs here, I won't need to do those (that'll be many fewer mistakes then!). Thanks. Lander1 & Lander2 in the same thread here?
RE: Text Fetch needs updating - bplus - 01-27-2026
I forgot all about the Landers. I have another small store of InForm projects I just found looking for Landers!
@Magdha I still need some tips converting old InForm projects to new. In fact I've yet to setup InForm and the .FRM builder up with newly setup QB64pe v4.3. For instance how not using the Falcon.h file changes things in InForm coding.
Maybe I will try old InForm projects in my GUIb because I am way more familiar how that works eg only the GUIb.Bi and GUIb.Bm files to worry about! First try updating InForm Landers I guess.
RE: Text Fetch needs updating - Magdha - 01-27-2026
(01-27-2026, 10:21 AM)bplus Wrote: I forgot all about the Landers. I have another small store of InForm projects I just found looking for Landers!
@Magdha I still need some tips converting old InForm projects to new. In fact I've yet to setup InForm and the .FRM builder up with newly setup QB64pe v4.3. For instance how not using the Falcon.h file changes things in InForm coding.
Maybe I will try old InForm projects in my GUIb because I am way more familiar how that works eg only the GUIb.Bi and GUIb.Bm files to worry about! First try updating InForm Landers I guess.
Mark, Sam has worked wonders with InForm.
To get an old InForm project going, do the following:
In the project files, delete any InForm files, including falcon.h
Get the InForm folder from one of the projects that I have managed to get working (at last). The InForm folder contains all the InForm files and the Extensions Folder. Keep the InForm folder for use on all projects.
Place the InForm folder in the project Folder.
Open the project .bas file with QB64PE, and edit lines as:
Where the '$INCLUDE: lines exist near the start, remove all except the project .frm line
Replace with:
'$INCLUDE:'InForm\InForm.bi'
'$INCLUDE:'InForm\xp.uitheme'
At the end of the project place
'$INCLUDE:'InForm\InForm.ui'
I got the instruction from somewhere to place this line at the end, but it seems to work when placed with the others.
The project will then work straight out of the box. I think that you don't even need to have InForm installed.
This is what I've been doing (when not making all the mistakes).
RE: Text Fetch needs updating - bplus - 01-27-2026
Oh Landers already done in InForm-PE-master.zip that Samuel has provided us!
Just add Inform sub directory to it.
RE: Text Fetch needs updating - Magdha - 01-27-2026
(01-27-2026, 11:48 AM)bplus Wrote: Oh Landers already done in InForm-PE-master.zip that Samuel has provided us!Yep
Just add Inform sub directory to it.