加载中…
个人资料
红鱼儿
红鱼儿
  • 博客等级:
  • 博客积分:0
  • 博客访问:948,676
  • 关注人气:224
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
评论
加载中…
留言
加载中…
访客
加载中…
好友
加载中…
博文
(2018-02-15 06:05)
标签:

杂谈

我以为 ,情人,应该就是有情之人,比常人的爱情更多一份温婉和浪漫。如今的我,把这两个字赋予了不同的意义。

蒹葭苍苍,白露为霜。所谓伊人,在水一方。即使远在他乡,心却不曾远离。人的一生,有多少人曾爱你青春欢唱的时辰,爱慕你的美丽 ,爱你虔诚的灵魂,爱你苍老的脸上的皱纹……这一生,从慒懂青春到如今鬂角爬上白发,心底依然珍藏彼此的眷恋和牵挂,没有什么比这份爱更醇香更厚重,没有什么比在懂得珍惜的时间再次拥有来的更合时宜。

在这美好的时刻,想着曾经握着我温暖的双手的你的手,看着我温柔的双眼的你的眼,和心底里彼此永远无法放弃的我们的爱和坚守,如今才终于明白,这才是彼此的全部!

也许此生 ,我没有机会陪伴你的朝朝暮暮,但这份真情将时刻伴你左右,直到永恒……尽管走失了太久的时光,可贵的是这份爱未曾改变 ,尽管现实的残酷我们无力更改,

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2018-02-04 12:16)
分类: 乱其八糟
嘿,电影到了结局
可是你的生活 还依然在继续
你收起笑容,握紧双拳要回到
这复杂世界去
来吧,为你唱首歌
忘掉心酸的事
虽然只是暂时
其实你只是 假装成熟的孩子
这嘈杂舞台上 演出人头地的故事
也许有人喜欢你 追逐成功的姿势
也许会有人赞美你咬紧牙关的支持
可是我却最爱你 在演出结束时
狼狈又孤独的样子

有一天 天使会出现
有闪光的灵魂
温暖你的一生

你爱这电影
在黑暗里泪流不止
这落满灰尘的时代
讲一个干净的故事
也许有人喜欢你 追逐成功的姿势
也许会有人赞美你咬紧牙关的支持
可是我却最爱你 在演出结束时
狼狈又孤独的样子
孤独的样子
你孤独的样子

嘿,电影到了结局
可是你的生活 还依然在继续
你收起笑容,握紧双拳要回到
这复杂世界去
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

delphi

分类: kbmMW
REST easy with kbmMW #9 – Database 4 – Data augmentation and XML


这篇博文将重点介绍一种使用ORM扩充数据库返回数据的方法,将其作为格式良好的XML结果提供给REST客户端,同时,尽可能使用最少的代码。

kbmMW的ORM非常适合从基于类的数​​据库获取数据。

有时我们希望在将数据返回给客户端之前用额外的数据来扩充这个类。对此,我们可以使用virtual table 属性来实现,例如:我们有一个TPerson实体类,他根据数据库的person表来定义的实体类。

  [kbmMW_Table('name:person')]
  TPerson = class
  private
     FID:kbmMWNullable;
     FName:kbmMWNullable;
     FCompanyID:kbmMWNullable;
  public
     [kbmMW_Field('name:id, primary:true, generator:shortGUID',f
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2018-01-01 09:15)
分类: 乱其八糟

夜空中最亮的星能否听清

那仰望的人心底的孤独和叹息

Oh夜空中最亮的星能否记起

曾与我同行消失在风里的身影

我祈祷拥有一颗透明的心灵

和会流泪的眼睛

给我再去相信的勇气

Oh越过谎言去拥抱你

每当我找不到存在的意义

每当我迷失在黑夜里

Oh夜空中最亮的星

Oh请指引我靠近你

夜空中最亮的星是否在意

是等太阳升起还是意外先来临

Oh夜空中最亮的星是否在意

是等太阳升起还是意外先来临

我宁愿所有痛苦都留在心里

也不愿忘记你的眼睛

给我再去相信的勇气

Oh越过谎言去拥抱你

每当我找不到存在的意义

每当我迷失在黑夜里

Oh夜空中最亮的星

Oh请照亮我前行

我祈祷拥有一颗透明的心灵

和会流泪的眼睛

给我再去相信的勇气

Oh越过谎言去拥抱你

每当我找不到存在的意义

每当我迷失在黑夜里

Oh夜空中最亮的星

Oh请照亮我前行耶

夜空中最亮的星能否听清

那仰望的人心底的孤独和叹息

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
分类: kbmMW


群友遇到这个问题,在使用kbmMWTCPIPIndyClientTransport,在Android平台上会产生这个错误,然后不能再继续执行查询了。

最后的解决方法,在ClientTransport.OnExecption事件处理:
procedure TMainForm.kbmMWTCPIPIndyClientTransport1Exception(Sender: TObject;
  OldState: TkbmMWRequestStates; var NewState: TkbmMWRequestStates;
  E: Exception);
begin
  if e.Message.IndexOf('104')=0 then
  begin
    NewState:=TkbmMWRequestStates.rsReconnect;
  end;
end;
当遇到这个问题,吃了他,重来!

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2017-12-21 00:32)
标签:

