home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 July / PCWorld_1999-07_cd.bin / 602 / WBPERSON / data1.cab / Client_Files / i_wbinet.pgm next >
Text File  |  1999-06-09  |  3KB  |  73 lines
  1. INCLUDE
  2.  
  3. /**********************************************************************
  4.  
  5.     interface pro vytvß°enφ HTML strßnek pomocφ programu
  6.             (c) 1998 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.  
  30. /*  Vlo₧φ text text_to_send na nßv∞Ütφ se jmΘnem label, kterΘ je definovßno
  31.     v HTW Üablon∞. */
  32. function SendToWeb(var label:string;var text_to_send:string):Boolean; 
  33. external "wbinet.dll";
  34.  
  35. /*  Nastavφ chybu Φ. 83 "chyba p°i b∞hu programu v bloku Run" (viz seznam chyb
  36.     internetov²ch klient∙ WinBase602) a jako text chyby nastavφ °et∞zec
  37.     errmsg. Tento °et∞zec nesmφ b²t delÜφ ne₧ 1024 znak∙. */
  38. function SetSTWError(var errmsg:string):Boolean; 
  39. external "wbinet.dll";
  40.  
  41. /*  Do prom∞nnΘ value zkopφruje index-tou hodnotu vstupnφ prom∞nnΘ varname.
  42.     Hodnoty prom∞nn²ch jsou indexovßny od 0.
  43.     Pokud prom∞nnß jmΘna varname existuje a pokud existuje jejφ index-tß hodnota,
  44.     bude tato hodnota zkopφrovßna a bude vrßcena hodnota TRUE.
  45.     V p°φpad∞ chyby (neexistence danΘ prom∞nnΘ, resp. neexistence index-tΘ hodnoty)
  46.     je vrßcena hodnota FALSE. */
  47. function GetValue(var varname:string;index:short;var value:string):Boolean; 
  48. external "wbinet.dll";
  49.  
  50. /*  Vrßtφ poΦet hodnot vstupnφ prom∞nnΘ varname. Pokud tato prom∞nnß neexistuje,
  51.     vrßtφ -1. */
  52. function GetValueCount(var varname:string):short;
  53. external "wbinet.dll";
  54.  
  55. /*  Vrßtφ celkov² poΦet hodnot vstupnφch prom∞nn²ch, kterΘ byly zφskßny od webserveru. 
  56.     Nßvratovß hodnota je v₧dy v∞tÜφ, nebo rovna nule. */
  57. function GetVarCount:short;
  58. external "wbinet.dll";
  59.  
  60. /*  Do °et∞zce varname zkopφruje jmΘno vstupnφ prom∞nnΘ, kterß byla p°edßna jako pos-tß.
  61.     Prom∞nnΘ jsou Φφslovßny od 0. Pokud pos-tß prom∞nnß existuje, je vrßceno TRUE,
  62.     v p°φpad∞ chyby (pos-tß prom∞nnß neexistuje, tj. bylo p°edßno mΘn∞ prom∞nn²ch)
  63.     je vrßceno FALSE. */
  64. function GetVar(pos:short;var varname:string):Boolean;
  65. external "wbinet.dll";
  66.  
  67. /*  Do °et∞zce varvalue zkopφruje hodnotu (!!ne jmΘno!!) pos-tΘ vstupnφ prom∞nnΘ.
  68.     Prom∞nnΘ jsou Φφslovßny od nuly. Vracφ p°φ ·sp∞chu TRUE, p°i chyb∞ (neexistuje
  69.     pos-tß prom∞nnß) FALSE. */
  70. function GetVarValue(pos:short;var varvalue:string):Boolean;
  71. external "wbinet.dll";
  72.  
  73.