PureBasic Forums - English

Btw. your code works on my PC.


; Executes the PB compiler with the -h option and displays the output

Compiler = RunProgram(#PB_Compiler_Home + "compilers/pbcompiler", "-h", "", #PB_Program_Open | #PB_Program_Read | #PB_Program_Error)
Output$ = ""
Error$ = ""
If Compiler
*Buffer = AllocateMemory ...

Your handling is not 100% correct.

AvailableProgramOutput() returns the bytes to read.
If you use ReadProgramString() you can still 'lock' the program, because it waits for a CR.
You should use ReadProgramData() and PeekS().
Also you should read stderr, because many programs are writing also some ...

Up to now I never needed an arithmetic shift.
I always need a binary shift.

So it would be nice to have such a function available.

I don't know if this happens in older versions too, but I think so.

Ok, found an other way to fix:


Procedure.l Endian(val.l)
ProcedureReturn ((val & $000000FF) << 24) | ((val & $0000FF00) << 8) | ((val & $00FF0000) >> 8) | ((val & $FF000000) >> 24)
EndProcedure


Procedure.l EndianFix(val.l)
Protected Result.q
Result = ((val & $000000FF) << 24) | ((val ...

Procedure.l Endian(val.l)
ProcedureReturn ((val & $000000FF) << 24) | ((val & $0000FF00) << 8) | ((val & $00FF0000) >> 8) | ((val & $FF000000) >> 24)
EndProcedure


Procedure.l EndianFix(val.l)
Protected Result.q
Result = ((val & $000000FF) << 24) | ((val & $0000FF00) << 8) | ((val & $00FF0000 ...

Only an idea:

if you have a webserver ... load it in a folder and write a spider basic app for the smartphone.

It depends what you want to do

You can also open it with an empty page and inject a script to do something.

If you want to manipulate a page, you need of course to wait until this page is available.

I think you need at least the SciLexer.dll

https://www.scintilla.org/SciTEDownload.html

Fixed!

With 6.30 final I can not open a project -> Project file can not be loaded
With beta 7 it is/was working.

PB 6.30 x86 on win10 x64 fails.

PB 6.30 x64 on win10 x64 works.

Min Max Macros:

viewtopic.php?p=545353#p545353

You need an oszilloscope to check it.

If it is not 100% sine wave, you can hear the generated subfrequencies.

What is the result of this:

; Load file into memory
fileid = ReadFile(#PB_Any, filename$)
If FileID
*memory = AllocateMemory(Lof(fileid))
If *memory
If ReadData(fileid, *memory, MemorySize(*memory)) <> MemorySize(*memory)
Debug "Was not able to read all bytes"
Else
Debug "Ok"
EndIf
Else ...