PureBasic Forums - English

Hi,
ReadFile
Syntax: Result = ReadFile(#File, Filename$ [, Flags])
Flags (optional) ... #PB_File_BOM : if the file contains a BOM, it will be handled automatically (no need to use ReadStringFormat()).
The detected format will be automatically used by the read and write string functions.

Ok, just ...

Error in your code
pos= GetGadgetState(0)
If pos > 0
I always use pos <> -1 or pos >= 0
Fix it

And the wife has own list with more expensive goods
Fur coat, car...

Amazing! We are waiting for an increase in productivity!
PB630 77ms vs PB640a1 8ms

After installining PB640a1 Winx64 in Compiler Options I see:
PureBasic 6.40 alpha 1 - C Backend (Windows - x64)
C:\Program Files\PureBasic\Compilers\pbcompiler.exe

And PureBasic 6.21 is missing and it is not even in ...

Tested some examples and function print doesn't print anything
Compiled c2-modules-V25.pb in cx.exe (Win10x64 PB630)
and runned cx.exe -a "examples\002 if else.cx"

Content of 002 if else.asm
; CX Assembly Listing
; Generated by CX Compiler

.data
; slot name type
0 ?discard? int

.text
0000: HALT ...

Already present Macro MsiEnumProducts_(arg1, arg2) and Macro MsiGetProductInfo_(arg1, arg2, arg3, arg4)
Need Macro MsiEnumPatches_(arg1 - 5) and Macro MsiGetPatchInfo_(arg1 - 4) too in msi.imp for Import "msi.lib"

Thank you breeze4me
With #PB_Ignore works well

But if I specify the same value as it was, then nothing should change
Such as with #PB_Ignore ...in one word - PureBasic's magic

charvista wrote: Wed Jan 14, 2026 8:53 pm When speaking about the error message, yes, that is more clear, but "Variable 'abc' already declared as type .q' is more precise...

I'm agree with you 100%
The user sees the specified type and can easily correct the error

Procedure resize()
Protected winW = WindowWidth(0)
Protected winH = WindowHeight(0)

ResizeGadget(0, winw - GadgetWidth(1) - 10 - GadgetWidth(0) - 10 - 200, 10, 100, 83)
ResizeGadget(1, winw - GadgetWidth(1) - 10 - 100, 10, 100, 83)
EndProcedure

If OpenWindow(0, 0, 0, 445, 105, "ImageGadget ...

Maybe... Variable abc already declared with type quad

Оh, that's for sure
I read it as if it was a different type
Sorry, topic can be deleted

EnableExplicit
Define abc.q
abc.q = 2
abc = 5
No error
EnableExplicit
Define abc.q
abc.q = 2
abc.i = 5
[13:40:14] [COMPILER] Line 4: Variable already declared with another type: abc.

With type abc :shock:
Stop, abc - variable's name, not variable type


// Moved from "Bugs - Windows" to ...

Today, I downloaded master code from GitHub
And when I run project file I got an error: Declare doesn't match with real Procedure.
Procedure wv2_Environment_Created_Sync(this.IWV2EventHandlerWaitable, result.l, environment.ICoreWebView2Environment)
And another error is exactly the same

HttpRequest = HTTPRequest(#PB_HTTP_Get, "https://www.purebasic.com/download/PureBasic_Demo.zip", "", #PB_HTTP_Asynchronous)
If HttpRequest
Debug "StatusCode: " + HTTPInfo(HTTPRequest, #PB_HTTP_StatusCode)

Repeat
Progress = HTTPProgress(HttpRequest)
Select Progress
Case #PB_HTTP_Success ...

Hi, maybe there is already something similar on the forum,
but I just get this case and there is no information about it in PB help

Take PB standard example with packer work
Procedure UncompressPackFile()
Copy example to IDE and replace code at line 23 - 25
UseZipPacker()

Path$ = #PB_Compiler ...

Doesn't compile for me. Line 76 ("SetFrameRate") says there is no open screen.


comment this line
; SetFrameRate(60)

If OpenWindow(0, 0, 0, 800/DesktopResolutionX(), 600/DesktopResolutionY(), "Cercles Glow", #PB_Window_ScreenCentered )
uncomment this line
OpenWindowedScreen(WindowID(0), 0, 0 ...