杂谈

生命的阡陌里,总会有那么一个人,藏在心中最柔软的地方,不想拾起,也不愿放下。如若,所有的遇见都恰如其时,你我是否就不会走散,如若,所有的情深都不言离殇,你我可否就不会再会有秋叶阑珊的感伤?

谁在檐下等一场花开,将秋水望穿,谁在窗前看一场雨,让心事嫣然,喜欢,坐在回忆里写诗,任笔尖轻触的地方,泊满了你的影子。我多想,你不只是住在记忆里,而是我世界中的唯一,我多想,你没有转身离去,而是和我一起感受这尘世的美和善意。

或许,生命就是一场轮回,走散的人终会重逢,那么,我愿意站在岁月的路口等你,等你等到年华老去,你我还能相依着,我字里酿酒,你笑看春山。
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2017-12-13 22:26)
标签:

delphi

分类: Delphi10.2
TEdit有PromptText属性,用来显示一个提示,又不影响输入。TMemo没有,在官方提了需求也没响应。实在没办法,自己加个。话不多说,上代码:

type
  TForm6 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Memo1ApplyStyleLookup(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    FPrompt:TText;//用他来显示PromptText文字
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.fmx}

procedure TForm6.Button1Click(Sender: TObject);
begin
   FPrompt.Text:='输入内容....';//显示提示文字
end;

procedure TForm6.Button2Click(Sender: TObject);
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

delphi

分类: Delphi10.2
昨天,官方漏出来下载地址:
http://altd.embarcadero.com/download/radstudio/10.2/delphicbuilder10_2_2.iso
10.2.2 修正了 10.2 开始引入的 Android 渲染性能问题,可喜可贺
注册机可以到群209321818下载

这两天一直关注QC的变化,本版相对于10.2.1及10.2.0来说,纯是bug修正版本,官方这两天一直在Close bug,有linux方面的,Rest方面的,还有就是Android方面的。按QDAC作者说法,解决了著名的18799bug,那android上最严重的问题解决后,是时候考虑升级到该版本!我是准备升级了...

lsuper大神的安装版来了:
Embarcadero.Delphi.10.2.2.v25.0.28979.1978.Lite.v14.2
2017.12.14 - v14.2
1、根据 25.0.28979.1978 原版制作
2、集成 elseif、unis、x-force、cj
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2017-12-10 08:26)
分类: kbmMW
新版的kbmMW支持将对象转换成各种格式的内容,如json,xml等。

声明TTest类:
  [kbmMW_Root('test', [mwrfIncludeOnlyTagged])]
  TTest = class
  private
    FMyFile: TKbmMWMemoryStream;
    FMyFileName: string;
    procedure SetMyFile(const Value: TKbmMWMemoryStream);
    procedure SetMyFileName(const Value: string);
  public
    constructor Create;
    destructor Destroy; override;
    [kbmMW_Element('file_name')]
    property MyFileName: string read FMyFileName write SetMyFileName;
    [kbmMW_Element('file')]
    property MyFile: TKbmMWMemoryStream read FMyFile write SetMyFile;
  end;

将这个对象转换成Json串:
procedure TForm1.btnToJsonClick(Sender: TObject);
var
  InputStream: TStri
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
  

新浪BLOG意见反馈留言板 不良信息反馈 电话:4006900000 提示音后按1键(按当地市话标准计费) 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

新浪公司 版权所有