forum.clarionlife.net

Только русская часть, на остальные алфавиты не распространяется. Ё - не обрабатывается - исправьте сами.

Тут меня попросили сделать Ajax в программе на CGI. Поскольку Ajax понимает только UTF-8, пришлось сделать пару подпрограмм.

from_UTF8 Routine

! strout string(2048) - на выходе
! str до string(2048) - на входе
! sym string(1)
! sim byte

clear(strout)
e0 = len(clip(str))
if e0 <> 0 then
e2 ...

В продолжение темы "Как работать с Firebird' публикую темплейты для создания WEB серверных и клиентских приложений.
Я их использовал при создании распределенных систем различных типов и довольно успешно.
Сейчас они уже лежат без дела. Возможно кому-то пригодятся.

CGI.tpl


#TEMPLATE(CGI, 'CGI ...

Пришлось немного повозится с FTP, по лени, в той же манере:
program

DWORD EQUATE(ULONG)
HANDLE EQUATE(UNSIGNED)
WORD EQUATE(SIGNED)
LPCSTR EQUATE(CSTRING)
WIN32_FIND_DATA_Def Group,type
dwFileAttributes Long
ftCreationTime:dwLowDateTime Long
ftCreationTime:dwHighDateTime Long
ftLastAccessTime ...