PureBasic Forums - English

hello,

i find some old way to have the version of dll or exe :

http://www.purebasic.fr/english/viewtopic.php?t=11985&p=66018
;- get version of specified file as string
Procedure.s GetFileVersion(FileSpec.s)


VerBuffer.VS_FIXEDFILEINFO

FileVersion.s

If OpenLibrary(0, "version.dll")
*GFI ...

in fact, it works for my program the first time, not 2-3 times consecutivly.

Anyone know if there is another way to have acces wmi in PB ?

find a solution with this :
it works like that, but may be not the good way to do it.

i just try your code with this at the end

;List only the "Caption" and "OSArchitecture" Properties from the "Win32_OperatingSystem" Class
Debug WMI("SELECT Caption, OSArchitecture FROM Win32_OperatingSystem")
Debug "****"
;List all Properties (*) from the "Win32_OperatingSystem" Class
Debug WMI ...

here is a code to get the manufacturer of my pc :

DataSection
CLSID_WbemAdministrativeLocator:
Data.l $CB8555CC
Data.w $9128
Data.w $11D1
Data.b $AD, $9B, $0, $C0, $4F, $D8, $FD, $FF
IID_IWbemLocator:
Data.l $DC12A687
Data.w $737F
Data.w $11CF
Data.b $88, $4D, $0, $AA, $0, $4B, $2E, $24 ...

unfortunately, cvopen doesn't work with this type of adress.

hello,

i have my camera ip web adress like this : http://xx.xx.xx.xx:1023/videostream.cgi ... &pwd=guest

I want to retrieve the stream, but i don't find any samples that can help.

thanks in advance.

1000 thanks

i have this in c :
printf("%u\n\n\n",(3967115105 << 28) | (3967115105 >> 4) )
And i have the result : 516380150 that is correct

When i try whit PB, i have this :
Debug (3967115105 << 28) | (3967115105 >> 4)
i have 1064914352463107574 that is incorrect.

I try stru, strd strf, but the result is ...

foind this solution :

Procedure.q lngNewAddress(strAdd.s)
Protected sDummy.s=strAdd
Protected Position = FindString(sDummy, ".",1)
If Position>0
Protected a1=Val(Left(sDummy,Position-1))
sDummy=Right(sDummy,Len(sDummy)-Position)
Position = FindString(sDummy, ".",1)
If Position>0
Protected ...

I have this code :

InitNetwork()

Global EchoMessage.s = "MVPing make a Ping Test"

Procedure Ping(valeur)
Protected sIPAddress.s
Protected IPAddress.l
Protected lngResult.l

Repeat
sIPAddress = GetGadgetText(3)

ReplyBuffer.s = Space(SizeOf(ICMP_ECHO_REPLY) + Len(EchoMessage))
hIcmpFile ...

Encoded$ = "aGVsbG8gd29ybGQ="

*encodebuffer = AllocateMemory(StringByteLength(Encoded$))
If *encodebuffer
PokeS(*encodebuffer, Encoded$, -1, #PB_Ascii|#PB_String_NoZero)
*outbuffer = AllocateMemory(MemorySize(*encodebuffer) * 0.8)
If *outbuffer
Length = Base64Decoder(*encodebuffer ...

No unicode -> HELLO WORLD
unicode -> chinese, and i don't speak chinese.

And it come from official base64.

here is a little code :

retour$ = "25.8"
retour_1$ = "3"
Debug ValF( retour$ )
Debug ValD( retour$ )

Debug ValF( retour$ ) / ValF( retour_1$ )
Debug ValD( retour$ ) / ValD( retour_1$ )


When i execute, i have to obtain has result 8.60
Here, i have 8.5999999999999996

how to make it working ...

i just try to make a service in C# that just run a exe in PB with this code :
EnableExplicit

Enumeration
#database
EndEnumeration

Define result

UseODBCDatabase()
result = OpenDatabase(#database, "test", "sa", "sa", #PB_Database_ODBC)
MessaeRequester("",str(result) )
All i obtain is that the ...