秋·风

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
lazarus 生成的程序在linux arm64(银河麒麟和raspberry)使用unidac控件(数据库postgresql),采用以下代码保存日期字段时,提示“无效UTF8的编码字节顺序 ”,百思不解这奇怪的问题,后来发现DateTimeToStr转换出现的日期格式和windows的不一样。
procedure TForm1.Button2Click(Sender: TObject);
begin
  UniQuery1.Edit;
  UniQuery1.FieldByName('prdate').AsDateTime:=now;
  UniQuery1.Post;
end;

post时提示出错:

  Linux下默认的日期格式:

 尝试将lazarus的日期格式改为与windows的一样:

var fs:TFormatSettings;
begin
  fs.DateSeparator:='-';
  fs.TimeSeparator:=':';
  fs.ShortDateFormat:='yyyy-mm-dd';
  fs.LongDateFormat:='yyyy-mm-dd';
  fs.LongTimeFormat:='hh:NN:ss';
  fs.ShortTimeFormat:='hh:NN:ss';
  DefaultFormatSettings:=fs;
end; 
//2022-04-28发现使用以上方法在windows下float字段会只显示整数的Bug
  //使用以下方法设置后日期、float在windows、linux都正常 2022.04.28
DefaultFormatSettings.ShortTimeFormat:='yyyy-mm-dd'; DefaultFormatSettings.ShortTimeFormat:='hh:NN:ss'; DefaultFormatSettings.LongDateFormat:='yyyy-mm-dd'; DefaultFormatSettings.LongTimeFormat:='hh:NN:ss'; DefaultFormatSettings.DateSeparator:='-'; DefaultFormatSettings.TimeSeparator:=':';

 

改变日期格式后,unidac 日期字段保存也正常了,说明我遇到的问题是日期格式引起的,如你使用过程也遇到同样问题可偿试使用这个方法说不定能解决。 
还有另一种解决方法就是采用SQL Update,也能正常更新日期字段:

  UniQuery1.SQL.Text:='update power set prdate='+chr(39)+lrdatetimetostr(now)+chr(39)+' where username=''1''';
  UniQuery1.ExecSQL;

 

posted on 2022-04-22 16:29  秋·风  阅读(292)  评论(0编辑  收藏  举报