龙七

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2011年7月12日

摘要: 一:新建DLLView Code library TestMDIDll;{ Important note about DLL memory management: ShareMem must be thefirst unit in your library's USES clause AND your project's (selectProject-View Source) USES clause if your DLL exports any procedures orfunctions that pass strings as parameters or function 阅读全文
posted @ 2011-07-12 17:30 龙七 阅读(432) 评论(0) 推荐(0) 编辑

摘要: SQL时间格式转换:View Code 年月日SELECT CONVERT(varchar, GETDATE(), 102) AS DateTime--2011.07.12SELECT CONVERT(varchar, GETDATE(), 111) AS DateTime--2011/07/12SELECT CONVERT(varchar(10), GETDATE(), 120) AS DateTime--2011-07-12SELECT CONVERT(varchar, GETDATE(), 112) AS DateTime--20110712SELECT CONVERT(varchar, 阅读全文
posted @ 2011-07-12 17:17 龙七 阅读(439) 评论(0) 推荐(0) 编辑

2011年7月11日

摘要: 1 连接远程服务器procedure Connect(AAutoLogin: boolean; const ATimeout: Integer);2 改变目录procedure ChangeDir(const ADirName: string);3 下载procedure Get(const ASourceFile: string; ADest: TStream; AResume: Boolean); overload;procedure Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: b 阅读全文
posted @ 2011-07-11 20:13 龙七 阅读(2225) 评论(0) 推荐(1) 编辑

摘要: 假设有张学生成绩表(tb)如下:Name Subject Result张三 语文 74张三 数学 83张三 物理 93李四 语文 74李四 数学 84李四 物理 94想变成 姓名 语文 数学 物理 ---------- ----------- ----------- ----------- 李四 74 84 94张三 74 83 93SQL 语句如下:create table tb( Name varchar(10) , Subject varchar(10) , Result int)insert into tb(Name , Subject , Result) values('张三 阅读全文
posted @ 2011-07-11 20:09 龙七 阅读(596) 评论(2) 推荐(0) 编辑

摘要: 首先下载SuperObject 代码包官网 http://www.progdigy.com/?page_id=6下载地址 http://code.google.com/p/superobject/downloads/list官方论坛 http://www.progdigy.com/forums/viewforum.php?f=5好,开始例子var obj: ISuperObject;begin obj := SO('{"foo": true}'); //创建对象 memo1.lines.add(obj.asobject.s['foo']);/ 阅读全文
posted @ 2011-07-11 20:04 龙七 阅读(1733) 评论(0) 推荐(0) 编辑

摘要: 使用串口SPCOMM接收数据的时候0x11和0x13无法接受,从时间间隔上看来可以接收,但是无法显示。网上查错误得:------------------------------------------------------------------------OutX_XonXOffFlow/InX_XonXoffFlow:这个属性是指进行发送/接收时的软件握手标志,两个握手信号之间的数据被认为是通讯数据,收到握手信号后,通讯就中止了。FOutx_XonXoffFlow := True;FInx_XonXoffFlow := True;XOffChar/XOnChar:这是指握手的字节,默认的 阅读全文
posted @ 2011-07-11 20:01 龙七 阅读(11956) 评论(2) 推荐(0) 编辑

摘要: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 =class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender 阅读全文
posted @ 2011-07-11 17:20 龙七 阅读(606) 评论(0) 推荐(0) 编辑

摘要: 构建一个Json的常用方法:从字符串、从文件、从流unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 =class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Send 阅读全文
posted @ 2011-07-11 17:16 龙七 阅读(590) 评论(0) 推荐(0) 编辑

摘要: 一:现在有Json数据{"message":"","data":{"name": "张三", /* 注释 */"age": 33,"sex": true,"weight": 123.456,"tel": ["86-1111111", "86-2222222"],"addresses":{"address":"A省B市" 阅读全文
posted @ 2011-07-11 17:11 龙七 阅读(807) 评论(0) 推荐(0) 编辑

摘要: JSON(JavaScript Object Notation) 类似与 XML; 虽始于 JavaScript, 但被多种语言支持, 它也成了 Delphi 2009 的新功能之一.DlephiX版本superobject类下载地址:http://code.google.com/p/superobject/downloads/list假如有一段 XML:<id>2</id><name>张三</name><age>99</age>用 json 可以表示为:{"id":2, "name" 阅读全文
posted @ 2011-07-11 16:36 龙七 阅读(389) 评论(0) 推荐(0) 编辑