topic Re: problems with XPlaceBitmap in Intel® Fortran Compiler

problems with XPlaceBitmap

tropfen — Thu, 11 Jan 2007 19:14:04 GMT

Hello,

using the source code at the end i have problems with the line:

bSt=XPlaceBitmap(xDC1, xBmp1, 1,1,pBreiteDarstellung,pHoeheDarstellung)

as the result i am getting bSt == .false.

What is wrong with the source code? Everything else is working, from my point of view.

Thanks in advance

Frank

source code :

xDC1 = XMemoryDC(pBreiteDarstellung,pHoeheDarstellung)
CALL XSetViewport(xDC1, 1, 1, pBreiteDarstellung,pHoeheDarstellung)
bSt = XFillViewport(xDC1, X_BRUSH(BS_SOLID, XCOLOR_blue, 0))
bSt = XGetBitmap(xDC1, xBmp1,1, 1, pBreiteDarstellung,pHoeheDarstellung)
bSt = XSaveBitmap(xBmp1, "D: empTemp1.bmp" )
bSt = XDeleteBitmap(xBmp1)
bSt = XDeleteDC(xDC1)

xDC1 = XMemoryDC(pBreiteDarstellung,pHoeheDarstellung)
bSt = XFillViewport(xDC1, X_BRUSH(BS_SOLID, XCOLOR_yellow, 0))
CALL XSetViewport(xDC1, 1, 1, pBreiteDarstellung,pHoeheDarstellung)
bSt=XCreateBitmap(xBmp1, "D: empTemp1.bmp")
bSt = XSaveBitmap(xBmp1, "D: empTemp2.bmp")
bSt=XPlaceBitmap(xDC1, xBmp1, 1,1,pBreiteDarstellung,pHoeheDarstellung)
bSt = XDeleteBitmap(xBmp1)
bSt = XDeleteDC(xDC1)

Re: problems with XPlaceBitmap

Steven_L_Intel1 — Fri, 12 Jan 2007 00:38:13 GMT

What are these "X" routine names? Is this from xeffort?

Re: problems with XPlaceBitmap

tropfen — Fri, 12 Jan 2007 14:16:33 GMT

sorry that i have forgotten some information.

My system is based on:
Win XP Prof German SP 2
VS2005 standard German
IVF 9.1.033
XEffort 1.2.20

Thanks for help in advance
Frank

Re: problems with XPlaceBitmap

Jugoslav_Dujic — Fri, 12 Jan 2007 18:11:15 GMT

Well, no reason to worry if it works

Out of curiosity, what does debugger say when you type bSt, x in the Watch or Quick Watch window? If it's non-zero, there's even less to worry.

The reason might be a "bug" in Xeffort, whereby I (ab)used VF free mixing of integer/logical types too liberally, so you might get false negatives for logical variables. So, erm, don't trust the return value TOO much. I'll probably fix it... some day.

Re: problems with XPlaceBitmap

tropfen — Mon, 15 Jan 2007 15:55:38 GMT

Hello,

Sorry for being slighly incorrect with saying its works. All steps before are working.
XPlaceBitmap does not work. (its has worked on VS2003 German with IVF 9.0.025) No Bitmap is loaded.

At this place thanks for the tool XEffort. It has helpt me a lot.

Frank

Re: problems with XPlaceBitmap

Jugoslav_Dujic — Mon, 15 Jan 2007 22:57:41 GMT

Um, I misread your initial comment ("everything else works"). But I don't have an idea why it fails -- XPlaceBitmap just uses BitBlt or StretchBlt APIs, and the reasons for failure as stated in MSDN don't look plausible. What does GetLastError return if you call it immediately after XPlaceBitmap?

Re: problems with XPlaceBitmap

tropfen — Wed, 17 Jan 2007 03:16:49 GMT

Hello,
iSt=GetLastError() gives the result iSt=6
Frank

Re: problems with XPlaceBitmap

Jugoslav_Dujic — Wed, 17 Jan 2007 20:10:41 GMT

That's an "invalid handle", which means that either XCreateDC or XCreateBitmap have failed, and either xDC1%hDC or xBmp1%hBmp are invalid (likely, zero). I can't tell the reason with available data (invalid path to the .bmp file?) but some more debugging and GetLastErrors (list of error codes can be found here)