Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
No PARAMETERS statement is found.
Message
De
16/07/2002 12:39:53
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
West Wind Web Connection
Titre:
No PARAMETERS statement is found.
Divers
Thread ID:
00679192
Message ID:
00679192
Vues:
80
I am migrating a 2.97 app to 3.51 and I get a "No PARAMETERS statement is found." error on processing a request. Anyone have any ideas?
from WeblogMain.prg
CASE lcParameter == "WEBLOG" is executed

************************************************************************
* WeblogServer :: Process
******************************
*** Function: This procedure's main purpose is to route incoming
*** requests to individual project PRGs/APPs.
***
*** The URL formatting used is as follows:
*** /wconnect/wc.dll?project~ClassMethod~Parm1~Parm2 etc.
***
*** The project 'parameter' is routed to the appropriate
*** program file which actually implements a Process class
*** to respond to requests. ClassMethod calls the method
*** in the wwProcess class implemented in project.prg
************************************************************************
PROTECTED FUNCTION Process
LOCAL lcParameter, lcExtension, lcPhysicalPath

*** Retrieve first parameter
lcParameter=UPPER(THIS.oRequest.Querystring(1))

*** Set up project types and call external processing programs:
DO CASE

CASE lcParameter == "WEBLOG"
DO WebLog with THIS

*** SUB APPLETS ADDED ABOVE - DO NOT MOVE THIS LINE ***

from Weblog.prg
begining of file
************************************************************************
*PROCEDURE WebLog
******************
*** Modified: 07/16/02
*** Procedure: Processes incoming WebLog CGI requests. Called from
*** wcMain.prg using WebLog~Task~Optional+Parms parameter.
*** Pass: loServer - wwServer/wwOLEServer object
*************************************************************************
lparameter loServer
local loProcess

#INCLUDE WCONNECT.h
#include path.h
#include LogFiles.h
#include TimeZone.h
#include adircols.h

#define MAX_DOWNLOAD_SIZE 16000000 && prevent surpassing 16MB string size

#define FILE_DATA_TYPE 5 && adir() column redefinition
#define FILE_DESCRIPTION 2 && adir() column redefinition

#define ORIGINAL_LANGUAGE_CODE 437
#define ORIGINAL_LANGUAGE_NAME "ORIGINAL"
#define ORIGINAL_LANGUAGE_CHARSET "windows-1252"

#define USE_IMAGE .t.
#define BACKGROUND_COLOR "#CCCCCC"
#define BACKGROUND_IMAGE "/images/g5.jpg"

#define CODE_WIDTH 8

#define DEFAULT_TIMEOUT 1800 && Seconds - 1/2 hour
#define TICK_MAX_SECONDS 3600 && Seconds - 1 hour

#define MAX_REPORT_ROWS 1000 && The max rows for a report

* message results
#define MESSAGE_SUCCESS "0"
#define MESSAGE_FAILURE "1"
#define MESSAGE_BAD_COMMAND "2"
#define MESSAGE_INVALID_PASSWORD "3"

* pid command types
#define SET_STATUS_BITS 0
#define SET_OUTPUT_VARIABLE 1
#define SET_PROP_GAIN 2
#define SET_INTEGRAL_RATE 3
#define SET_DERIVATIVE_GAIN 4
#define SET_SET_POINT 5

* alarm states
#define AL_NORMAL 0
#define AL_SHUTDOWN 2
#define AL_ALARM 3

* analog states
#define AN_NORMAL 0
#define AN_FAIL 1
#define AN_SHUTDOWN 2
#define AN_ALARM 3

* status states
#define ST_ON 5
#define ST_OFF 4

* control function states
#define CF_ON 5
#define CF_OFF 4

* timer states
#define TI_NORMAL 0
#define TI_NOT_RUNNING 6
#define TI_COUNTING_DOWN 7
#define TI_TIMED_OUT 8

* pid states
#define PI_SIZE 24 && 2 * 12
#define PI_MANUAL_OUTPUT 1
#define PI_PROP_GAIN 3
#define PI_INTEGRAL_RATE 5
#define PI_DERIVATIVE_GAIN 7
#define PI_SET_POINT 9
#define PI_REMOTE_SET_POINT 11
#define PI_PROCESS_VARIABLE 13
#define PI_OUTPUT_VARIABLE 15
#define PI_PID_STATUS_BITS 17
#define PI_AUTO_MANUAL 0
#define PI_LOCAL_REMOTE 1
#define PI_SET_STATUS_BITS 1
#define PI_SET_OUTPUT_VARIABLE 2
#define PI_SET_PROP_GAIN 3
#define PI_SET_INTEGRAL_RATE 4
#define PI_SET_DERIVATIVE_GAIN 5
#define PI_SET_SET_POINT 6

* surge control states
#define SU_SIZE 100 && 2 * 50
#define SU_NUM_CONTROL_LINE_POINTS 6 && this is a count
#define SU_COMMON_Y 3
#define SU_CONTROL_LINE_Y 5
#define SU_CONTROL_LINE_X 17
#define SU_OPER_POINT_X 41
#define SU_SETPOINT 43
#define SU_BACK_CONT_RATIO 45

#define SERVER_TITLE "Dresser-Rand WebLog Viewer"

loProcess=createobject("WebLogProcess",loServer)

if vartype(loProcess)#"O"
*** All we can do is return...
wait window nowait "Unable to create Process object..."
return .f.
endif

*** Call the Process Method that handles the request
loProcess.process()

return
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform