topic Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST in Intel® Fortran Compiler

GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VISTA

steve_konarski — Tue, 29 Apr 2008 11:02:13 GMT

I do not sem to get the functions

GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat

to work in VISTA - are ther compatible functions in the latest Visual fortan which would work in VISTA

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

Steven_L_Intel1 — Tue, 29 Apr 2008 13:00:28 GMT

Those are Win32 API routines, not part of Intel Visual Fortran. I think we'll need some more information as to what "doesn't work", and perhaps a small example.

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

steve_konarski — Tue, 29 Apr 2008 13:30:13 GMT

I have the program

USE DFWIN
USE DFLIB

IMPLICIT NONE

CHARACTER*15 TYPEFACE
INTEGER HFONT,HDC,RET

INTEGER NCHARS,I, NHGG,NW,ABCD(0:255)
REAL ABCD1(0:255)
TYPE (T_ABC) AB(0:255)

NCHARS=255

TYPEFACE="Arial"//char(0)

HDC = GETDC(NULL)
NHGG=-10000
NW=0
HFONT = CREATEFONT(-NHGG, NW, 0, 0, 0, 0, 0, 0, &
DEFAULT_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS, &
PROOF_QUALITY,INT(DEFAULT_PITCH) ,TYPEFACE)

RET=SELECTOBJECT(HDC,HFONT)

RET=GETCHARWIDTH32 (HDC,1,NCHARS,LOC(ABCD(1)))

RET=GETCHARWIDTHFLOAT (HDC,1,NCHARS,LOC(ABCD1(1)))
RET=GETCHARABCWIDTHS(HDC,1,255,AB(1))

DO I=65,90
WRITE(*,*)I,' ',CHAR(I),ABCD(I),ABCD1(I),AB(I)%ABCA,AB(I)%ABCB,AB(I)%ABCC
ENDDO

STOP

END

In windows XP it lists the widths of characters between A and Z and all three functions

GETCHARWIDTH32 , GETCHARWIDTHFLOAT, GETCHARABCWIDTHS

give values, however under Vista I just get zeros, I am using Visual Fortran Vers 6.0

if I upgrade will the problem be resolved

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

Steven_L_Intel1 — Tue, 29 Apr 2008 14:49:23 GMT

This is not a compiler problem - while there are many reasons to upgrade, this is not one of them.

I don't have immediate access to a Vista system to try your program. Perhaps another reader can comment.

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

steve_konarski — Tue, 29 Apr 2008 15:00:47 GMT

I compile and obtain the exe on an xp machine and transfer the exe to a vista machine where it does not produce the desired results

steve

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

steve_konarski — Thu, 01 May 2008 07:56:05 GMT

Any body got any ideas why the program does not work on Vista ?

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

garylscott1 — Thu, 01 May 2008 17:09:11 GMT

These APIs are not applicable to Truetype fonts. It could be that Vista has different defaults or the particular font isn't available. There is a different API for Truetype fonts. See the MSDN description http://msdn.microsoft.com/en-us/library/ms534215(VS.85).aspx

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

steve_konarski — Fri, 02 May 2008 07:33:46 GMT

I checked and the font is available , and accoding to the MSDN site these should work in VISTA - but they do not

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

garylscott1 — Fri, 02 May 2008 16:20:39 GMT

Sorry, I don't have Vista on anything, how about running the below and reporting theresults

USE DFWIN
USE DFLIB

IMPLICIT NONE

CHARACTER*15 TYPEFACE
INTEGER HFONT,HDC,RET

INTEGER NCHARS,I, NHGG,NW,ABCD(0:255)
REAL ABCD1(0:255)
TYPE (T_ABC) AB(0:255)

NCHARS=255

TYPEFACE="dingers"//char(0)

HDC = GETDC(NULL)
NHGG=-10000
NW=0
HFONT = CREATEFONT(-NHGG, NW, 0, 0, 0, 0, 0, 0, &
DEFAULT_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS, &
PROOF_QUALITY,INT(DEFAULT_PITCH) ,TYPEFACE)

write(*,*)'hfont=',hfont,getlasterror()

RET=SELECTOBJECT(HDC,HFONT)

write(*,*)'selobjret=',ret,getlasterror()

RET=GETCHARWIDTH32 (HDC,1,NCHARS,LOC(ABCD(1)))

write(*,*)'cw32ret=',ret,getlasterror()

