2013年10月_郁闷的坦然

原创 xe5 JSON

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,DBXJSON;type TF

2013-10-30 11:45:31 1692 1

原创 net(c#)验证码

前面发表过一个验证码，但感觉不好，今天在发表一个，带噪点的，看起来更专业一点。前台CheckCode.aspx CheckCode 后台CheckCode.aspx.csus

2013-10-26 12:00:22 680

原创 XE5 FTPSERVER

unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdContext, IdFTPServer

2013-10-24 14:34:01 1988 1

原创 XE5技巧

一、手机快捷方式显示中文名称 project->options->Version Info-label(改成需要显示的中文名即可），但是需要安装到安卓手机才可以（IOS的没有试过）二、使用Sqllite存储中文 SqlLite中，字段类型要设置为nvarchar，保存时，有两种方式 1）用Post时，对中文的字段要进行UTF8转换先用一个string变

2013-10-17 18:19:35 1455

原创 XE5 JSON与Delphi Object的互换

unit Unit2;interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, DBXJSON, DBXJSON

2013-10-16 18:47:18 4985

原创 DELPHI 构造函数

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = c

2013-10-11 14:39:44 1620

原创淘宝登录及多线程同步

using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;using APITest;u

2013-10-10 11:40:18 1128

原创 delphi 中文urlencode的简单办法

userHttpapp; //...HttpEncode(AnsiToUtf8('中文'));

2013-10-09 16:48:29 6645

原创获取电池电量代码

uses AndroidAPI.JNI.GraphicsContentViewText, AndroidAPI.JNI.JavaTypes, AndroidAPI.JNI.OS; function BatteryPercent(const aContext: JContext): Integer; var filter: JIntentFilter;

2013-10-07 16:28:44 4605 1

坦然