- 博客(28)
- 收藏
- 关注
RSS订阅原创 dos批处理获取文件版本号
@echo off&setlocal ENABLEDELAYEDEXPANSIONrem &setlocal ENABLEDELAYEDEXPANSION开启变量延迟，保证在循环中变量为全局，并使用!VAR!方式访问echo [VERSION]set /a XCOUNT=0call :mainloopgoto :eofrem 主程序循环函数:mainloopfor /f "skip=1" %%a in ('wmic datafile where name^="c:\\
2021-03-13 11:40:57
637
原创 vbs发送http请求
文件a.js：var m_http = new ActiveXObject("Msxml2.ServerXMLHTTP");m_http.open("GET", "http://www.baidu.com" , false);m_http.send("");WScript.StdOut.WriteLine(m_http.responseText);c:\>cscript a.js
2021-03-13 11:36:07
1791
原创 dos批处理，使用子程序实现for循环break
@echo off&setlocal enabledelayedexpansionrem 使用子程序实现for循环breakrem 使用call调用子程序loop，exit /b相当于子程序return，可以带参数如：exit /b 0，则子程序返回0call :mainLooppause&goto :eof:mainLoopfor /l %%a in (1,1,10) do ( echo %%a set /a r=%%a%%5 ...
2021-03-13 11:25:10
423
原创 c实现AES 128位加解密
//对应java的SecureRandom随机密钥bool sha1prng_key(string str,char *out){unsigned char result[20];SHA1((unsigned char*)str.c_str(), strlen(str.c_str()), (unsigned char*)&result);SHA1((unsigned char*)&result, 20, (unsigned char*)&result);for (int
2020-07-02 14:50:19
858
原创 神经网络如何根据输出信号判断样本类别？
人类认识、熟悉某些事物，就是一个分类的过程，比如认识一个人，包括：不同的照片、本人形象（变化的身高、体重、发型、服装）等，图像信息通过眼睛进入大脑，不断的更新记忆，形成对该人的一个确定印象模式，从而再次见到时立即能够识别出来。 神经网络的目的是使用输出的数据来推测输入样本的类别，所以神经网络训练的数据也要对特定事物图像进行分类，形成一个分类数据集合，可以定义为输入样本空间，相应的也有一个训练标签...
2020-02-24 14:05:03
869
原创 树莓派 RGB led wata
某宝淘到RGB Led几只，一看，有点傻眼，没有任何标志，4根引脚，长短不一，只写了共阳，查了一些资料，说是有一根是GND（低电平），其他的是GPIO（控制高低电平）输入，运气爆棚，一次测试成功，最短一根当做GND，瞬间点亮，心情大好（之前测试双74HC595驱动芯片共阳4位段选数码管一直失败）。代码参考coolwriter大神文章：https://blog.csdn.net/coolwriter...
2019-03-02 22:26:34
245
原创 树莓派+温控+风扇+wata
购进树莓派3b+，把玩开始，安装centos版本，速度较慢，卸载之，安装了官方提供的debian arm版，运行效果不错，陆续在某宝上购进J13009三极管（做开关用），管脚说明，面对有文字说明的一面，从左到右：B C E，1k电容（下拉电阻，保护用），杜邦线若干（公对公、母对母、公对母），面包板，扩展board，够用。接线顺序一定要正确：B（基极）连接下拉电阻、GPIO18（可以任选其他控制口...
2019-03-02 15:13:06
1968
原创 python3.6+django+uwsgi+nginx+wata
参考一些前辈文章，不一一列举，在此感谢！1单独安装python3.6，不要动系统中原来的python 使用make altinstall2安装Djangocd /user/local/python/bin./pip3.6 install django3创建Django项目mkdir /data进入/data文件夹，创建名为“helloworld”的项目cd /dat...
2019-02-20 15:04:31
207
原创 delphi7 ide扩展，类似vc6，通过编译指令控制多项目工程编译输出
参考《Delphi Open Tools Api實例研究（一）》http://www.xuebuyuan.com/zh-tw/1275460.html，在此特别表示感谢！！！//本单元文件，根据compile.inc编译指令文件中的不同编译指令，同时读取工程配置config.ini文件，一次编译输出多个项目工程结果。compile.inc{$UNDEF NoFinger}{
2017-11-20 11:47:23
277
原创 UniDAC55在DelphiXE7中的使用说明
UniDAC55在DelphiXE7中的使用说明1、执行\UniDAC55src\Source\Delphi21\Make.bat。2、完成后在目录\UniDAC55src\Source\Delphi21\Make.bat。 2、完成后在目录\UniDAC55src\Bin\Delphi21\Win64\和$\UniDAC55src\Bin\Delphi21\Win32\中生成bpl。2、把$\
2015-05-23 08:06:05
2553
原创 欢迎使用CSDN-markdown编辑器
欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来，用它写博客，将会带来全新的体验哦：Markdown和扩展Markdown简洁的语法代码块高亮图片链接和图片上传LaTex数学公式UML序列图和流程图离线写博客导入导出Markdown文件丰富的快捷键快捷键加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl
2015-05-23 08:03:13
487
原创 firefox下jpg转base64编码
//参考了某位大虾的文章，暂时找不到源址，请见谅，分享快乐！function GetBase64_FF(photoFileName) {var req = new XMLHttpRequest();//FireFox、Opera等浏览器支持的创建方式req.open('GET', photoFileName, false);req.overrideMimeType('text/
2015-03-11 16:56:17
434
原创 ie下jpg转base64编码
function GetBase64_IE(photoFileName) {var xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");//IE浏览器支持的创建方式xmlHttp.open("GET", photoFileName, false);//xmlHttp.setRequestHeader("Content-Type", "t
2015-03-11 16:52:32
716
原创 使用存储过程参数传递BLOB字段时，大小不能超过32K
使用存储过程参数传递BLOB字段时，大小不能超过32K，如果要传送大数据，通常的做法是使用sql语句参数传递的方式：dmmain.SQLQuery1.SQL.Add('insert into id_pic_000(sno,pic) values(''1234'',:vpic)');dmmain.SQLQuery1.ParamByName('vpic').asblob := _arr; //
2015-03-05 11:16:19
879
原创 delphiXE TSQLConnection 出现“尚未调用coinitialize”错误
delphiXE TSQLConnection 连接至少是sqlserver2008，需要连接其他数据库应该也需要安装要求的最低版本才行，此控件包括TAdoconnection不能放到webmodule中，要放到单独的datamodule或窗口中，否则会出现“尚未调用coinitialize”错误。
2015-03-05 11:13:51
574
原创 delphiXE webbroker 开发,解决 Response 返回中文乱码问题
procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);beginResponse.ContentType := 'text/html;charset=GB2312'; //解决
2015-03-05 11:12:12
1709
原创 TStrings可以存储L(Label)V(Value)形式的数据，用NameValueSeparator属性设置分隔符
Var A:TStrings;BeginA:=TStringList;A.NameValueSeparator :=’=’;A.Add('username=user');A.Add('password=pwd'); //修改数据，如果键值不存在则自动新增一条记录A.values['username']:='ur'; //修改A.values['user_na
2015-03-05 11:10:35
761
原创 mac ansi99 delphi版
class function TTools.softmac_ansi99(pInitData: pbyte; pInBuf: pbyte; nInLen: integer; pKey: pbyte; pOutInfo: pbyte): boolean;var indata: array [0 .. 33 - 1] of byte; outdata: array [0 .. 3
2015-03-05 11:04:39
397
原创 mac ansi99 js版
var softmac_ansi99 = function(pInitData, pInBuf, nInLen, pKey) { //var buf = pInBuf.slice(0); var nlen = 0; if (nInLen % 8 == 0) nlen = nInLen; else nlen = (Math.floor(nInLen / 8) + 1) * 8
2015-03-05 11:03:12
533
原创 mac ansi99 算法 c#版
public static byte[] CalcMac_ansi99(byte[] pInitiaData, byte[] src,int inLen, byte[] key) { var mac = new byte[8]; try { var desRet = n
2015-03-05 11:01:50
579
原创 delphiXE 使用json对象时只释放容器对象即可，子对象不用释放，释放子对象会出现异常。
var aa: TJsonArray; bb, cc: TJSONObject; i, j, k: integer;begin //for i := 0 to 1000 do begin aa := TJsonArray.Create; try for j := 0 to 100 do begin
2015-03-05 11:00:07
633
原创 Css 图片和文字的混排
无标题文档1#hello_img { display: block; width: 256px; height: 256px; background: transparent url(Font_File_Alt.png) no-repeat;}#hello_img:hover { //BACKGROUND-image: url(Da
2012-03-26 09:29:23
1210
原创 Integrated Page Mode (IPM) delphiXE
Integrated Page Mode (IPM) 是delphiXE新特性，在网页中引用自定义的变量使用{%var.Name%}这种方式，{%User.Name%}定义标签Name
2011-07-07 08:48:48
291
原创 C++控制台类
class CConsole{ public: CConsole() { AllocConsole(); //重定向标准输出 freopen("CONOUT$","w+t",stdout); //重定向标准
2011-07-07 08:43:19
630
原创 windows下的select延时
在linux和windows上使用select略有不同，linux上可以使用select(0,NULL,NULL,NULL,&tv)就能达到效果，而windows上严格些，如下：// selectDelay.cpp : Defines the entry point for the console application.//#include "stdafx.h"#includ
2011-07-06 17:03:23
1587
原创 网页嵌入字体
/*使用工具生成eot文件给ie使用*/ttf2eot.exe simli.ttf simli.eot/*嵌入网页字体，兼容ie和ff，首先定义字体，然后使用字体名称引用*//*IE*/@font-face {font-family: 隶书;font-style: normal;font-weight: 700;src: url(simli.eot);}
2011-01-21 16:54:00
532
原创 intraweb控件命名
控件的命名一定要谨慎，太短了容易冲突，有可能出现意想不到情况，最好使用：窗口名控件名，如：frmMainIwgdRegion。
2011-01-14 10:20:00
424
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人