RET=GETCHARWIDTHFLOAT (HDC,1,NCHARS,LOC(ABCD1(1)))

write(*,*)'cwfret=',ret,getlasterror()

RET=GETCHARABCWIDTHS(HDC,1,255,AB(1))

write(*,*)'abcwret=',ret,getlasterror()

DO I=65,90

WRITE(*,*)I,' ',CHAR(I),ABCD(I),ABCD1(I),AB(I)%ABCA,AB(I)%ABCB,AB(I)%ABCC

ENDDO

END

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

garylscott1 — Fri, 02 May 2008 19:51:30 GMT

I'm just slightly suspicious that Vista believes that the passed buffers are too small to hold the data from the query since you pass the address of a single element rather than of the whole array. Maybe one of the security updates for Vista was to add checks for the correct size of argument buffers. (just a wild theory)

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

steve_konarski — Tue, 06 May 2008 08:31:17 GMT

this is result from windows XP

hfont= 1208633627 0
selobjret= 25821217 0
cw32ret= 1 0
cwfret= 1 0
abcwret= 1 0
65 A 5970 373.1250 -13 5996 -13
66 B 5970 373.1250 656 4838 476
67 C 6464 404.0000 446 5664 354
68 D 6464 404.0000 691 5297 476
..................

and from Vista

hfont= 1376391332 0
selobjret= 25821253 0
cw32ret= 0 0
cwfret= 0 0
abcwret= 0 0
65 A 0 0.0000000E+00 0 0 0
66 B 0 0.0000000E+00 0 0 0
67 C 0 0.0000000E+00&nb sp; 0 0 0
68 D 0 0.0000000E+00 0 0 0
...............

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

Steven_L_Intel1 — Tue, 06 May 2008 12:44:08 GMT

Call GetLastError after the function returns zero and see what the extended error code is.

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

steve_konarski — Tue, 06 May 2008 13:08:01 GMT

Have I not done that already ? the result form getlasterror is zero

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

Steven_L_Intel1 — Tue, 06 May 2008 13:33:05 GMT

Sorry, yes, you did.

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

Jugoslav_Dujic — Tue, 06 May 2008 15:43:09 GMT

I suspect (although I don't have a Vista around so I can't check either) that GetDC(NULL) might be the culprit. Google search on "Vista getdc null" hints at the possibility that Vista has an entirely different screen model... see e.g. here. Try with a "real" DC perhaps?

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

steve_konarski — Wed, 07 May 2008 07:47:00 GMT

Hi Jugoslav those links do point to a possible problem - not sure what you mean by

a "real" DC

steve

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

Jugoslav_Dujic — Wed, 07 May 2008 08:13:12 GMT

I mean, pretty much any DC other than the desktop one...

For the start, try GetDC(GetDesktopWindow()). Alternatively, you can try creating (and destroying later!) a memory DC, using

hDC = GetDC(GetDesktopWindow())

hMemDC = CreateCompatibleDC(hDC)

ret = CreateCompatibleBitmap(hDC , 100, 100)

iSt = SelectObject(hMemDC, hBmp)

...

!do stuff here

...

ret = DeleteObject(GetCurrentObject(hMemDC, OBJ_BITMAP)

ret = DeleteDC(hMemDC)

Note that a) I admit this is an overkill for such a simple task and b) I'm stabbing in the dark...

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

steve_konarski — Wed, 07 May 2008 09:06:54 GMT

Hi jugoslav thanks - that did dont work either - but i will try anything to get it to work

steve

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

garylscott1 — Wed, 07 May 2008 22:43:06 GMT

The specific msdn description for GETDC indicates that GETDC(null) should behave the same on Vista asI read it. But I would suggest adding a write of the return code and getlasterror after GETDC(null) as well and see if the extended error code is nonzero there. It is quite odd for the return code for the other functions to retun false but for there to then be a zero GETLASTERROR() result as well. The indicates to me some major Vista error reporting anomaly or some unknown error within this application that messes up the GETLASTERROR() return value (stack corruption, out of bounds access not reported, etc.)

Re: GETCHARWIDTH GETCHARWIDTH32 GetCharWidthFloat in VIST

ggveldkamp2 — Tue, 13 May 2008 11:57:07 GMT

I tried the program on Vista and could get it to work by changing the value of NHGG. I used NHGG=-16. It looks to me it has something to do with the fontsize.

Guido