Documentation

// Hello World example
writeln('Hello WebPascal 5!');
writeln('The exclusive web development tool for Delphi developers!');

WebPascal/
├── script/      # Web scripts (supports multi‑level subdirectories)
├── task/        # Scheduled task scripts (no subdirectories)
├── uploads/     # Uploaded files (auto‑organized by date)
├── www/         # Static resources (HTML/CSS/JS/images)
├── log/         # Logs (auto‑generated by date, 30‑day retention)
└── cache/       # Temporary files (auto‑cleaned)
                    

Port=8833          # Port number
CORS=1             # Enable CORS (1) or disable (0)
GZip=1             # Enable GZip compression (1) or disable (0)
UpDir=.\Uploads    # Upload directory
                    

// 1. Parse JSON string
var jsonStr := '{"name":"张三","age":18,"gender":"男"}';
var obj := json.parse(jsonStr);

// 2. Get JSON values (support default operator ?? to avoid null errors)
var name := obj.name; // directly get, returns null if key missing
var email := obj.email ?? '未设置'; // return default if key missing

// 3. Modify JSON object
obj.age := int(20);

// 4. JSON object to string
var newJsonStr := json.stringify(obj);
writeln(newJsonStr);
writeln(unicodetoansi(newJsonStr));

// 5. Iterate JSON object
for var i := 0 to obj.length() - 1 do
begin
    writeln(obj.ElementName(i) + ' : ' + obj[i] + ' | ' + obj[i].TypeName());
end;

// 1. URL encode (supports emoji)
var urlStr := 'https://webpascal.com?name=张三😊';
var urlEnStr := urlencode.encode(urlStr);
writeln('URL encoded: ' + urlEnStr);

// 2. URL decode
var urlDeStr := urlencode.decode(urlEnStr);
writeln('URL decoded: ' + urlDeStr);

// 3. Base64 encode
var base64EnStr := base64.encode('WebPascal 5');
writeln('Base64 encoded: ' + base64EnStr);

// 4. Base64 decode
var base64DeStr := base64.decode(base64EnStr);
writeln('Base64 decoded: ' + base64DeStr);

// 5. HEX encode
var hexEnStr := StrToHex('abc测试123');
writeln('HEX encoded: ' + hexEnStr);

// 6. HEX decode
var hexDeStr := HexToStr(hexEnStr);
writeln('HEX decoded: ' + hexDeStr);

// 1. Match pattern (e.g., phone number validation)
var phone := '13800138000';
var isPhone := regex.ismatch(phone, '^1[3-9]\\d{9}$');
if isPhone then
    writeln('手机号格式正确')
else
    writeln('手机号格式错误');

// 2. Extract match (e.g., domain from URL)
var url := 'https://webpascal.com/docs';
var domain := regex.match(url, '(?<=https://).*?(?=/)');
writeln('提取的域名：' + domain);

// 3. Replace (replace all digits with *)
var str := 'abc123def456';
var newStr := regex.replace(str, '\\d+', '*');
writeln('替换后：' + newStr);

// SQLite
db.conn('mydb', 'DriverID=SQLite;Database=.\sqlite.db');

// MySQL
db.conn('mydb', 'DriverID=MySQL;Server=127.0.0.1;Database=test;User_name=root;Password=123456');

// SQL Server (trusted connection)
db.conn('mydb', 'DriverID=MSSQL;Server=.;Database=test;OSAuthent=Yes');

include('/conn.cfg');

var res := json.parse(db.query('mydb', 'SELECT * FROM tEmployee WHERE FID=:p1 and FClose=:p2', 3, 0));

if res.code = 200 then // 200 indicates success
begin
    writeln('查询到 ' + IntToStr(res.data.length()) + ' 条数据');
    // Iterate result set
    for var i := 0 to res.data.length() - 1 do
    begin
        var user := res.data[i];
        writeln('用户名：' + user.FID + '|' + user.FName + '，级别：' + IntToStr(user.FLevel));
    end;
end
else
begin
    writeln('查询失败：' + res.msg);
end;

// Insert
var addRes := json.parse(db.exec('mydb', 'INSERT INTO tEmployee(FName, FLevel) VALUES(:p1, :p2)', '李四', 1));
if addRes.code = 200 then
    writeln('新增成功，影响行数：' + IntToStr(addRes.rowcount))
else
    writeln('新增失败：' + addRes.msg);

// Update
var updateRes := db.exec('mydb', 'UPDATE tEmployee SET FLevel=:p2 WHERE FID=:p1', 3, 2);

// Delete
var deleteRes := db.exec('mydb', 'DELETE FROM tEmployee WHERE FID=:p1', 4);

var getResult := http.get('https://api.example.com/users?id=123', '', '');
writeln(getResult);

var postResult := http.post('https://api.example.com/users', '', 'name=张三&age=18');
writeln(postResult);

var jsonData := '{"name":"张三","age":18}';
var jsonResult := http.json('https://api.example.com/users', '', jsonData);
writeln(jsonResult);

var putResult := http.put('https://api.example.com/users/123', '', 'name=李四');
writeln(putResult);

var deleteResult := http.delete('https://api.example.com/users/123', '', '');
writeln(deleteResult);

var uploadResult := http.formdata(
    'https://api.example.com/upload', 
    'Authorization: Bearer token', 
    'filename=file(/local/image.jpg)'
);
writeln(uploadResult);

var savedPath := http.getfile('https://example.com/image.jpg');
writeln('<img src="' + savedPath + '">');

var result := http.get(
    'https://api.example.com', 
    '', 
    '', 
    'utf8',    // request encoding
    'utf8',    // response encoding
    5000       // timeout in milliseconds
);