Enrico,
I did read your other reply and I do understand about the Windows issue. It doesn't matter if you can end the FW object because the object is still running under windows and thus it can still error out if the database source is ended. This is the point.
I am going to email my test program to you to see if it errors out for you.
James
James Bott wrote:Enrico,
I did read your other reply and I do understand about the Windows issue. It doesn't matter if you can end the FW object because the object is still running under windows and thus it can still error out if the database source is ended. This is the point.
METHOD End() BLOCK ; // It has to be Block
{ | Self, lEnd | If( lEnd := ::lValid(), ::PostMsg( WM_CLOSE ),), lEnd }James Bott wrote:I am going to email my test program to you to see if it errors out for you.
I received your EXE. It errors out here too but, as I said, I can't see what the real problem is, sorry.
EMG
Enrico,
>It send WM_CLOSE message to the control (Windows API level) effectively destroying it.
But if you then issue a oBrw:display() there is no error. What does this mean?
>>James Bott wrote:
>>I am going to email my test program to you to see if it errors out for you.
>Ok, but I'd need to compile it to found the real problem.
It is the same source code that I published here (last example), and that you already compiled and tested. I just wanted to see if it was either a FW/Harbour version issue or an OS issue perhaps. You haven't told me which versions you are using.
James
James Bott wrote:But if you then issue a oBrw:display() there is no error. What does this mean?
James Bott wrote:You haven't told me which versions you are using.
METHOD Display() CLASS TXBrowse
if !::lCreated
return nil
endif
::BeginPaint()
::Paint()
::EndPaint()
return 0METHOD Display() CLASS TXBrowse
if !::lCreated
return nil
endif
::BeginPaint()
::Paint()
::EndPaint()
return 0DATA lDataClosed INIT .f.
METHOD End() INLINE ::lDataClosed := Super:End()
METHOD Display()
if ::lCreated .and. ! ::lDataClosed
::BeginPaint()
::Paint()
::EndPaint()
endif
return nilJames Bott wrote:OK, but the FW code in the Display() method is still getting executed, thus the error.
Enrico,
>The Display() method in your FWH release is causing an error, ok. But the reason of this error is not the browse that has been destroyed.
I'm sorry I don't understand what you are saying. The browse has been "destroyed" but it is still exists and is still functioning. That is why it is erroring out. Maybe this is a matter of symantics. "Destroyed" typically means not in existance anymore. Pehaps in the programming sense it means something else.
Does your version of FWH not error out? If so, what version are you using? What does your Display() method look like?
>Once more, we need of a clear sample.
Again I am confused. I did provide a sample. What do you mean by a "clear sample?" Why is my sample not clear? Did you get the source of the example I emailed you?
James
But, couldn't we just use the existing lCreated flag, and just set it to false in the End method? Do we need the new lDataClosed flag, or is this just for clarity? Clarity is good though.
METHOD End() INLINE ::lCreated := ! Super:End()#include 'fivewin.ch'
#include 'xbrowse.ch'
function Main()
local oWnd, oBar
USE CUSTOMER
DEFINE Window oWnd
define buttonbar oBar of oWnd
define button of oBar action (oBrw:End(), CUSTOMER->(DbCloseArea()), ;
oBrw:display(), msgInfo(valtype(oBrw)) )
@ 0, 0 XBROWSE oBrw OF oWnd ALIAS 'CUSTOMER' AUTOCOLS
oBrw:CreateFromCode()
oWnd:oClient:= oBrw
activate window oWnd
return nilLet us also have another look at the whole issue.
We were all discussing this issue on the assumption that this error is occurring at the time of closing the window, because that is what Mr Rick said. From the error logs there is no evidence that the error is occurring at that time only.
To share my own experiences, we used to face similar errors, though very rarely, even during the browse on some normal operation. Suddenly the recorset stops functioning resulting in painting errors. Nothing wrong with the code or fwh. In a large network environment there could be many external factors that would disturb the connectivity with the servers momentarily or for longer periods effecting the functioning of the recordset.
From then onwards I started disconnecting the recordset after opening and working with the disconnected recordset. ( Reconnect only for requery/refresh/write ). The problems were overcome.
Incidentally I never close the recordset at the end of browse. I use local variable for oRs and let it go out of scope.
( Code for disconnecting recordset is oRs:ActiveConnection:hObj := nil )
//------------------------------------------------------------------------------//
METHOD SetAdO( oRs, lAddCols, lAutoOrder, aFldNames ) CLASS TXBrowse
LOCAL nFields,nFor, oCol
if ::lCreated
if ::nDataType == DATATYPE_ARRAY
if SameAdoStruct( Self, oRs )
return nil
else
::aCols := {}
endif
else
::ClearBlocks()
::aCols := {}
endif
endif
msginfo( oRs ) // <-- this fires only on initial browse
// if this fires any other time .. I want to see it
::oRs := oRs
DEFAULT ::bGoTop := {|| If( ::oRs:RecordCount() > 0, ::oRs:MoveFirst(), nil ) } //,;
DEFAULT ::bGoBottom := {|| If( ::oRs:RecordCount() > 0, ::oRs:MoveLast(), nil ) } //,;
DEFAULT ::bSkip := {| n | AdoSkip( ::oRs, If( n==nil, 1, n ) ) } //,;
DEFAULT ::bBof := {|| ::oRs:Bof } //,;
DEFAULT ::bEof := {|| ::oRs:Eof } //,;
DEFAULT ::bBookMark := {| n | If( n == nil,;
If( ::oRs:RecordCount() > 0, ::oRs:BookMark, 0 ), ;
If( ::oRs:RecordCount() > 0, ( ::oRs:BookMark := n ), 0 ) ) } // , ;
DEFAULT ::bKeyNo := {| n | If( n == nil, ;
If( ::oRs:RecordCount() > 0, ::oRs:AbsolutePosition, 0 ), ;
If( ::oRs:RecordCount() > 0, ( ::oRs:AbsolutePosition := n ), 0 ) ) } //,;
DEFAULT ::bKeyCount := {|| ::oRs:RecordCount() }James Bott wrote:I'm sorry I don't understand what you are saying. The browse has been "destroyed" but it is still exists and is still functioning. That is why it is erroring out.
James Bott wrote:Does your version of FWH not error out?
James Bott wrote:If so, what version are you using?
James Bott wrote:What does your Display() method look like?
METHOD Display() CLASS TXBrowse
if !::lCreated
return nil
endif
::BeginPaint()
::Paint()
::EndPaint()
return 0James Bott wrote:Again I am confused. I did provide a sample.
nageswaragunupudi wrote:Mr EMG and Mr James
Instead of using array, please test with this example using DBF