在Delphi中,使用QuotedStr函数可以防止SQL注入。QuotedStr函数将传入的字符串添加引号,防止特殊字符被解释为SQL语句的一部分。
例如,下面是一个使用QuotedStr的示例:
var username: string; password: string; query: string; begin // 获取用户输入的用户名和密码 username := EditUsername.Text; password := EditPassword.Text; // 构建查询语句,并使用QuotedStr函数处理用户名和密码 query := 'SELECT * FROM users WHERE username = ' + QuotedStr(username) + ' AND password = ' + QuotedStr(password); // 执行查询等后续操作 // ... end;
在上面的示例中,使用QuotedStr函数处理了用户输入的用户名和密码,确保它们被添加引号并准确地传递给SQL查询语句,从而防止SQL注入攻击。