2011年1月4日
json传输对象
摘要： The data types allowed to be transfered in DataSnap 2009 is limited to the dbExpress data types, but in DataSnap 2010 part of Delphi 2010 you are allowed to transfer any kind of object.Let’s define the object we would like to transfer, class TCustomerunit Customer;interfaceuses DBXJSON, DBXJSONRefle 阅读全文
posted @ 2011-01-04 15:23 delphi中间件 阅读(482) 评论(0) 推荐(0)
创建自己的数据库
摘要： typeTMember = recordName : string[50];eMail : string[30];Posts : LongInt;end;var Members : array[1..50] of TMember;var F : file of TMember;write datavarF : file of TMember;i : integer;beginAssignFile(F,'members.dat') ;Rewrite(F) ;tryfor j:= 1 to 50 doWrite (F, Members[j]) ;finallyCloseFile(F 阅读全文
posted @ 2011-01-04 14:58 delphi中间件 阅读(259) 评论(0) 推荐(0)
编码转换 unicode gbk big5
摘要： function UnicodeEncode(Str:string;CodePage:integer):WideString;var Len:integer;begin Len:=Length(Str)+1; SetLength(Result,Len); Len:=MultiByteToWideChar(CodePage,0,PChar(Str),-1,PWideChar(Result),Len); SetLength(Result,Len-1); //end is #0end;function UnicodeDecode(Str:WideString;CodePage:integer):st 阅读全文
posted @ 2011-01-04 14:30 delphi中间件 阅读(638) 评论(0) 推荐(0)