Rocksolid Light

Welcome to RetroBBS

mail  files  register  newsreader  groups  login

Message-ID:  

Cobol programmers are down in the dumps.


devel / comp.lang.clipper.visual-objects / GetSystemInfo, GetNativeSystemInfo

SubjectAuthor
* GetSystemInfo, GetNativeSystemInfoNick Vlachou
+* Re: GetSystemInfo, GetNativeSystemInfoSteve Hagedorn
|`- Re: GetSystemInfo, GetNativeSystemInfoNick Vlachou
`- Re: GetSystemInfo, GetNativeSystemInfoSonsonora

1
GetSystemInfo, GetNativeSystemInfo

<2bd79b77-aa6a-41b8-a0ef-9d252e3c5f3fn@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=1164&group=comp.lang.clipper.visual-objects#1164

  copy link   Newsgroups: comp.lang.clipper.visual-objects
X-Received: by 2002:a05:622a:647:b0:39c:f902:0 with SMTP id a7-20020a05622a064700b0039cf9020000mr40790594qtb.277.1666891435085;
Thu, 27 Oct 2022 10:23:55 -0700 (PDT)
X-Received: by 2002:a05:6870:e2d5:b0:13b:a5b6:c80f with SMTP id
w21-20020a056870e2d500b0013ba5b6c80fmr6116161oad.85.1666891434865; Thu, 27
Oct 2022 10:23:54 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper.visual-objects
Date: Thu, 27 Oct 2022 10:23:54 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=180.150.82.108; posting-account=OZVoPwoAAABYtxcDuqe71A91Fj6WnGhj
NNTP-Posting-Host: 180.150.82.108
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <2bd79b77-aa6a-41b8-a0ef-9d252e3c5f3fn@googlegroups.com>
Subject: GetSystemInfo, GetNativeSystemInfo
From: nickvlachou38@gmail.com (Nick Vlachou)
Injection-Date: Thu, 27 Oct 2022 17:23:55 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 1705
 by: Nick Vlachou - Thu, 27 Oct 2022 17:23 UTC

I am having trouble retrieving the correct data using the windows API calls to GetSystemInfo & GetNativeSystemInfo.

The version of CAVO I am using is CAVO 2.6 on a DELL G15 AMD64 Processor with Windows 11.

Executing the call to GetNativeSystemInfo returns;

wProcessorArchitecture == ZERO (0) PROCESSOR_ARCHITECTURE_INTEL
-> should be (9) PROCESSOR_ARCHITECTURE_AMD64

dwProcessorType == 586
-> Should be (8664) PROCESSOR_AMDX8664

The only thing I can think of is that my SYSTEM_INFO structure is not correctly defined.

If anyone has a working CAVO example including the structure declaration I would love to have it. Happy to post my code if required.

Thank you.

Re: GetSystemInfo, GetNativeSystemInfo

<ddcb5810-9106-48c4-b268-e8b2c4bc5696n@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=1165&group=comp.lang.clipper.visual-objects#1165

  copy link   Newsgroups: comp.lang.clipper.visual-objects
X-Received: by 2002:a05:6214:21a6:b0:4bb:85b4:fd96 with SMTP id t6-20020a05621421a600b004bb85b4fd96mr17586475qvc.28.1666948657778;
Fri, 28 Oct 2022 02:17:37 -0700 (PDT)
X-Received: by 2002:a9d:7d0d:0:b0:66b:e4e2:8d70 with SMTP id
v13-20020a9d7d0d000000b0066be4e28d70mr3170367otn.341.1666948657553; Fri, 28
Oct 2022 02:17:37 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper.visual-objects
Date: Fri, 28 Oct 2022 02:17:37 -0700 (PDT)
In-Reply-To: <2bd79b77-aa6a-41b8-a0ef-9d252e3c5f3fn@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=82.198.218.101; posting-account=cO4_2goAAAAc6Q7FSsQrCIvX4DQqKZTz
NNTP-Posting-Host: 82.198.218.101
References: <2bd79b77-aa6a-41b8-a0ef-9d252e3c5f3fn@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ddcb5810-9106-48c4-b268-e8b2c4bc5696n@googlegroups.com>
Subject: Re: GetSystemInfo, GetNativeSystemInfo
From: stvhage@gmail.com (Steve Hagedorn)
Injection-Date: Fri, 28 Oct 2022 09:17:37 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 3065
 by: Steve Hagedorn - Fri, 28 Oct 2022 09:17 UTC

