Using IVF 11.0, 061 under Visual Studio 2008 I created the following Quickwin .f90 program. It compiles and links OK, both under debug and release configurations. For some reason I cannot get the API's to work. The variable LSTAT1 always returns false and I cannot get or set any information via the API's. I must be missing something simple. Can anyone help.
John Fleming
PROGRAM TESTAPI
USE IFQWIN
USE IFPORT
USE IFCORE
USE IFWIN
IMPLICIT NONE
INTEGER FHANDLE
LOGICAL LSTAT1
LOGICAL STATUS
INTEGER NLINES, NCOLS
TYPE(T_COORD) WPOS
TYPE(T_SMALL_RECT) SR
TYPE(T_CONSOLE_SCREEN_BUFFER_INFO) CINFO
FHANDLE=GetStdHandle(STD_OUTPUT_HANDLE)
NLINES = 250
NCOLS = 600
WPOS.X = NCOLS ! columns >= console window width
WPOS.Y = NLINES ! lines >= console window height
LSTAT1 = SetConsoleScreenBufferSize(FHANDLE, WPOS)
SR.TOP = 0
SR.LEFT = 0
SR.BOTTOM= NLINES-1
! <= console buffer height -1
SR.RIGHT = NCOLS-1
! <= console buffer width -1
LSTAT1 = SetConsoleWindowInfo(FHANDLE, .TRUE., SR)
! Executable code to set console buffer size
LSTAT1=GetConsoleScreenBufferInfo(FHANDLE,CINFO)
WRITE (*,*) "Window Coordinates = ", CINFO
WRITE (*,*) "Buffer Size = ", WPOS
WRITE (*,*) "Screen Size = ", SR
STOP
END PROGRAM TESTAPI
The libraries are listed as:
$(IFortInstallDir)lib\ia32
$(VCInstallDir)atlmfc\lib
$(VCInstallDir)lib
$(WindowsSdkDir)lib
C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\PlatformSDK\Lib
C:\Intel\Fortran\LIB
C:\Program Files\Microsoft SDKs\Windows\v6.1\Lib
The build log is:
|
|
Build started: Project: TESTAPI, Configuration: Debug|Win32
|
|
|
=C:=C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE ALLUSERSPROFILE=C:\Documents and Settings\All Users AltiumPath=C:\Program Files\Altium Designer 6\System APPDATA=C:\Documents and Settings\jsf\Application Data AVR32_HOME=C:\Program Files\Atmel\AVR Tools\AVR32 Toolchain CLASSPATH=.;C:\Program Files\Java\jre1.6.0_07\lib\ext\QTJava.zip CommonProgramFiles=C:\Program Files\Common Files COMPUTERNAME=NOTEA ComSpec=C:\WINDOWS\system32\cmd.exe CPATH=C:\Program Files\Intel\Compiler\11.0\061\fortran\mkl\include FOR__IS_DEBUGGER_PRESENT=1 FPATH=C:\Program Files\Intel\Compiler\11.0\061\fortran\mkl\include FP_NO_HOST_CHECK=NO HOMEDRIVE=C: HOMEPATH=\Documents and Settings\jsf IFORT_COMPILER11=C:\Program Files\Intel\Compiler\11.0\061\fortran\ include=C:\Program Files\Intel\Compiler\11.0\061\fortran\include;C:\Program Files\Intel\Compiler\11.0\061\fortran\include\ia32;C:\Program Files\Microsoft Visual Studio 9.0\VC\atlmfc\include;C:\Program Files\Microsoft Visual Studio 9.0\VC\include;C:\Program Files\Microsoft SDKs\Windows\v6.1\include INTEL_LICENSE_FILE=C:\Program Files\Common Files\Intel\Licenses lib=C:\Program Files\Intel\Compiler\11.0\061\fortran\lib\ia32;C:\Program Files\Microsoft Visual Studio 9.0\VC\atlmfc\lib;C:\Program Files\Microsoft Visual Studio 9.0\VC\lib;C:\Program Files\Microsoft SDKs\Windows\v6.1\lib;C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\PlatformSDK\Lib;C:\Intel\Fortran\LIB;C:\Program Files\Microsoft SDKs\Windows\v6.1\Lib LIBRARY_PATH=C:\Program Files\Intel\Compiler\11.0\061\fortran\mkl\ia32\lib LOGONSERVER=\\NOTEA NUMBER_OF_PROCESSORS=2 OMP_NUM_THREADS=2 OS=Windows_NT Path=C:\Program Files\Intel\Compiler\11.0\061\fortran\bin\ia32;C:\Program Files\Common Files\Intel\Shared Files\Ia32\Bin;C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE;C:\Program Files\Microsoft Visual Studio 9.0\VC\BIN;C:\Program Files\Microsoft Visual Studio 9.0\Common7\Tools;C:\Program Files\Microsoft Visual Studio 9.0\Common7\Tools\bin;c:\WINDOWS\Microsoft.NET\Framework\v2.0.50727;C:\Program Files\Microsoft SDKs\Windows\v6.1\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\system32\WBEM;C:\Program Files\PC Connectivity Solution\;C:\Program Files\Intel\Compiler\11.0\061\fortran\lib\ia32;C:\Program Files\Intel\Compiler\11.0\061\fortran\mkl\ia32\bin;C:\Program Files\Altium Designer 6\System;C:\PROGRA~1\COMMON~1\AUTODE~1;c:\altera\81\quartus\bin;C:\Program Files\Common Files\Autodesk Shared\;C:\Program Files\QuickTime\QTSystem\;c:\Program Files\Microsoft SQL Server\90\Tools\binn\;C:\Program Files\Common Files\Roxio Shared\DLLShared\;C:\Program Files\Common Files\Roxio Shared\DLLShared\;C:\Program Files\Common Files\Roxio Shared\9.0\DLLShared\;C:\Program Files\Common Files\Autodesk Shared;C:\Wincupl\WINCUPL\FITTERS;C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\bin;C:\Program Files\Microsoft Visual Studio .NET 2003\Common7\Tools\Bin\winnt PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH PROCESSOR_ARCHITECTURE=x86 PROCESSOR_IDENTIFIER=x86 Family 6 Model 15 Stepping 11, GenuineIntel PROCESSOR_LEVEL=6 PROCESSOR_REVISION=0f0b ProgramFiles=C:\Program Files QTJAVA=C:\Program Files\Java\jre1.6.0_07\lib\ext\QTJava.zip QUARTUS_ROOTDIR=c:\altera\81\quartus RoxioCentral=C:\Program Files\Common Files\Roxio Shared\9.0\Roxio Central33\ SESSIONNAME=Console SystemDrive=C: SystemRoot=C:\WINDOWS TEMP=C:\DOCUME~1\jsf\LOCALS~1\Temp TMP=C:\DOCUME~1\jsf\LOCALS~1\Temp USERDOMAIN=NOTEA USERNAME=jsf USERPROFILE=C:\Documents and Settings\jsf VisualStudioDir=C:\Documents and Settings\jsf\My Documents\Visual Studio 2008 VS90COMNTOOLS=C:\Program Files\Microsoft Visual Studio 9.0\Common7\Tools\ WecVersionForRosebud.303FC=2 windir=C:\WINDOWS __iflSearch=C:\Program Files\Intel\Compiler\11.0\061\fortran\bin\ia32;C:\Program Files\Common Files\Intel\Shared Files\Ia32\Bin;C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE;C:\Program Files\Microsoft Visual Studio 9.0\VC\BIN;C:\Program Files\Microsoft Visual Studio 9.0\Common7\Tools;C:\Program Files\Microsoft Visual Studio 9.0\Common7\Tools\bin;c:\WINDOWS\Microsoft.NET\Framework\v2.0.50727;C:\Program Files\Microsoft SDKs\Windows\v6.1\bin;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\system32\WBEM;C:\Program Files\PC Connectivity Solution\;C:\Program Files\Intel\Compiler\11.0\061\fortran\lib\ia32;C:\Program Files\Intel\Compiler\11.0\061\fortran\mkl\ia32\bin;C:\Program Files\Altium Designer 6\System;C:\PROGRA~1\COMMON~1\AUTODE~1;c:\altera\81\quartus\bin;C:\Program Files\Common Files\Autodesk Shared\;C:\Program Files\QuickTime\QTSystem\;c:\Program Files\Microsoft SQL Server\90\Tools\binn\;C:\Program Files\Common Files\Roxio Shared\DLLShared\;C:\Program Files\Common Files\Roxio Shared\DLLShared\;C:\Program Files\Common Files\Roxio Shared\9.0\DLLShared\;C:\Program Files\Common Files\Autodesk Shared;C:\Wincupl\WINCUPL\FITTERS;C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\bin;C:\Program Files\Microsoft Visual Studio .NET 2003\Common7\Tools\Bin\winnt
|
|
|
Deleting intermediate files and output files for project 'TESTAPI', configuration 'Debug|Win32'. Compiling with Intel Fortran 11.0.061 [IA-32]... ifort /nologo /debug:full /Od /gen-interfaces /warn:interfaces /module:"Debug\" /object:"Debug\" /traceback /check:bounds /libs:qwin /dbglibs /c /Qvc9 /Qlocation,link,"C:\Program Files\Microsoft Visual Studio 9.0\VC\bin" "C:\Intel\Fortran\TESTAPI\TESTAPI.f90" Linking... Link /OUT:"Debug\TESTAPI.exe" /INCREMENTAL:NO /NOLOGO /MANIFEST /MANIFESTFILE:"C:\Intel\Fortran\TESTAPI\debug\testapi.exe.intermediate.manifest" /DEBUG /PDB:"C:\Intel\Fortran\TESTAPI\debug\testapi.pdb" /SUBSYSTEM:WINDOWS /IMPLIB:"C:\Intel\Fortran\TESTAPI\debug\testapi.lib" "Debug\TESTAPI.obj" Link: executing 'link' Embedding manifest... mt.exe /nologo /outputresource:"C:\Intel\Fortran\TESTAPI\debug\testapi.exe;#1" /manifest "C:\Intel\Fortran\TESTAPI\debug\testapi.exe.intermediate.manifest" TESTAPI - 0 error(s), 0 warning(s)
|
