PureBasic Forums - English

God I'm dumb!

Now I remember why I always hated spaces in path names...

Thanks a lot guys!

I'm trying to write some code to read some values from the registry. Here's what I have so far - however, the code always fails to open the registry. Any ideas why?


hKey.l


OpenConsole()
Str.s = "Software\Microsoft\WindowsNT\CurrentVersion"
RetCode.l = RegOpenKeyEx_(#HKEY_LOCAL_MACHINE, @Str ...

That's exactly what I need

Many thanks - I'll upgrade from 4.10 to 4.20 Beta later today.

Does anyone know a simple way to download a webpage over the Net in PureBasic?

I'm looking for something like:
Basically I just want to get a page - I can do the processing after that.

Many thanks,
Tony

Thanks. It's handy the structures are pre-defined

Hi,

I'm looking for some examples on calling Win32 API from PureBasic.

I have:
- access to the Win32 Help on MSDN
- looked at the example win32 api PB example (draw an ellipse)

I need more information and examples.

In particular I'd like to start with a simple example: calling GetSystemTime ...

Codefire,
'Long' and 'Quad' are structures. Defining 'myVariable.Long' is not the same as 'myVariable.l'. What you can't do is 'SizeOf(.l)' and the like (although you can get the SizeOf() the variables themselves if the base type is not included, i.e. 'Debug SizeOf(myVariable)' ). ;)

...snip ...

Yes, that's fixed it...thanks guys!

snip...
I translate it to PB:
h_verlen.c=(4<<4)|(SizeOf(ipHeader)/SizeOf(long))

Interestingly enough the docs for 4.02 state that SizeOf() only works on structures and not on base types. However, you are right it works fine on base types:


If OpenConsole()
PrintN("sizeof long is:"+Str(SizeOf ...

Here's my code:


Declare TestDivision ()

Procedure TestDivision ()

x.q = 4192456821
y.q = x/60
z.q = y*60
If OpenConsole()
PrintN(Str(x))
PrintN(Str(z))
Print("Hit enter to continue")
Input()
EndIf
EndProcedure

TestDivision()



I get:
-102510475
-102510496
Hit enter to continue

If ...

..and here for posterity is the actual code I used. It seems PureBasic makes things very easy :) Thanks Traumatic.

Codefire.


#IMAGE_WIDTH = 480
#IMAGE_HEIGHT = 360
#CHUNK_WIDTH = 80
#CHUNK_HEIGHT = 60

Enumeration
#original_image
#new_image
EndEnumeration

filename.s = "ship05.bmp"
result.l ...

Trond wrote:What happens if you switch to another source then back?

Bizarrely a reboot seems to have fixed it. If it happens again I will try what you suggested.

Cheers,
Codefire

I don't know about PSP but why don't you write a simple program in PB to
accomplish this task?

Something like this (not much more than pseudo-code):

For y=0 To #imageWidth-1 Step #sliceWidth
For x=0 To #imageHeight-1 Step #sliceHeight
GrabImage(#originalImage, #sliceImage, x, y, #sliceWidth ...

codemaniac wrote:I recall having seen a function like that in Jasc Animation Shop.. might be worth to look at..

I was looking at it, but to be honest I'm rubbish at graphics I'll have another look....I'm sure there's a function in there to do it...somewhere...

Hi.

I have a single sprite sheet (bitmap file) with a number of frames for an animation on it. I want to split the sheet so that each frame goes into a seperate bitmap file.

Does anyone know how I can do that in PSP or even MS Paint? Or is there some tool out there to do it?

Cheers,
Codefire