请问在javascript中如何实现PHP中的chr()函数功能

各位大神,请问在javascript中如何实现PHP中的chr()函数功能。
我知道的是String.fromCharCode()可以实现类似的功能,但是在数值大于127后,编码是乱码的,这时String.fromCharCode()与PHP中chr()实现的编码就不同了,我现在需要在javascript中实现大于127后,字符串也和chr()的一样,该如何实现?

2个回答

你可以试下直接强制转换 (char)str 试下能不能达到想要的结果

字符转ascii码:用charCodeAt();
ascii码转字符:用fromCharCode(); js中可以这样

lyycs
lyycs 这个我用了,但是超过127后,转码就不对了,在接收到后转换回来就多了个16进制的c2
2 年多之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
关于ord()和chr()函数的问题
以我目前的理解,ord返回编码,chr返回字符串 现在试试: ``` ord("ab") ``` 然后得到报错: TypeError: ord() expected a character, but string of length 2 found 但如果加上\x就好了: ``` >>> ord("\xab") 171 >>> ``` 不过这个方法仅对两个字母或数字有效 >>> ord("\xabc") Traceback (most recent call last): File "<pyshell#3>", line 1, in <module> ord("\xabc") TypeError: ord() expected a character, but string of length 2 found >>> ord("\x123") Traceback (most recent call last): File "<pyshell#4>", line 1, in <module> ord("\x123") TypeError: ord() expected a character, but string of length 2 found >>> 现在,谁能告诉我,这个\x究竟是什么?网上很多资料都没有提到
excel vba中调用SQLConfigDataSource函数时返回值总是FALSE,是哪里出错了?请高手指教!
excel vba中调用SQLConfigDataSource函数时返回值总是FALSE,是哪里出错了?请高手指教! 代码如下: Private Const ODBC_ADD_SYS_DSN = 4 Private Declare PtrSafe Function SQLConfigDataSource Lib "odbccp32.dll" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long Public Function LoadDbSource2(StrDriver, StrAttributes As String) As Boolean LoadDbSource2 = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, StrDriver, StrAttributes) End Function Sub hong() Dim StrAttributes As String StrAttributes = "DSN=AccessODBC2" & Chr(0) & "Desciption=动态加载ODBC示例" & Chr(0) StrAttributes = StrAttributes & "Dbq=" & "C:\Users\Administrator\Desktop\180608YearInterestRate.mdb" & Chr(0) & "FIL=MS Access;" & Chr(0) StrAttributes = StrAttributes & "MaxBufferSize=2048" & Chr(0) & "PageTimeout=5" & Chr(0) & Chr(0) Call LoadDbSource2("Microsoft Access Driver (*.mdb)", StrAttributes) End Sub
orale中某字段为varchar2(75)类型,怎样去掉该字段中的类空格
用dump函数查出类空格的ASCII字符为chr(227)、chr(128)、chr(128)的结合, 然后用replace、trim、translate、regexp__place函数均不能去掉这个类似空格,实在不知道是什么原因,请问各位大神有没有什么方法可以解决
VBCRLF换行符无效的问题,请问怎么对表格中的内容换行显示?
VBCRLF换行符无效的问题,请问怎么对表格中的内容换行显示?用VBCRLF不能实现,CHR$(13)也不能实现是怎么回事?
Vb将文本框里输入的十进制数据按chr(13)分割,然后转换成&h+16进制字符串形式
例如文本框里输入253chr(13)255chr(13),要求输出结果书“&HFD” "&HFF",看了好多算法,但是还是没有研究出来. 我自己做的结果如下 Private Sub Text2_KeyPress(KeyAscii As Integer) Dim tmp() As String Dim aa As String * 1 Dim rd As String Dim i As Integer Dim reload As Integer Dim response If pc_draw_flag = False Then MsgBox "请先选择路径规划功能,再进行路径规划!", vbOKOnly + vbInformation, "提示信息!" End If aa = Chr$(KeyAscii) If aa = Chr(13) And pc_draw_flag = True Then tmp = Split(Text2.Text, Chr(13)) '把目标数组按分隔符chr(13)分割 For i = 0 To UBound(tmp) 'UBound()取数组内元素的个数 rd = getnum(CStr(tmp(i))) Next i route(route_num) = "&H" & Hex(Val(rd)) route_num = route_num + 1 Text8.Text = route_num If route_num = 20 Then response = MsgBox("路径存储已达上限!是否重新规划?", vbYesNo + vbDefaultButton2 + vbInformation, "提示信息!") If response = vbYes Then route_num = 0 Else MsgBox "路径存储已完成,请点击发送按钮!", vbOKOnly + vbInformation, "提示信息!" End If End If ' MSComm1.Output = test End If End Sub 发送的 Private Sub CmdSend_Click() Dim bt(0 To 4) As Byte bt(0) = "&H" & "10" bt(1) = "&H" & "11" bt(2) = "&H" & "12" bt(3) = "&H" & "13" bt(4) = "&H" & "F6" If MSComm1.PortOpen = True Then If pc_draw_flag = True And OptSendHex.Value = True Then ' For i = 0 To 19 ' MSComm1.Output = "&H" & StrConv(Hex(route(i)), vbUpperCase) ' MSComm1.Output = bt MSComm1.Output = route(0) send_num = send_num + 1 Text7.Text = send_num ' Next i End If If Text2.Text = "" Or pc_draw_flag = False Then MsgBox "发送数据不能为空,请进行路径规划或输入字符!", vbOKOnly + vbInformation, "提示信息!" Else If OptSendHex.Value = True Then MSComm1.InputMode = comInputModeBinary MSComm1.InputLen = 0 Else MSComm1.InputMode = comInputModeText MSComm1.InputLen = 1 End If ' MSComm1.Output = Trim(Val(Text2.Text)) End If Else MsgBox "串口没有打开,请打开串口!", vbOKOnly + vbInformation, "提示信息!" End If route_num = 0 If pc_draw_flag = True And MSComm1.PortOpen = True And Text2.Text <> "" Then For i = 0 To 19 Text2.Text = Text2.Text & route(i) & " " If i = 19 Then Text2.Text = Text2.Text & Chr(13) & Chr(10) End If Next i End If End Sub 诸如此类形式的 bt(4) = "&H" & "F6"可以发送成功,检测也是好的,但是为什么我的生成的字符串 如输入255,显示的字符串&HFF,但是发送过去后不对,是把那个转换成了& H F F四个字符的ascii吗。。这是什么鬼。。
VBA中提示子程序或函数未定义?
Private Sub CommandButton1_Click() Dim DoubleTemp As Double Dim ll_Pos As Long Dim PanelName() As String Dim DexStr As String Dim StringTemp As String Dim Extract As New TBDex Dim Extract_1 As New TBDex Dim Val As Variant DexStr = "hull.block(*).panel(*).name" Extract.DoDataExtraction DexStr I = 1 Val = Extract.GetValue ReDim PanelName(1) While TypeName(Val) = "String" PanelName(I) = Val I = I + 1 Val = Extract.GetValue ReDim Preserve PanelName(UBound(PanelName) + 1) Wend If I < 2 Then res = WarningMsg("PanelName not found!") Exit Sub End If DeleteWorkSheet ("板材加工信息") Set NewSheet = Worksheets.Add NewSheet.Name = "板材加工信息" Worksheets("板材加工信息").Activate NewSheet.Cells(1, 1) = "零件编号" NewSheet.Cells(1, 2) = "单元批次" NewSheet.Cells(1, 3) = "切割图号" NewSheet.Cells(1, 4) = "单件重量" NewSheet.Cells(1, 5) = "零件数量" NewSheet.Cells(1, 6) = "零件面积" NewSheet.Cells(1, 7) = "零件厚度" NewSheet.Cells(1, 8) = "零件宽度" NewSheet.Cells(1, 9) = "零件长度" NewSheet.Columns("A:A").Select Selection.ColumnWidth = 8.88 NewSheet.Columns("B:B").Select Selection.ColumnWidth = 8.88 NewSheet.Columns("C:C").Select Selection.ColumnWidth = 8.38 NewSheet.Columns("D:D").Select Selection.ColumnWidth = 8.38 NewSheet.Columns("E:E").Select Selection.ColumnWidth = 8.38 NewSheet.Columns("F:F").Select Selection.ColumnWidth = 8.88 NewSheet.Columns("G:G").Select Selection.ColumnWidth = 8.38 NewSheet.Columns("H:H").Select Selection.ColumnWidth = 8.38 NewSheet.Columns("I:I").Select Selection.ColumnWidth = 10.38 nrow = 1 For K = 1 To I - 1 nrow = nrow + 1 ll_Pos = InStr(PanelName(K), "-") '-在字符中第几个出现 If ll_Pos > 0 Then NewSheet.Cells(nrow, 1) = Mid(PanelName(K), ll_Pos + 1) '从左边ll_Pos+1个字符开始取剩余全部 NewSheet.Cells(nrow, 2) = Mid(PanelName(K), 1, ll_Pos - 1) '从左边第一个字符开始取ll_Pos-1个字符 End If DexStr = "HULL.PANEL(" + Chr$(39) + PanelName(K) + Chr$(39) + ").WEIGHT" NewSheet.Cells(nrow, 4) = DexStr Extract.DoDataExtraction DexStr Val = Extract.GetValue DoubleTemp = 0 If TypeName(Val) = "Double" Then DoubleTemp = Val End If NewSheet.Cells(nrow, 4) = DoubleTemp DexStr = "HULL.PANEL(" + Chr$(39) + PLATE(K) + Chr$(39) + ").AREA" Extract.DoDataExtraction DexStr Val = Extract.GetValue DoubleTemp = 0 If TypeName(Val) = "Double" Then DoubleTemp = Val End If NewSheet.Cells(nrow, 6) = DoubleTemp DexStr = "HULL.PANEL(" + Chr$(39) + PLATE(K) + Chr$(39) + ").THICKNESS" Extract.DoDataExtraction DexStr Val = Extract.GetValue StringTemp = "" If TypeName(Val) = "String" Then StringTemp = Val End If Next K UserForm3.Hide End Sub ``` ```
rowSums的返回值类型。。。。
![图片说明](https://img-ask.csdn.net/upload/202001/21/1579552721_711349.png) 通过str看, rowSums返回的是chr字符吗?,这样的话下面total>0如何能生效
在C#winform中如何实现子查询,使yxlc为X轴数据,Y轴的数据有三个下拉框选择的值决定选表2的其中一列
下面是我的第一次尝试: ``` SQLiteDataAdapter mAdapter = new SQLiteDataAdapter("select ('select yxlc,gzl from 表1 where gzl=('a'+'b'+'c')') from 表2",m);a = comboBox1.Text;b = comboBox2.Text;c = comboBox3.Text; ``` 使yxlc为X轴数据,Y轴的数据有三个下拉框选择的值决定选表2的那一列,提示信息显示near "a": syntax error 下面是我的第二次尝试: ``` SQLiteDataAdapter mAdapter = new SQLiteDataAdapter("select ('select gzl from 表1 where gzl=('" + s + "')'),yxlc from 表2", m); string s = a + b + c; ``` 使yxlc为X轴数据,Y轴的数据有三个下拉框选择的值决定选表2的那一列,提示信息显示near "CHR111002": syntax error 是不是表格建的有问题 ![图片说明](https://img-ask.csdn.net/upload/201908/22/1566442161_644051.png) ![图片说明](https://img-ask.csdn.net/upload/201908/22/1566442222_308171.png)
VB的函数拿到C#来用除了问题怎么解决?
先看VB的代码:Dim int1, int2 As Integer int1 = InStr(MyHttp.Html, "name=" + Chr(34) + "securityId" + Chr(34)) int1 = InStr(int1, MyHttp.Html, "value=") int1 = InStr(int1, MyHttp.Html, Chr(34)) + 1 int2 = InStr(int1, MyHttp.Html, Chr(34)) securityId = Mid(MyHttp.Html, int1, int2 - int1) securityId = MyHttp.utf8(securityId) int1 = InStr(MyHttp.Html, "name=" + Chr(34) + "_form_token" + Chr(34)) int1 = InStr(int1, MyHttp.Html, "value=") int1 = InStr(int1, MyHttp.Html, Chr(34)) + 1 int2 = InStr(int1, MyHttp.Html, Chr(34)) _form_token = Mid(MyHttp.Html, int1, int2 - int1) 然后在看看C#的代码: int1 = MyHttp.Html.IndexOf("action="); int1 = InStr(int1, MyHttp.Html, Convert.ToChar(34)) + 1; int2 = InStr(int1, MyHttp.Html, Convert.ToChar(34)); action = MyHttp.Html.Substring( int1, int2 - int1); int1 = MyHttp.Html.IndexOf( "name=" + Convert.ToChar(34) + "epccGwMsg" + Convert.ToChar(34)); int1 = InStr(int1, MyHttp.Html, "value="); int1 = InStr(int1, MyHttp.Html, Convert.ToChar(34)) + 1; int2 = InStr(int1, MyHttp.Html, Convert.ToChar(34)); epccGwMsg = MyHttp.Html.Substring(int1, int2 - int1);
客户端与服务器间通过Base64编码传中文的问题
在服务器端使用的是apache的commons包中的Base64处理类。 而页面使用的java函数如下: [code="javascript"] var Base64 = { // private property _keyStr : "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=", // public method for encoding encode : function (input) { var output = ""; var chr1, chr2, chr3, enc1, enc2, enc3, enc4; var i = 0; input = Base64._utf8_encode(input); while (i < input.length) { chr1 = input.charCodeAt(i++); chr2 = input.charCodeAt(i++); chr3 = input.charCodeAt(i++); enc1 = chr1 >> 2; enc2 = ((chr1 & 3) << 4) | (chr2 >> 4); enc3 = ((chr2 & 15) << 2) | (chr3 >> 6); enc4 = chr3 & 63; if (isNaN(chr2)) { enc3 = enc4 = 64; } else if (isNaN(chr3)) { enc4 = 64; } output = output + this._keyStr.charAt(enc1) + this._keyStr.charAt(enc2) + this._keyStr.charAt(enc3) + this._keyStr.charAt(enc4); } return output; }, // public method for decoding decode : function (input) { var output = ""; var chr1, chr2, chr3; var enc1, enc2, enc3, enc4; var i = 0; input = input.replace(/[^A-Za-z0-9\+\/\=]/g, ""); while (i < input.length) { enc1 = this._keyStr.indexOf(input.charAt(i++)); enc2 = this._keyStr.indexOf(input.charAt(i++)); enc3 = this._keyStr.indexOf(input.charAt(i++)); enc4 = this._keyStr.indexOf(input.charAt(i++)); chr1 = (enc1 << 2) | (enc2 >> 4); chr2 = ((enc2 & 15) << 4) | (enc3 >> 2); chr3 = ((enc3 & 3) << 6) | enc4; output = output + String.fromCharCode(chr1); if (enc3 != 64) { output = output + String.fromCharCode(chr2); } if (enc4 != 64) { output = output + String.fromCharCode(chr3); } } output = Base64._utf8_decode(output); return output; }, // private method for UTF-8 encoding _utf8_encode : function (string) { string = string.replace(/\r\n/g,"\n"); var utftext = ""; for (var n = 0; n < string.length; n++) { var c = string.charCodeAt(n); if (c < 128) { utftext += String.fromCharCode(c); } else if((c > 127) && (c < 2048)) { utftext += String.fromCharCode((c >> 6) | 192); utftext += String.fromCharCode((c & 63) | 128); } else { utftext += String.fromCharCode((c >> 12) | 224); utftext += String.fromCharCode(((c >> 6) & 63) | 128); utftext += String.fromCharCode((c & 63) | 128); } } return utftext; }, // private method for UTF-8 decoding _utf8_decode : function (utftext) { var string = ""; var i = 0; var c = c1 = c2 = 0; while ( i < utftext.length ) { c = utftext.charCodeAt(i); if (c < 128) { string += String.fromCharCode(c); i++; } else if((c > 191) && (c < 224)) { c2 = utftext.charCodeAt(i+1); string += String.fromCharCode(((c & 31) << 6) | (c2 & 63)); i += 2; } else { c2 = utftext.charCodeAt(i+1); c3 = utftext.charCodeAt(i+2); string += String.fromCharCode(((c & 15) << 12) | ((c2 & 63) << 6) | (c3 & 63)); i += 3; } } return string; } } [/code] 但是发现的问题是对于同一段中文字符串,使用apache的Base64处理类出来的结果与javascript中的加密结果不一样, 例如中文字符串是:中国人 apache Base64转换的结果为:1tC5+sjL 而javascript的转换结果为:5raT7oWe5rWX5rWc77+9 这是怎么回事?
小白用php仿照js写的一个加密方法 就是有问题 求解答
原本的js是一段加密的方法 function checkform() { var dcode; var dcode1; var dcode2; dcode=document.form1.pwd.value; dcode1=""; dcode2=1275903582 dcode2=""+dcode2*137; var tmpstr; var dcodelen; dcodelen=dcode.length; for (i=1;i<=dcodelen;i++){ tmpstr = dcode.substring(i-1,i); dcode1=dcode1 + String.fromCharCode(tmpstr.charCodeAt(0)-i-dcode2.substring(i-1,i)); } document.form1.pwd.value=dcode1; } 这是我仿照写的php代码 但始终有错 //加密 function encryption($dcode){ $dcode1=''; $dcode2=1275903582; $dcode2 = "".$dcode2 * 137; $tmpstr=''; for ($i=1;$i<=count($dcode);$i++) { $tmpstr = substr($dcode,$i-1,1); $tmpstr = $this->charCodeAt($tmpstr, 0); $num = $this->fromCharCode($tmpstr-$i-substr($dcode2,$i-1,1)); $dcode1=$dcode1 + $num; } $encryDcode=$dcode1; print_r($encryDcode); die(); return $encryDcode; } function fromCharCode($codes) { if (is_scalar($codes)) $codes= func_get_args(); $str= ''; foreach ($codes as $code) $str.= chr($code); return $str; } function charCodeAt($str, $index) { $char = mb_substr($str, $index, 1, 'UTF-8'); if (mb_check_encoding($char, 'UTF-8')) { $ret = mb_convert_encoding($char, 'UTF-32BE', 'UTF-8'); return hexdec(bin2hex($ret)); } else { return null; } }
求助:python copy文件路径空格问题
copy文件的时候从txt中获取路径,然后复制到新地址。 但是因为路径中有空格问题,导致总是提示“文件不存在”等路径不合法的问题 如果是直接copy(绝对路径1,绝对路径2)因为绝对路径1是被“”起来的,所以没问题的 而且不管是'/'还是'\\'也是都没问题的 所以唯一的问题就是传递的路径中空格问题应该怎么解决掉 for lines in infilepath.readlines(): # 以下两行代码是因为txt文件中保存的路径后有state状态,故进行分割合并 file_list = lines.split(':', 2) filepath = file_list[0] + ':' + file_list[1] countsum += 1 if file_list[2] == '1\n': countyes += 1 else: countno += 1 # filepath = chr(34) and filepath and chr(34) if os.path.exists(filepath): print('file copy success→' + filepath) shutil.copy(filepath, 'D:/建筑图纸/deploy-service/新建文件夹/') else: # newfilepath = os.path.join(os.path.split(filepath)[0].replace(' ', ''), os.path.split(filepath)[1]) print("filepath error→" + filepath) shutil.copy(filepath, 'D:/建筑图纸/deploy-service/新建文件夹/') print('共{}数据中,解析成功的数据有{}个,解析失败的数据有{}个'.format(countsum, countyes, countno)) infilepath.close() ![图片说明](https://img-ask.csdn.net/upload/202001/13/1578891216_320692.jpg)
Entity Framework 6的问题,求指教
需要专家指点: Entity Framework 6 可以实现System.GUID数据类型与Informix 12.10中CHAR类型(确切地说是CHR(36))互操作。 目前需要的帮助是:在EF6源码中,哪个模块或文件定义了EF中内置数据类型System.GUID与不同数据库驱动中数据库的某种数据类型的对应关系?
系统包含的常用函数具体有什么用哪位大神能帮帮忙解释一下吗?
<?php function unhtml($content){ $content=str_replace("&","&amp;",$content); $content=str_replace("<","&lt;",$content); $content=str_replace(">","&gt;",$content); $content=str_replace(" ","&nbsp;",$content); $content=str_replace(chr(13),"<br>",$content); $content=str_replace("\\","\\\\",$content); $content=str_replace(chr(34),"&quot;",$content); return $content; } ?>
在VBA中同时启用了两个钩子,但只能释放一个怎么回事?
我想通过HOOK同时监控鼠标和键盘的操作,获得鼠标的当前坐标和我按下的按键码。 鼠标这个hook没有问题,但是当我加上键盘hook时候,发现释放不了键盘的hook. 点击结束后,鼠标hook停止了但是键盘还在继续运行。请各位帮帮我。 代码如下: ``` Sub UNHOOK() '卸钩子 UnhookWindowsHookEx Mhook2 UnhookWindowsHookEx Mhook Mhook2 = 0 Mhook = 0 End Sub Sub MOUSEHOOK() Mhook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MyMhook, Application.Hinstance, 0) Mhook2 = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf MyMhookkey, Application.Hinstance, 0) If Mhook = 0 Then MsgBox "钩子注册失败" If Mhook2 = 0 Then MsgBox "钩子注册失败" End Sub Public Function MyMhook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If ncode = 0 Then If wParam = WM_MOUSEMOVE Then Dim p As POINTAPI GetCursorPos p GetmousePos.TextBox1.Value = p.X & "," & p.Y End If Else MyMhook = CallNextHookEx(Mhook, ncode, wParam, lParam) End If MyMhook = CallNextHookEx(Mhook, ncode, wParam, lParam) End Function Public Function MyMhookkey(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If ncode = 0 Then If wParam = WM_KEYDOWN Then CopyMemory mymsg, ByVal lParam, LenB(mymsg) a = Chr(mymsg.vKey) MsgBox mymsg.vKey End If Else MyMhookkey = CallNextHookEx(Mhook2, ncode, wParam, lParam) End If MyMhookkey = CallNextHookEx(Mhook2, ncode, wParam, lParam) End Function ```
python format格式化输出
![图片说明](https://img-ask.csdn.net/upload/201901/23/1548210502_823992.png) 这是在网课上看到的一段代码,后面的chr(12288)用来当作空格填充进去,不太理解。chr()函数不是只能表示0-256之间的数字吗?这里为什么可以这么用
c# des 加密如何转换成php实现
c#------------- private string DES3Encrypt(string data, string key, string iv){ TripleDESCryptoServiceProvider DES = new TripleDESCryptoServiceProvider(); DES.Key = ASCIIEncoding.ASCII.GetBytes(key); DES.IV = ASCIIEncoding.ASCII.GetBytes(iv); DES.Mode = CipherMode.CBC; DES.Padding = PaddingMode.PKCS7; ICryptoTransform DESEncrypt = DES.CreateEncryptor(); byte[] Buffer = ASCIIEncoding.ASCII.GetBytes(data); return Convert.ToBase64String(DESEncrypt.TransformFinalBlock(Buffer, 0, Buffer.Length)); } php------------ public static function des($key,$iv,$str){ $len = strlen($str); $str = self::pkcs7_pad($str, $len); $td = mcrypt_module_open('tripledes', '', 'ecb', ''); mcrypt_generic_init($td, $key, $iv); $encrypted_data = mcrypt_generic($td, $str); mcrypt_generic_deinit($td); mcrypt_module_close($td); return base64_encode($encrypted_data); } public static function pkcs7_pad($text,$blocksize){ $pad = $blocksize - (strlen($text) % $blocksize); return $text . str_repeat(chr($pad), $pad); } php加密后的串不对,问哪有问题?
C语言编写DLL,返回字符串以\0结束符结尾
C语言编写DLL,其中一个函数返回字符串以\0结束符结尾(abc\0),用VB调用DLL的时候返回的字符串因为带\0,len()方法计算字符串长度为实际长度+1,也就是\0结束符被当作字符计算了,在VB中可以用replace("字符串",Chr(0),"")来处理。 现在我是想VB 不处理,而C编写的DLL返回字符串不带\0结束符,请问怎么办? 我用delphi编写的DLL,调用返回的正常。
各位大侠帮帮忙,用VFP在一张图片中写字,字体怎么旋转呢?如图“光盘编号”、”盛世天明”
![图片说明](https://img-ask.csdn.net/upload/202001/01/1577866388_317829.jpg) Erase test.png Declare Integer GdipDrawString In GDIPlus.Dll Long graphics,String Str,Long Length,Long thefont,String @layoutRect,Long StringFormat,Long brush Declare Integer GdipCreateStringFormat In GDIPlus.Dll Integer formatAttributes,Integer Language,Integer @nFormat Declare Integer GdipDeleteStringFormat In GDIPlus.Dll Long nFormat Declare Integer GdipCreateFont In GDIPlus.Dll Integer fontFamily,Single emSize,Integer fntstyle,Integer unit,Integer @fnt Declare Integer GdipDeleteFont In GDIPlus.Dll Integer fnt Declare Integer GdipCreateSolidFill In GDIPlus.Dll Integer ARGBcolor,Integer @brush Declare Integer GdipDeleteGraphics In GDIPlus.Dll Integer graphics Declare Integer GdipDeleteBrush In GDIPlus.Dll Integer brush Declare Integer GdipCreateFontFamilyFromName In GDIPlus.Dll String familyname,Integer FontCollection,Integer @FontFamily Declare Integer GdipDeleteFontFamily In GDIPlus.Dll Integer FontFamily Declare Integer GdipCreateFromHWND In GDIPlus.Dll Integer hWind,Integer @graphics Declare Integer MultiByteToWideChar In kernel32 Long iCodePage,Long dwFlags,String @ lpStr,Long iMultiByte,String @ lpWideStr,Long iWideChar Declare Integer GdipLoadImageFromFile In GDIPlus.Dll String wFilename,Integer @nImage Declare Integer GdipSaveImageToFile In GDIPlus.Dll Integer nImage,String wFilename,String qEncoder,Integer nEncoderParamsPtr Declare Integer GdipGetImageGraphicsContext In GDIPlus.Dll Integer nImage,Integer @ nGraphics Declare Integer GdipCreateHatchBrush In GDIPlus.Dll Integer hatchstyle,Integer ForeCol,Integer BackCol,Integer @brush Declare Integer GdipGetImageHeight In GDIPlus Integer img,Integer @ imgheight Declare Integer GdipGetImageWidth In GDIPlus Integer img,Integer @ imgwidth Declare Integer GdipDisposeImage In GDIPlus.Dll Long nativeImage graphics=0 nimage=0 File_Name='c:\D.PNG' &&原图(此处可以是BMP,JPG,GIF,TIF,PNG,ICO格式的文件) GdipLoadImageFromFile(Strconv(File_Name + Chr(0),5),@nimage) *********开始写绿色的100********** lcText='100' lnLen = 2 * (Len(lcText) + 1) lcWideStr = Replicate(Chr(0),lnLen) MultiByteToWideChar(0,0,@lcText,Len(lcText),@lcWideStr,lnLen) tcText=lcWideStr lcFontName='黑体'&&字体名称,必须是已注册的字体 lcFontName=Strconv(lcFontName+Chr(0),5) lnFontFamily=0 GdipCreateFontFamilyFromName(lcFontName,0,@lnFontFamily) lnFont=0 lnFontStyle=1&&字体类型,0默认,1加粗,2倾斜3=1+2加粗倾斜 4U 8 S tnSize=10&&字体大小 GdipCreateFont(lnFontFamily,tnSize,lnFontStyle,3,@lnFont) lnFormatHandle = 0 thAlignment=0&&对其格式 居左 GdipCreateStringFormat(0,0,@lnFormatHandle ) nAlign = lnFormatHandle brush=0 ucolor1=Rgb(0,255,0)&&字体颜色 aphpi=255&&透明度 lnColor1 = CToBin(Chr(aphpi)+Left(BinToC(uColor1,'4rs'),3),'4s') ucolor2=Rgb(0,255,0)&&字体颜色 aphpi=255&&透明度 lnColor2 = CToBin(Chr(aphpi)+Left(BinToC(uColor2,'4rs'),3),'4s') GdipCreateHatchBrush(11,lnColor1,lnColor2,@brush)&&建立纹理刷子 x=17&&绘制文字的左上角坐标 Y=28 w=0 h=0 GdipGetImageWidth(nImage,@w) GdipGetImageHeight(nImage,@h) lcRectangleF=BinToC(x,'F')+BinToC(Y,'F')+BinToC(w,'F')+BinToC(h,'F') GdipGetImageGraphicsContext (nImage,@Graphics) GdipDrawString(Graphics,tcText,Len(lcText),lnFont,@lcRectangleF,0,brush) *********写绿色的100结束********** GdipDeleteFontFamily(lnFontFamily) GdipDeleteFont(lnFont) GdipDeleteBrush(brush) GdipDeleteGraphics(Graphics) GdipDeleteStringFormat(lnFormatHandle) *********开始写红色的200********** lcText='200' lnLen = 2 * (Len(lcText) + 1) lcWideStr = Replicate(Chr(0),lnLen) MultiByteToWideChar(0,0,@lcText,Len(lcText),@lcWideStr,lnLen) tcText=lcWideStr lcFontName='黑体'&&字体名称,必须是已注册的字体 lcFontName=Strconv(lcFontName+Chr(0),5) lnFontFamily=0 GdipCreateFontFamilyFromName(lcFontName,0,@lnFontFamily) lnFont=0 lnFontStyle=1&&字体类型,0默认,1加粗,2倾斜3=1+2加粗倾斜 4U 8 S tnSize=10&&字体大小 GdipCreateFont(lnFontFamily,tnSize,lnFontStyle,3,@lnFont) lnFormatHandle = 0 thAlignment=0&&对其格式 居左 GdipCreateStringFormat(0,0,@lnFormatHandle ) nAlign = lnFormatHandle brush=0 ucolor1=Rgb(255,0,0)&&字体颜色 aphpi=255&&透明度 lnColor1 = CToBin(Chr(aphpi)+Left(BinToC(uColor1,'4rs'),3),'4s') ucolor2=Rgb(255,0,0)&&字体颜色 aphpi=255&&透明度 lnColor2 = CToBin(Chr(aphpi)+Left(BinToC(uColor2,'4rs'),3),'4s') GdipCreateHatchBrush(11,lnColor1,lnColor2,@brush)&&建立纹理刷子 x=17&&绘制文字的左上角坐标 Y=45 w=0 h=0 GdipGetImageWidth(nImage,@w) GdipGetImageHeight(nImage,@h) lcRectangleF=BinToC(x,'F')+BinToC(Y,'F')+BinToC(w,'F')+BinToC(h,'F') GdipGetImageGraphicsContext (nImage,@Graphics) GdipDrawString(Graphics,tcText,Len(lcText),lnFont,@lcRectangleF,0,brush) *********写红色的200结束********** lcEncoder=0h06F47C55041AD3119A730000F81EF32E &&PNG *lcEncoder=0h00F47C55041AD3119A730000F81EF32E &&BMP *lcEncoder=0h01F47C55041AD3119A730000F81EF32E &&JPG *lcEncoder=0h02F47C55041AD3119A730000F81EF32E &&GIF *lcEncoder=0h05F47C55041AD3119A730000F81EF32E &&TIF *lcEncoder=0h06F47C55041AD3119A730000F81EF32E &&PNG GdipSaveImageToFile (nImage,Strconv("c:\test.png",5) + Chr(0),lcEncoder,0) GdipDeleteFontFamily(lnFontFamily) GdipDeleteFont(lnFont) GdipDisposeImage(nImage) GdipDeleteBrush(brush) GdipDeleteGraphics(Graphics) GdipDeleteStringFormat(lnFormatHandle)
Java学习的正确打开方式
在博主认为,对于入门级学习java的最佳学习方法莫过于视频+博客+书籍+总结,前三者博主将淋漓尽致地挥毫于这篇博客文章中,至于总结在于个人,实际上越到后面你会发现学习的最好方式就是阅读参考官方文档其次就是国内的书籍,博客次之,这又是一个层次了,这里暂时不提后面再谈。博主将为各位入门java保驾护航,各位只管冲鸭!!!上天是公平的,只要不辜负时间,时间自然不会辜负你。 何谓学习?博主所理解的学习,它是一个过程,是一个不断累积、不断沉淀、不断总结、善于传达自己的个人见解以及乐于分享的过程。
程序员必须掌握的核心算法有哪些?
由于我之前一直强调数据结构以及算法学习的重要性,所以就有一些读者经常问我,数据结构与算法应该要学习到哪个程度呢?,说实话,这个问题我不知道要怎么回答你,主要取决于你想学习到哪些程度,不过针对这个问题,我稍微总结一下我学过的算法知识点,以及我觉得值得学习的算法。这些算法与数据结构的学习大多数是零散的,并没有一本把他们全部覆盖的书籍。下面是我觉得值得学习的一些算法以及数据结构,当然,我也会整理一些看过...
大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了
大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、电子书搜索 对于大部分程序员...
linux系列之常用运维命令整理笔录
本博客记录工作中需要的linux运维命令,大学时候开始接触linux,会一些基本操作,可是都没有整理起来,加上是做开发,不做运维,有些命令忘记了,所以现在整理成博客,当然vi,文件操作等就不介绍了,慢慢积累一些其它拓展的命令,博客不定时更新 free -m 其中:m表示兆,也可以用g,注意都要小写 Men:表示物理内存统计 total:表示物理内存总数(total=used+free) use...
比特币原理详解
一、什么是比特币 比特币是一种电子货币,是一种基于密码学的货币,在2008年11月1日由中本聪发表比特币白皮书,文中提出了一种去中心化的电子记账系统,我们平时的电子现金是银行来记账,因为银行的背后是国家信用。去中心化电子记账系统是参与者共同记账。比特币可以防止主权危机、信用风险。其好处不多做赘述,这一层面介绍的文章很多,本文主要从更深层的技术原理角度进行介绍。 二、问题引入 假设现有4个人...
程序员接私活怎样防止做完了不给钱?
首先跟大家说明一点,我们做 IT 类的外包开发,是非标品开发,所以很有可能在开发过程中会有这样那样的需求修改,而这种需求修改很容易造成扯皮,进而影响到费用支付,甚至出现做完了项目收不到钱的情况。 那么,怎么保证自己的薪酬安全呢? 我们在开工前,一定要做好一些证据方面的准备(也就是“讨薪”的理论依据),这其中最重要的就是需求文档和验收标准。一定要让需求方提供这两个文档资料作为开发的基础。之后开发...
网页实现一个简单的音乐播放器(大佬别看。(⊙﹏⊙))
今天闲着无事,就想写点东西。然后听了下歌,就打算写个播放器。 于是乎用h5 audio的加上js简单的播放器完工了。 演示地点演示 html代码如下` music 这个年纪 七月的风 音乐 ` 然后就是css`*{ margin: 0; padding: 0; text-decoration: none; list-...
Python十大装B语法
Python 是一种代表简单思想的语言,其语法相对简单,很容易上手。不过,如果就此小视 Python 语法的精妙和深邃,那就大错特错了。本文精心筛选了最能展现 Python 语法之精妙的十个知识点,并附上详细的实例代码。如能在实战中融会贯通、灵活使用,必将使代码更为精炼、高效,同时也会极大提升代码B格,使之看上去更老练,读起来更优雅。
数据库优化 - SQL优化
以实际SQL入手,带你一步一步走上SQL优化之路!
2019年11月中国大陆编程语言排行榜
2019年11月2日,我统计了某招聘网站,获得有效程序员招聘数据9万条。针对招聘信息,提取编程语言关键字,并统计如下: 编程语言比例 rank pl_ percentage 1 java 33.62% 2 cpp 16.42% 3 c_sharp 12.82% 4 javascript 12.31% 5 python 7.93% 6 go 7.25% 7 p...
通俗易懂地给女朋友讲:线程池的内部原理
餐盘在灯光的照耀下格外晶莹洁白,女朋友拿起红酒杯轻轻地抿了一小口,对我说:“经常听你说线程池,到底线程池到底是个什么原理?”
《奇巧淫技》系列-python!!每天早上八点自动发送天气预报邮件到QQ邮箱
将代码部署服务器,每日早上定时获取到天气数据,并发送到邮箱。 也可以说是一个小型人工智障。 知识可以运用在不同地方,不一定非是天气预报。
经典算法(5)杨辉三角
杨辉三角 是经典算法,这篇博客对它的算法思想进行了讲解,并有完整的代码实现。
英特尔不为人知的 B 面
从 PC 时代至今,众人只知在 CPU、GPU、XPU、制程、工艺等战场中,英特尔在与同行硬件芯片制造商们的竞争中杀出重围,且在不断的成长进化中,成为全球知名的半导体公司。殊不知,在「刚硬」的背后,英特尔「柔性」的软件早已经做到了全方位的支持与支撑,并持续发挥独特的生态价值,推动产业合作共赢。 而对于这一不知人知的 B 面,很多人将其称之为英特尔隐形的翅膀,虽低调,但是影响力却不容小觑。 那么,在...
腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹?
昨天,有网友私信我,说去阿里面试,彻底的被打击到了。问了为什么网上大量使用ThreadLocal的源码都会加上private static?他被难住了,因为他从来都没有考虑过这个问题。无独有偶,今天笔者又发现有网友吐槽了一道腾讯的面试题,我们一起来看看。 腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹? 在互联网职场论坛,一名程序员发帖求助到。二面腾讯,其中一个算法题:64匹...
面试官:你连RESTful都不知道我怎么敢要你?
干货,2019 RESTful最贱实践
刷了几千道算法题,这些我私藏的刷题网站都在这里了!
遥想当年,机缘巧合入了 ACM 的坑,周边巨擘林立,从此过上了"天天被虐似死狗"的生活… 然而我是谁,我可是死狗中的战斗鸡,智力不够那刷题来凑,开始了夜以继日哼哧哼哧刷题的日子,从此"读题与提交齐飞, AC 与 WA 一色 ",我惊喜的发现被题虐既刺激又有快感,那一刻我泪流满面。这么好的事儿作为一个正直的人绝不能自己独享,经过激烈的颅内斗争,我决定把我私藏的十几个 T 的,阿不,十几个刷题网...
为啥国人偏爱Mybatis,而老外喜欢Hibernate/JPA呢?
关于SQL和ORM的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行了一番讨论,感触还是有一些,于是就有了今天这篇文。 声明:本文不会下关于Mybatis和JPA两个持久层框架哪个更好这样的结论。只是摆事实,讲道理,所以,请各位看官勿喷。 一、事件起因 关于Mybatis和JPA孰优孰劣的问题,争论已经很多年了。一直也没有结论,毕竟每个人的喜好和习惯是大不相同的。我也看...
白话阿里巴巴Java开发手册高级篇
不久前,阿里巴巴发布了《阿里巴巴Java开发手册》,总结了阿里巴巴内部实际项目开发过程中开发人员应该遵守的研发流程规范,这些流程规范在一定程度上能够保证最终的项目交付质量,通过在时间中总结模式,并推广给广大开发人员,来避免研发人员在实践中容易犯的错误,确保最终在大规模协作的项目中达成既定目标。 无独有偶,笔者去年在公司里负责升级和制定研发流程、设计模板、设计标准、代码标准等规范,并在实际工作中进行...
SQL-小白最佳入门sql查询一
不要偷偷的查询我的个人资料,即使你再喜欢我,也不要这样,真的不好;
项目中的if else太多了,该怎么重构?
介绍 最近跟着公司的大佬开发了一款IM系统,类似QQ和微信哈,就是聊天软件。我们有一部分业务逻辑是这样的 if (msgType = "文本") { // dosomething } else if(msgType = "图片") { // doshomething } else if(msgType = "视频") { // doshomething } else { // doshom...
Nginx 原理和架构
Nginx 是一个免费的,开源的,高性能的 HTTP 服务器和反向代理,以及 IMAP / POP3 代理服务器。Nginx 以其高性能,稳定性,丰富的功能,简单的配置和低资源消耗而闻名。 Nginx 的整体架构 Nginx 里有一个 master 进程和多个 worker 进程。master 进程并不处理网络请求,主要负责调度工作进程:加载配置、启动工作进程及非停升级。worker 进程负责处...
【图解经典算法题】如何用一行代码解决约瑟夫环问题
约瑟夫环问题算是很经典的题了,估计大家都听说过,然后我就在一次笔试中遇到了,下面我就用 3 种方法来详细讲解一下这道题,最后一种方法学了之后保证让你可以让你装逼。 问题描述:编号为 1-N 的 N 个士兵围坐在一起形成一个圆圈,从编号为 1 的士兵开始依次报数(1,2,3…这样依次报),数到 m 的 士兵会被杀死出列,之后的士兵再从 1 开始报数。直到最后剩下一士兵,求这个士兵的编号。 1、方...
吐血推荐珍藏的Visual Studio Code插件
作为一名Java工程师,由于工作需要,最近一个月一直在写NodeJS,这种经历可以说是一部辛酸史了。好在有神器Visual Studio Code陪伴,让我的这段经历没有更加困难。眼看这段经历要告一段落了,今天就来给大家分享一下我常用的一些VSC的插件。 VSC的插件安装方法很简单,只需要点击左侧最下方的插件栏选项,然后就可以搜索你想要的插件了。 下面我们进入正题 Material Theme ...
如何防止抄袭PCB电路板
目录 1、抄板是什么 2、抄板是否属于侵权 3、如何防止抄板 1、抄板是什么 抄板也叫克隆或仿制,是对设计出来的PCB板进行反向技术研究;目前全新的定义:从狭义上来说,抄板仅指对电子产品电路板PCB文件的提取还原和利用文件进行电路板克隆的过程;从广义上来说,抄板不仅包括对电路板文件提取、电路板克隆、电路板仿制等技术过程,而且包括对电路板文件进行修改(即改板)、对电子产品外形模具进行三维...
“狗屁不通文章生成器”登顶GitHub热榜,分分钟写出万字形式主义大作
一、垃圾文字生成器介绍 最近在浏览GitHub的时候,发现了这样一个骨骼清奇的雷人项目,而且热度还特别高。 项目中文名:狗屁不通文章生成器 项目英文名:BullshitGenerator 根据作者的介绍,他是偶尔需要一些中文文字用于GUI开发时测试文本渲染,因此开发了这个废话生成器。但由于生成的废话实在是太过富于哲理,所以最近已经被小伙伴们给玩坏了。 他的文风可能是这样的: 你发现,...
程序员:我终于知道post和get的区别
是一个老生常谈的话题,然而随着不断的学习,对于以前的认识有很多误区,所以还是需要不断地总结的,学而时习之,不亦说乎
《程序人生》系列-这个程序员只用了20行代码就拿了冠军
你知道的越多,你不知道的越多 点赞再看,养成习惯GitHub上已经开源https://github.com/JavaFamily,有一线大厂面试点脑图,欢迎Star和完善 前言 这一期不算《吊打面试官》系列的,所有没前言我直接开始。 絮叨 本来应该是没有这期的,看过我上期的小伙伴应该是知道的嘛,双十一比较忙嘛,要值班又要去帮忙拍摄年会的视频素材,还得搞个程序员一天的Vlog,还要写BU...
加快推动区块链技术和产业创新发展,2019可信区块链峰会在京召开
11月8日,由中国信息通信研究院、中国通信标准化协会、中国互联网协会、可信区块链推进计划联合主办,科技行者协办的2019可信区块链峰会将在北京悠唐皇冠假日酒店开幕。   区块链技术被认为是继蒸汽机、电力、互联网之后,下一代颠覆性的核心技术。如果说蒸汽机释放了人类的生产力,电力解决了人类基本的生活需求,互联网彻底改变了信息传递的方式,区块链作为构造信任的技术有重要的价值。   1...
Python 植物大战僵尸代码实现(2):植物卡片选择和种植
这篇文章要介绍的是: - 上方植物卡片栏的实现。 - 点击植物卡片,鼠标切换为植物图片。 - 鼠标移动时,判断当前在哪个方格中,并显示半透明的植物作为提示。
相关热词 c# 二进制截断字符串 c#实现窗体设计器 c#检测是否为微信 c# plc s1200 c#里氏转换原则 c# 主界面 c# do loop c#存为组套 模板 c# 停掉协程 c# rgb 读取图片
立即提问