2015年03月_brucewata

原创 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 450

原创 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 742

原创使用存储过程参数传递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 907

原创 delphiXE TSQLConnection 出现“尚未调用coinitialize”错误

delphiXE TSQLConnection 连接至少是sqlserver2008，需要连接其他数据库应该也需要安装要求的最低版本才行，此控件包括TAdoconnection不能放到webmodule中，要放到单独的datamodule或窗口中，否则会出现“尚未调用coinitialize”错误。

2015-03-05 11:13:51 602

原创 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 1736

原创 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 781

原创 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 410

原创 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 552

原创 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 596

原创 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 666

brucewata的专栏