FiveTech Software tech support forums

... Com1 Error: " + Str( nError ) ) EndIf EnableCommNotification( nCOMM, oWND1TRX:hWnd, 1, -1 ) ... // oWND1TRX:bCommNotify := {| nCOMM,nSTATUS| ODBIERZ1(nCOMM,nSTATUS)} // ... ACTIVATE WINDOW oWND1TRX ; VALID(ZAMKNIJ1()) ; ON INIT (EnableCommNotification( pCOMM1, oWND1TRX:hWnd, 1, -1 ...

... SHARED GO TOP DEFINE WINDOW oDLG TITLE "Central Telefonica." FROM 5,5 TO 450,320; COLOR CLR_BLACK,CLR_CEL oDLG:bCommNotify = { | nComm, nStatus | BytesAtPort( nComm, nStatus ) } @1,1 BROWSE OBRW ; ALIAS "TELEFONO"; COLOR CLR_BLACK,CLR_CEL; SIZE 975,600 ; ON DBLCLICK ASUMIR(@obrw); ...

... ) ENDIF RETURN hWnd // ========================================================================== // Method TCrw::PEGetGetJobStatus() -> nStatus // // Evaluates the status of a print job. You can use this method in a // number of programming situations, for example: // - to trigger error ...

... so, how do you "listen" for the phone? Do you have to poll a port or could you do something similar to: oDlg:bCommNotify := { | nComm, nStatus | get_card( nComm, nStatus ), EnableCommNotification( nComm, oDlg:hWnd, 1, -1 ) } Many Thanks Pete

... - invalid device handle. Is possible that I make mistake in DLL Functions declaration ? If I call this function in this way HB_FUNC(OPEN_RFID) { nStatus=RFID_Open(&hReader); if(nStatus == RFID_SUCCESS) { } hb_retnl( (LONG) hReader ); } is work fine. Best regards Andrej

Hello Stefan, The sample prnstat.prg shows : Function Main() local nStatus := PrnStatus( "LPT1:" ) MsgInfo( nStatus ) return nil I had a look at printdc.c ( subdirectory /winapi ) PRNSTATUS( PARAMS ) // cPrinter or cPrinterServer --> nStatus ...

... := { || oWndMdi:SetMsg( "Connected" ) } oOutMail:bDone := { || oWndMdi:SetMsg( "Message sent successfully" ) } oOutMail:bFailure := { || oOutMail:nStatus := 7 } oOutMail:SendMail( cFROM,; // From { cTO },; //, cPMOEMAIL, cSPOEMAIL },; // To cMESSAGE,; // Msg Text cSUBJECT,; {"C:\DBTMP\PROJINFO.BAT"},; ...

... := { || oWndMdi:SetMsg( "Connected" ) } oOutMail:bDone := { || oWndMdi:SetMsg( "Message sent successfully" ) } oOutMail:bFailure := { || oOutMail:nStatus := 7 } oOutMail:SendMail( cFROM,; // From { cTO },; //, cPMOEMAIL, cSPOEMAIL },; // To cMESSAGE,; // Msg Text cSUBJECT,; {"C:\DBTMP\PROJINFO.BAT"},; ...

Esto lo he sacado de un ost de este foro: function IsPrint( QuePrinter ) LOCAL nStatus DEFAULT QuePrinter := "LPT1:" nStatus := PrnStatus( QuePrinter ) if nStatus < 1 ; return "Impressora OK" elseif nStatus = 1 ; return "Impressora Pausada" elseif nStatus = ...

Esto lo he sacado de un ost de este foro: function IsPrint( QuePrinter ) LOCAL nStatus DEFAULT QuePrinter := "LPT1:" nStatus := PrnStatus( QuePrinter ) if nStatus < 1 ; return "Impressora OK" elseif nStatus = 1 ; return "Impressora Pausada" elseif nStatus = ...

... Thankyou for the solution, but did not serve the purpose As per the function I am getting a return Value 0, eventhough the printer is switched off nStatus := PrnStatus( QuePrinter ) if nStatus < 1 ; return "Printer OK" // ie Impressora OK I expect nStatus value to be 128 ...

... syntactical error where 7 is ST_QUIT Your suggestion : oOutMail:bFailure := { || LogFile( "mail.log", {oOutMail:aTo:[1] + " Failed"}), oOutMail:nStatus := ST_QUIT } Trying to get it to work .. unfortunitly the LogFile fires everytime good or bad ?? If logfile() is getting called every time, ...

... syntactical error where 7 is ST_QUIT Your suggestion : oOutMail:bFailure := { || LogFile( "mail.log", {oOutMail:aTo:[1] + " Failed"}), oOutMail:nStatus := ST_QUIT } Trying to get it to work .. unfortunitly the LogFile fires everytime good or bad ?? What am I missing here ?? Rick oOutMail:bFailure ...

Rick,

Try something like this:

oOutMail:bFailure := { || LogFile( "mail.log", {oOutMail:aTo:[1] + " Failed"}), oOutMail:nStatus := ST_QUIT }

Regards,
James

Antonio oOutMail:bFailure := { || oOutMail:nStatus := 7 } is what I inserted .. st_quit was defined in tsmpt as 7 and I got a run time of this ( unfortunitly ) :( Rick Application =========== Path and name: C:\FOX\PMOSQL\PmoW32.Exe ...