home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / I_WBINET.PGM < prev    next >
Text File  |  2000-03-16  |  5KB  |  99 lines
  1. {$$3220792583 .                              }INCLUDE
  2.  
  3. /**********************************************************************
  4.  
  5.     interface pro vytvß°enφ HTML strßnek pomocφ programu
  6.             (c) 1998-1999 Software602, a.s.
  7.  
  8. Zde deklarovanΘ funkce jsou definovanΘ v WBINET.DLL. Majφ umo₧nit
  9. generovat dynamickΘ HTML strßnky pomocφ programu ve vnit°nφm programovacφm
  10. jazyku WinBase602.
  11.  
  12. Funkce SendToWeb a SetSTWError p°φmo generujφ HTML strßnku, resp. ovliv≥ujφ 
  13. v²sledek generovßnφ.
  14. Ostatnφ funkce zp°φstup≥ujφ seznam vstupnφch prom∞nn²ch, kterΘ byly
  15. p°ijmuty od webserveru (typicky seznam prom∞nn²ch formulß°e).
  16.  
  17.     Generovßnφ chyb
  18.     ---------------
  19. P°i provßd∞nφ t∞chto funkcφ se chyby negenerujφ, pouze danß funkce vrßtφ chybovou hodnotu
  20. (typicky FALSE). Generovßnφ chyb musφ zajistit autor programu ve WinBase602,
  21. pomocφ kterΘho se generuje HTML strßnka. Toto zajistφ zavolßnφm funkce
  22. SetSTWError(), kterou nastavφ text chybovΘho hlßÜenφ, kterΘ bude vygenerovßno.
  23. Bude pou₧it poslednφ text, kter² byl nastaven funkcφ SetSTWError().
  24. Po ukonΦenφ programu, kter² nastavil text chybovΘho hlßÜenφ, internetov² klient
  25. WinBase602 (CGI, ISAPI, Φi FastCGI) vygeneruje chybu Φ. 83 "Chyba p°i b∞hu programu
  26. v bloku Run" a jako text chyby nastavφ poslednφ text, kter² byl nastaven volßnφm
  27. funkce SetSTWError().
  28.  
  29.     HlßÜenφ u₧ivatelsk²ch chyb
  30.     --------------------------
  31. Cφlem je umo₧nit v²vojß°i dynamick²ch HTML strßnek ukonΦit provßd∞nφ WBC konektoru
  32. a nastavit jφm po₧adovanΘ chybovΘ hlßÜenφ. Toho v²vojß° dosßhne zavolßnφm procedury
  33.     procedure SetUserError(var errmsg:string);
  34. Tato procedura nastavφ chybu Φ. 90 (chyba vyvolanß aplikacφ) a jako chybovΘ hlßÜenφ
  35. nastavφ obsah °et∞zce errmsg. Bezprost°edn∞ po ukonΦenφ bloku Program (nebo procedury
  36. RunProgram), ve kterΘm byla tato procedura zavolßna, Internet klient ukonΦφ
  37. provßd∞nφ WBC konektoru a vygeneruje chybovou HTML strßnku dle nastavenΘ chybovΘ
  38. Üablony.
  39.  
  40. Vyvolßnφ u₧ivatelskΘ chyby nesouvisφ s pou₧φvßnφm ostatnφch funkcφ v tΘto dynamickΘ knihovn∞.
  41. Lze je vyvolat v libovolnΘm programu ve vnit°nφm programovacφm jazyku WinBase602,
  42. a¥ u₧ byl tento program proveden pomocφ bloku Program (BeginProgram...EndProgram),
  43. nebo pomocφ bloku RunProgram (zavolßnφm procedury RunProgram).
  44. **********************************************************************/
  45.  
  46. /*  Vlo₧φ text text_to_send na nßv∞Ütφ se jmΘnem label, kterΘ je definovßno
  47.     v HTW Üablon∞. */
  48. function SendToWeb(var label:string;var text_to_send:string):Boolean; 
  49. external "wbinet.dll";
  50.  
  51. /*  Nastavφ chybu Φ. 83 "chyba p°i b∞hu programu v bloku Run" (viz seznam chyb
  52.     internetov²ch klient∙ WinBase602) a jako text chyby nastavφ °et∞zec
  53.     errmsg. Tento °et∞zec nesmφ b²t delÜφ ne₧ 1024 znak∙. */
  54. function SetSTWError(var errmsg:string):Boolean; 
  55. external "wbinet.dll";
  56.  
  57. /*  Do prom∞nnΘ value zkopφruje index-tou hodnotu vstupnφ prom∞nnΘ varname.
  58.     Hodnoty prom∞nn²ch jsou indexovßny od 0.
  59.     Pokud prom∞nnß jmΘna varname existuje a pokud existuje jejφ index-tß hodnota,
  60.     bude tato hodnota zkopφrovßna a bude vrßcena hodnota TRUE.
  61.     V p°φpad∞ chyby (neexistence danΘ prom∞nnΘ, resp. neexistence index-tΘ hodnoty)
  62.     je vrßcena hodnota FALSE. */
  63. function GetValue(var varname:string;index:short;var value:string):Boolean; 
  64. external "wbinet.dll";
  65.  
  66. /*  Vrßtφ poΦet hodnot vstupnφ prom∞nnΘ varname. Pokud tato prom∞nnß neexistuje,
  67.     vrßtφ -1. */
  68. function GetValueCount(var varname:string):short;
  69. external "wbinet.dll";
  70.  
  71. /*  Vrßtφ celkov² poΦet hodnot vstupnφch prom∞nn²ch, kterΘ byly zφskßny od webserveru. 
  72.     Nßvratovß hodnota je v₧dy v∞tÜφ, nebo rovna nule. */
  73. function GetVarCount:short;
  74. external "wbinet.dll";
  75.  
  76. /*  Do °et∞zce varname zkopφruje jmΘno vstupnφ prom∞nnΘ, kterß byla p°edßna jako pos-tß.
  77.     Prom∞nnΘ jsou Φφslovßny od 0. Pokud pos-tß prom∞nnß existuje, je vrßceno TRUE,
  78.     v p°φpad∞ chyby (pos-tß prom∞nnß neexistuje, tj. bylo p°edßno mΘn∞ prom∞nn²ch)
  79.     je vrßceno FALSE. */
  80. function GetVar(pos:short;var varname:string):Boolean;
  81. external "wbinet.dll";
  82.  
  83. /*  Do °et∞zce varvalue zkopφruje hodnotu (!!ne jmΘno!!) pos-tΘ vstupnφ prom∞nnΘ.
  84.     Prom∞nnΘ jsou Φφslovßny od nuly. Vracφ p°φ ·sp∞chu TRUE, p°i chyb∞ (neexistuje
  85.     pos-tß prom∞nnß) FALSE. */
  86. function GetVarValue(pos:short;var varvalue:string):Boolean;
  87. external "wbinet.dll";
  88.  
  89.  
  90. /*  Tato procedura nastavφ chybu Φ. 90 (chyba vyvolanß aplikacφ) a jako chybovΘ hlßÜenφ
  91.     nastavφ obsah °et∞zce errmsg. Bezprost°edn∞ po ukonΦenφ bloku Program (nebo procedury
  92.     RunProgram), ve kterΘm byla tato procedura zavolßna, Internet klient ukonΦφ
  93.     provßd∞nφ WBC konektoru a vygeneruje chybovou HTML strßnku dle nastavenΘ chybovΘ
  94.     Üablony.
  95.     Proceduru lze volat vφcekrßt v jednom bloku Program (resp. RunProgram), u₧ivateli se
  96.     ohlßsφ poslednφ nastavenΘ chybovΘ hlßÜenφ. */
  97. procedure SetUserError(var errmsg:string);
  98. external "wbinet.dll";
  99.