nickvl...@gmail.com schrieb am Donnerstag, 27. Oktober 2022 um 19:23:55 UTC+2:
> I am having trouble retrieving the correct data using the windows API calls to GetSystemInfo & GetNativeSystemInfo.
>
> The version of CAVO I am using is CAVO 2.6 on a DELL G15 AMD64 Processor with Windows 11.
>
> Executing the call to GetNativeSystemInfo returns;
>
> wProcessorArchitecture == ZERO (0) PROCESSOR_ARCHITECTURE_INTEL
> -> should be (9) PROCESSOR_ARCHITECTURE_AMD64
>
> dwProcessorType == 586
> -> Should be (8664) PROCESSOR_AMDX8664
>
> The only thing I can think of is that my SYSTEM_INFO structure is not correctly defined.
>
> If anyone has a working CAVO example including the structure declaration I would love to have it. Happy to post my code if required.
>
> Thank you.

Hi, your code might help to see what may be wrong
i tried this and it works for me

STRUCT _winSYSTEM_INFO2

MEMBER Oem IS _OEM_INFO
MEMBER dwPageSize AS DWORD
MEMBER lpMinimumApplicationAddress AS PTR
MEMBER lpMaximumApplicationAddress AS PTR
MEMBER dwActiveProcessorMask AS DWORD
MEMBER dwNumberOfProcessors AS DWORD
MEMBER dwProcessorType AS DWORD
MEMBER dwAllocationGranularity AS DWORD
MEMBER wProcessorLevel AS WORD
MEMBER wProcessorRevision AS WORD

UNION _OEM_INFO
MEMBER dwOemId AS DWORD
MEMBER OEMINFONAME IS _OEM_INFONAME

STRUCT _OEM_INFONAME

MEMBER wProcessorArchitecture AS DWORD
MEMBER wReserved AS DWORD

FUNCTION Start(p)

LOCAL oCon AS Console
LOCAL sInf IS _winSYSTEM_INFO2

oCon := Console{}
GetNativeSystemInfo( @sInf )

oCon:WriteLine ( "Oem.dwOemId : " + NTrim( sInf.Oem.dwOemId ))
oCon:WriteLine ( "Oem.OEMINFONAME.wProcessorArchitecture : " + NTrim( sInf.Oem.OEMINFONAME.wProcessorArchitecture ))
oCon:WriteLine ( "Oem.OEMINFONAME.wReserved : " + NTrim( sInf.Oem.OEMINFONAME.wReserved ))

Re: GetSystemInfo, GetNativeSystemInfo

<7c552611-f159-4501-a5ac-83a1a786cba0n@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=1166&group=comp.lang.clipper.visual-objects#1166

  copy link   Newsgroups: comp.lang.clipper.visual-objects
X-Received: by 2002:a05:620a:271f:b0:6d4:56aa:4385 with SMTP id b31-20020a05620a271f00b006d456aa4385mr1528558qkp.175.1667003603219;
Fri, 28 Oct 2022 17:33:23 -0700 (PDT)
X-Received: by 2002:a05:6870:c0d5:b0:13a:fb98:713d with SMTP id
e21-20020a056870c0d500b0013afb98713dmr10660874oad.199.1667003602706; Fri, 28
Oct 2022 17:33:22 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper.visual-objects
Date: Fri, 28 Oct 2022 17:33:22 -0700 (PDT)
In-Reply-To: <ddcb5810-9106-48c4-b268-e8b2c4bc5696n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=180.150.82.108; posting-account=OZVoPwoAAABYtxcDuqe71A91Fj6WnGhj
NNTP-Posting-Host: 180.150.82.108
References: <2bd79b77-aa6a-41b8-a0ef-9d252e3c5f3fn@googlegroups.com> <ddcb5810-9106-48c4-b268-e8b2c4bc5696n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <7c552611-f159-4501-a5ac-83a1a786cba0n@googlegroups.com>
Subject: Re: GetSystemInfo, GetNativeSystemInfo
From: nickvlachou38@gmail.com (Nick Vlachou)
Injection-Date: Sat, 29 Oct 2022 00:33:23 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 2376
 by: Nick Vlachou - Sat, 29 Oct 2022 00:33 UTC

