加载中…
个人资料
红鱼儿
红鱼儿
  • 博客等级:
  • 博客积分:0
  • 博客访问:742,505
  • 关注人气:196
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
评论
加载中…
留言
加载中…
访客
加载中…
好友
加载中…
博文
标签:

it

delphi

分类: Delphi10.1
www.applyingcode.com,使用OS原生API画图的技术网站,Aone已经用他完成了在Android及ios上的精美画图,感兴趣也去看看.

Petra是什么?

Petra将草图绘制算法生成为Delphi(和Oxygene)绘图代码,
生成的代码可以使用底层的2D API或FireMonkey。
除了Windows(通过FMX),Petra可以生成iOS,macOS和Android的原生api代码。

为什么要使用Petra,有哪些优点:
  • 减少您最终应用程式中捆绑的图片数量
  • 没有更多的1x,2x和3x噩梦,图纸是独立的分辨率和可扩展性
  • 在iOS,MacOS和Android上快速执行原生2D绘图
  • UI元素的快速原型,Petra帮助你加快你的初始代码
  • 更新您的绘图,而不需要再次手动编写它们的开销
  • 为您的应用程序构建样式和主题
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

delphi

分类: Delphi10.1
FMX的Bitmap要存成jpg格式的文件或流,还是挺麻烦的事。费了半天劲才找到方法,直接上代码了:

1.将Bitmap以jpg格式写入TField.
procedure BitmapToField(aBitmap: TBitmap; aField: TField);
var
  MS: TMemoryStream;
  Surf: TBitmapSurface;
begin
  if aBitmap.Width=0 then Exit;
  
  MS := TMemoryStream.Create;
  Surf:=TBitmapSurface.Create;
  try
    Surf.Assign(aBitmap);
    TBitmapCodecManager.SaveToStream(MS,Surf,'.png');//这里换成.png,就变成png格式了。
    MS.Position := 0;
    TBlobField(aField).LoadFromStream(MS);
  finally
    MS.DisposeOf;
    Surf.DisposeOf;
  end;
end;
2.从字段读取Bitmap.
procedure FieldToBitmap(aField: TFiel
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

delphi

分类: Delphi10.1

解决如果出现HTTP/1.1 403 Session has expired,datasnap不能重连功能,刚开始如果客户端正常连接中间层,然后中间层杀掉 ,客户端由于是用老的session去连接中间层,会被重新启动的中间层认为session过期。所以一直是返回raise,无限期不能重连。
解决方案,出现session错误时,把sessionid清空。

我发现问题跟tidhttp一毛钱关系没有,说明indy代码还是很不错的啊:)只是datasnap的代码未考虑异常。
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
分类: Delphi10.1
这个必须得转,感谢Aone无私奉献!以下为原文

问题:FMX 在移动平台的文字显示并非由该平台的原生 API 来显示,而是由 FMX.TextLayout.GPU 来处理,也许是官方没留意到中文字符的问题,造成在中英文混排折行时,有些问题。

修正:这个修正适用在任何文字显示的函数及控件上,如:TText, TLabel, DrawText....等。

适用:Android & iOS 平台

修正 1:

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

delphi

分类: Delphi10.1
要求密码长度为6-16位,由大小写字母与数字组成,可以是全数字或全字母。
delphi berin update2下测试通过。

function IsValidPassWord(s: string): Boolean;
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create;
  try
    reg.Subject := s;
    reg.RegEx:='^([a-z]|[A-Z]|\d){6,16}$';
    result := reg.Match;
  finally
    reg.Free;
  end;
end;
阅读  ┆ 转载 ┆ 收藏 
分类: Delphi10.1
开发过程中,如遇到android app启动就闪退,不要急,直接进入调试模式运行app,就会取得出错的原因。

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

分类: Delphi10.1

台湾李维老师发表的官方blog上的,以下为原文:

MetricAudits2个功能早已经存在Delphi很多年了, MetricAudits

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

delphi

分类: Delphi10.1
双击一个变量或者要查找的内容,会自动选择,F3就开始查找了,再按一次F3,查找下一个。


阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
分类: Delphi10.1
头几天,看到有人提出这个问题,https://quality.embarcadero.com/browse/RSP-16639,说是使用ListView的OnItemClickEx事件时,如果在这个事件中产生异常,则会引起Android平台下的应用闪退,在Win32及Ios下则无此问题,能正常显示异常信息。如果异常放到ItemClick事件中,也不会闪退。
今天测试自己的应用,也遇到了此问题,暂时把逻辑由ItemClickEx换到ItemClick中调用。等官方解决了。

后记:
下面这两个也是类似的问题,引起app闪退。

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2017-01-09 07:32)
标签:

kbmmw

分类: Delphi10.1
即将到来的kbmMW新版本,将带来一种新的Service,叫kbmMW Smart Services,下面内容转自官方新闻组,来先睹为快,什么是Smart Services:

基于属性的自动注册的服务端代码。下面的例子演示了一个Smart Service,发布了三个方法:分别是EchoString,EchoReversedString与AddNumbers.这些方法带了一些参数,包括智能参数,象客户端的身份值。

  [kbmMW_Service('SMARTDEMO')]
  TkbmMWCustomService2 = class(TkbmMWCustomSmartService)
  private
  protected
  public
     [kbmMW_Method]
     function EchoString(const AString:string):string;

     [kbmMW_Method('EchoReversedString')]
     function ReverseString(const AString:string;
                         [kbmMW_Arg(mwatClientIdentity)]
    &
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
  

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

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

新浪公司 版权所有