Thanks for uploading the code Stv.

My code was pretty much identical to yours but just in case, I created a new module containing your code which gave identical results to those I had been achieving. On the same PC, Calling "GetNativeSystemInfo" using Pascal, I am receiving correct results. The Pascal is 32bit just as CAVO26 is.
The PC is "64-bit operating system", "x64-based processor" using "Windows 11 Home". I feel confident the code is correct as the results from the 2 different programs only differ in the values returned in the ProcessorArchitecture & the ProcessorType variables. All the other 9 values are identical.

I created the CAVO EXE and copied both the CAVO & the Pascal EXE's to another PC. Both programs returned identical results on this PC. The 2nd PC has ""32-bit operating system", "x64-based processor" using "Windows 10 Home".

If you care to email me I can attach images to show you the differences.

For the moment I have taken a different approach to gather the information I need.

Again, thank you so much for your speedy response.
Cheers.

Re: GetSystemInfo, GetNativeSystemInfo

<8714e1b7-74e5-416d-a6d9-2c6100ba8dccn@googlegroups.com>

  copy mid

https://www.rocksolidbbs.com/devel/article-flat.php?id=1338&group=comp.lang.clipper.visual-objects#1338

  copy link   Newsgroups: comp.lang.clipper.visual-objects
X-Received: by 2002:a05:622a:1a12:b0:3f6:aaac:6fe4 with SMTP id f18-20020a05622a1a1200b003f6aaac6fe4mr713158qtb.4.1686335222269;
Fri, 09 Jun 2023 11:27:02 -0700 (PDT)
X-Received: by 2002:a25:4084:0:b0:ba8:97f8:620f with SMTP id
n126-20020a254084000000b00ba897f8620fmr1129931yba.8.1686335221881; Fri, 09
Jun 2023 11:27:01 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.clipper.visual-objects
Date: Fri, 9 Jun 2023 11:27:01 -0700 (PDT)
In-Reply-To: <2bd79b77-aa6a-41b8-a0ef-9d252e3c5f3fn@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=177.227.42.226; posting-account=MLlb5woAAAC-CvD9nFOssWSVjmhDEzZ3
NNTP-Posting-Host: 177.227.42.226
References: <2bd79b77-aa6a-41b8-a0ef-9d252e3c5f3fn@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <8714e1b7-74e5-416d-a6d9-2c6100ba8dccn@googlegroups.com>
Subject: Re: GetSystemInfo, GetNativeSystemInfo
From: apolonioluis@gmail.com (Sonsonora)
Injection-Date: Fri, 09 Jun 2023 18:27:02 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 2171
 by: Sonsonora - Fri, 9 Jun 2023 18:27 UTC

El jueves, 27 de octubre de 2022 a la(s) 10:23:55 UTC-7, Nick Vlachou escribió:
> I am having trouble retrieving the correct data using the windows API calls to GetSystemInfo & GetNativeSystemInfo.
>
> The version of CAVO I am using is CAVO 2.6 on a DELL G15 AMD64 Processor with Windows 11.
>
> Executing the call to GetNativeSystemInfo returns;
>
> wProcessorArchitecture == ZERO (0) PROCESSOR_ARCHITECTURE_INTEL
> -> should be (9) PROCESSOR_ARCHITECTURE_AMD64
>
> dwProcessorType == 586
> -> Should be (8664) PROCESSOR_AMDX8664
>
> The only thing I can think of is that my SYSTEM_INFO structure is not correctly defined.
>
> If anyone has a working CAVO example including the structure declaration I would love to have it. Happy to post my code if required.
>
> Thank you.
do you know where i can download cavo 2.6? i need for fix a very old app (sorri, i already not using cavo)

1
server_pubkey.txt

rocksolid light 0.9.8
clearnet tor