作者归档:月夜

阅读时眼睛疲劳怎么办,或许可以让设备朗读给我们听

随着年龄的增长,眼睛在阅读东西的时候可能就有些费劲,这时候对于电子屏幕上要读的文字可能就有通过听来获取的需要。前阵子一个朋友向我询问,问这种情况有没有好的解决方法,在大概聊了一下他的使用场景之后,我给他提供了一个解决办法,基本上解决了他的日常使用。

后来我又想了想,这就是在某种场景下,有将文字转成语音作为输入的需求。也就是将信息获取的方式由视觉系统转变为听觉系统,除了视障者之外,视觉正常的人在日常很多场景下也是有这个需求的,比如在通勤的路上、在开车的途中、在家务劳作的时候等等。

对于这方面的需求,目前一方面有专门做音频内容的产品,另一方面是很早就有的将文字转换成语音进行朗读的产品,它基于文字转语音(Text-To-Speech)这个系统,属于语音合成这个范畴,我最早接触的是微软开发的,如果没记错的话在 Windows 95 系统上就有,记忆中当时听来那是相当的生硬,早期的开发中在语音播报的场景中有一些应用。

专门基于音频内容的产品其音频内容是固定的,取决于音频内容本身和你的选择,如收音机、播客或使用 U 盘拷贝的音频内容,而这些音频内容一般由真人操作,实时或提前制作好供使用者选择。而文字转语音就比较个性化了,取决于你想让它读什么文字材料,然后针对这个文字材料进行实时的语音合成,通过声音设备输出,这就像直播中的主持人,只不过真人换成了机器设备。

早些年听机器朗读特别的生硬,基本上丝毫感受不到感情,近几年倒是没有尝试,趁着这次朋友的询问机会,最近断断续续的在各个地方再次做了一番尝试,针对它们提供的服务及其效果,在此做个记录。

我尝试的设备主要有手机和电脑,这也是目前大部分人日常使用的设备。手机两部,分别是 iPhone 和华为荣耀,两台笔记本电脑,分别是 Macbook Pro 和 Windows 笔记本,这也是我自己日常使用的设备。

1. 手机

1.1 利用手机自带功能
iPhone

在 iPhone 中,如要进行语音阅读屏幕文字,可通过 设置 – 辅助功能 – 朗读内容 进行设置,有两个选择,操作如图简洁明了,如下图所示。

当打开朗读所选项和朗读屏幕这两项功能后,如下图所示,即可按照其下方的提示操作进行内容的朗读,比如在选择文本时,会出现「朗读」按钮,双指从屏幕顶部向下轻扫就开始屏幕内容朗读了,我分别进行了尝试,比以前好很多,可能还有不小的提升空间,但听起来已经可以接受了。打开这两项功能后,进一步会出现「语音控制器」和「高亮显示内容」两个选项,打开前者会在屏幕上浮动一个小按钮,可在任何想要朗读的地方使用这个按钮来操作。高亮显示内容打开后则在朗读的时候以高亮的方式告诉你当前读到哪里了。

整体来讲 iPhone 上的朗读操作起来还是比较容易的。特别提一句,在声音中可以选择不同的语言和当下语言中的声音,在这里我选择的是中文下的「Siri 声音 2(中国大陆)」,可供选择的声音还有「婷婷、语舒和 Siri 声音1」。屏幕中间的工具条是「语音控制器」浮动按钮展开后的内容,可进行翻页和调整朗读语速。

总体来说,利用 iPhone 手机系统提供的功能,还是能够很容易地操作,并朗读屏幕上的内容,听起来也还算可以,如果你有这方面的需要,可以试着把玩一番。

Android 系列

这个就比较遗憾了,我在我的手机中找到了系统提供的功能,但我在我的手机上并没有试出来我所期待的功能,我通过「设置」->「智能辅助」->「无障碍」->「随选朗读」进行设置,但是我设置完后始终就是不能让它能够朗读起来,遂作罢。

虽然没能体验成功,我还是浏览了一番它使用的引擎,用的是讯飞语音引擎,坊间一直有说讯飞家的语音出类拔萃,可惜未能在此体验一番。

1.2 利用手机上的 App

系统提供的是全局的功能,但在我们平常使用的时候更多的是基于一些少量的场景,对于将文字转换成语音输出的这个需求,更多的是对应一个想要朗读的文档,比如 Word、PDF 文档,或者是电子书,这时候可以通过日常使用的 App 来解决这个问题,这里我推荐微信读书这个 App,微信读书支持导入文档,支持 txt,pdf,epub,doc,docx,mobi,azw3 等格式,将这些文档导入微信读书后,在阅读的时候,手指单点屏幕中央,在弹出的功能按钮中,选择听按钮就可以开启朗读功能。

这比较适合要朗读的文档篇幅比较长,因为在导入文档到手机中时大概率要在电脑上完成,这需要额外花费一些时间,但完成后使用就比较简单了。

在手机上还有其他的 App 也提供这个功能,比如在微信中,可以通过设置「关怀模式」,然后开启「听文字消息」功能,也可以听消息。

在系统提供的屏幕朗读和微信读书的结合下,我想基本上就可以解决将文字朗读出来的需要了,当然如果有更好的 App ,如果恰巧看到这篇记录,也请留言告诉我。

2. 电脑

电脑的操作系统同样也提供朗读的系统功能,比如在 MacBook Pro 中,可以通过「系统偏好设置」->「辅助功能」->「朗读内容」 来设置。而在 Windows 系统的电脑中,比如 Windows 10 提供系统自带有屏幕朗读功能,可通过 「Windows 设置 – 轻松使用 – 讲述人」 打开讲述人即可。

对于电脑这个强大的生产力工具来说,系统提供的功能我们可能用不到就解决了我们的问题,比如我们常用的浏览器(Chrome、Safari、Edge)基本上能打开大部分格式的文本文件,而这些浏览器本身或借助系统提供朗读的功能,就能完成我们需要的朗读功能。所以在电脑上大部分的将文档朗读出来都可以采用用浏览器打开文档,然后朗读即可。

这里面最为推荐的就是 Microsoft Edge 这个浏览器,右键鼠标单击,在弹出的菜单中选择「大声朗读」,就可以听到当前打开文档的文字朗读了,这个是我听的效果最好的(如下图中我打开了鲁迅先生的《呐喊》这个 txt 文件进行大声朗读,效果不错)。在 Mac 中我用浏览器(不论是其自带的 Safari 还是 Chrome)体验的效果都不理想,在这里的体验应该是借助了系统的功能,在 Chrome 中可以通过安装朗读服务插件来提高体验,这部分我没有尝试。

另外一些专用的软件本身也提供朗读功能,比如通常用的 Word 里面就有朗读功能。

一圈体验下来,除了 Android 手机上这个用讯飞语音引擎的我没体验到之外,体验最佳的就是用 Edge 进行的朗读,这也印证了我从旁听来的评价「微软的引擎好」,我觉得也理所应当,毕竟对于一个在 20 多年前就推出了这方面产品的企业,这么多年下来的积累与沉淀,理应提供不错的体验。

对于现有的工具或产品来说,如果要在手机上想把文字朗读出来,目前我比较推荐的是将文档导入到微信读书中,然后用微信读书中的听功能来听。如果是在 Windows 电脑上,我比较推荐直接使用 Edge 浏览器打开文档,使用其提供的大声朗读功能来听。

还有没有其他的方式呢,答案是有的,如果懂得编程,动手能力又强,可以使用微软提供的文字转语音应用程序编程接口(TTS API)[1] 用程序来实现自己的需求。不过对于大部分人来说,以上提供的方法已经足够自己使用,虽然跟真人还有些差距,但在眼睛疲劳又想听一听文档时,不妨一试。


[1]: https://azure.microsoft.com/en-us/services/cognitive-services/text-to-speech/#overview


本文首发于我的微信公众账号「时间易逝」,欢迎订阅我的微信公众账号
在微信中搜索「doevents」或用微信扫描页面右上方二维码可订阅我的微信公众账号

Delphi 7 操作 MySQL 数据库一例

Delphi 7 在现在生产环境中的开发基本已经绝迹,所剩不多的人员也主要用于旧系统的维护与小功能的升级,还有很少的一部分人沿用旧有的技能线升级到 XE 等后续版本继续完成日常的开发工作。更多的系统要么升级到了 .NET 体系 ,要么就是用了 Java 体系。但不可否认的是在 Windows 桌面软件的开发的某些场合中,其实用它还是蛮快的。

一个项目最初的需求跟数据库毫无关系,在考虑需求的基础上选择了 Delphi 7 ,这样发布一个独立的可执行程序,依赖很少,使用比较方便,但需求总是变化的,有了使用数据库的需求,把单机的应用变成了一个网络的应用,以往在 Windows 系统上一般用微软自家的 SQL Server 多一些,但现在机器上没有,MySQL 倒是现成的,于是决定用它了。

Delphi 7 开发的快速性在于其基于组件的丰富性,在早期好像用过 MySQL,用的是基于 ODBC 的 MySQL 驱动,但相当不好用,具体不好用的细节倒是忘记了,想着这么些年过去了,有没有与时俱进的组件呢,搜了一下还真发现了一个,名称是 ZeosLib ,看介绍挺强大,几乎支持所有的数据库,用了一下除了有一点通常都会出现的编码的坑之外还不错,把基本的使用做个记录归档以便以后使用。

具体的操作系统是 Windows 10 家庭中文版,版本号是 20H2,操作系统内部版本是 19042.928,用的数据库是 MySQL Community Server 8.0.17 for Win64 on x86_64 。

我用的是 ZeosLib 是 7.2.10,可通过网址 https://sourceforge.net/projects/zeoslib/ 下载获得。

1. 组件的安装

这里只说 Delphi 7 的安装,下载组件压缩文件后解压缩 zeosdbo-7.2.10-stable.zip ,解压缩后的目录下有三个文件夹和两个文件,在其中的找到 packages 文件夹,进入该文件夹后找到 delphi7 文件夹进入,鼠标左键双击 ZeosDbo.bpg 文件,在 Delphi 7 打开后选择菜单栏 Project 中的 Compile All Projects 菜单项,编译完成后选择 OK 按钮。在 Library Path 中增加该组件的路径,路径指向 delphi7 文件夹下的 build 文件夹。在 delphi7 文件夹中找到 ZComponentDesign.dpk 文件,鼠标双击打开,选择 install ,这样组件就会安装好了。

2. 数据库的访问与操作

MySQL 数据库的安装就不再详述了,在 Windows 系统上安装也比较简单,通常一路「下一步」即可安装完毕。我们这里写一个简单的登录示例,成功登录后记录一条登录信息,大概梳理一下流程。

1. 用户打开程序;
  1.1. 如果发现没有数据库配置信息,启动数据库配置界面;
  1.2 如果有数据库配置信息,启动用户登录界面;
2. 用户完成数据库连接配置
	……
3. 用户完成登录
	……
4. 记录登录信息

数据库的准备工作

# 数据库脚本

# 创建 examples 数据库
CREATE DATABASE IF NOT EXISTS `examples` 
DEFAULT CHARACTER SET utf8mb4 COLLATE utf8mb4_general_ci;

# 创建用户数据表
CREATE TABLE `users` (
  `id` int(11) UNSIGNED NOT NULL AUTO_INCREMENT,
  `loginname` varchar(50) COLLATE utf8mb4_general_ci NOT NULL,
  `pwd` varchar(255) COLLATE utf8mb4_general_ci NOT NULL,
  `isadmin` tinyint(1) NOT NULL DEFAuLT '0',
  PRIMARY KEY(`id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_general_ci;

# 创建用户登录信息表
CREATE TABLE `user_logins` (
  `id` int(11) UNSIGNED NOT NULL AUTO_INCREMENT,
  `user_id` int(11) NOT NULL,
  `login_desc` varchar(150) COLLATE utf8mb4_general_ci NOT NULL,
  `login_time` datetime NOT NULL,
  PRIMARY KEY(`id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_general_ci;

在 Delphi 7 中新建一个 Application ,再添加一个 Data Module 和两个 Form,将 Data Module 命名为 DataBox,将 Application 自带的 Form 和添加的两个 Form 分别命名为 frm_main 、 frm_login 、frm_dbset,保存工程文件为 LoginExample ,代码如下。

LoginExample.dpr 工程文件

program LoginExample;

uses
	Forms,
	u_main in 'u_main.pas' {frm_main},
	u_databox in 'u_databox.pas' {DataBox : TDataModule},
	u_login in 'u_login.pas' {frm_login},
	u_dbset in 'u_dbset.pas' {frm_dbset};

{$R *.res}

begin
	Application.Initialize;
	Application.CreateForm(TDataBox, DataBox);
	if show_FormLogin then
	begin
		Application.CreateForm(Tfrm_main, frm_main);
	end;
	Application.Run;
end.

u_databox.pas 单元文件

unit u_databox;

interface

uses
	Windows,SysUtils, Classes, ZAbstractConnection, ZConnection, DB,
  ZAbstractRODataset, ZAbstractDataset, ZDataset,Registry,
  Forms, DCPcrypt2, DCPsha256,Dialogs;

type
  TDataBox = class(TDataModule)
    ZQOper: TZQuery;
    ZC: TZConnection;
    ZQLogs: TZQuery;
    DCP_sha2561: TDCP_sha256;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
    FDBHost : String;
    FDBPort : Integer;
    FDBName : String;
    FDBConUser : String;
    FDBConPwd : String;
  public
    { Public declarations }
    procedure GetDBConStr;
    function GetSha256(s:String):String;
  end;

var
  DataBox: TDataBox;
  OperID: Integer;
  Operator: string;
  LogsID:string;
  CurDir:string;
  isAdmin:Boolean;

procedure WriteLogs(sOper:Integer;funid:Integer;funName:string);


implementation

uses u_dbset, DateUtils;

{$R *.dfm}

procedure WriteLogs(sOper:Integer;login_desc:string);
begin
  with DataBox.ZQLogs do
  begin

    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO user_logins(user_id,login_desc,log_time) VALUES(:uid,:desc,:logtime)');
    ParamByName('uid').Value:=sOper;
    ParamByName('desc').Value:=funName;
    ParamByName('logtime').Value:=Now;
    ExecSQL;
  end;
end;


procedure TDataBox.GetDBConStr;
var
  myReg : TRegistry;
begin
  myReg := TRegistry.Create;
  with myReg do
  try
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('SOFTWARE\ExampleProg\DBConParam\', False) then
    begin
      FDBHost := ReadString('DBIP');
      FDBPort := StrToInt(ReadString('DBPort'));
      FDBName := ReadString('DBName');
      FDBConUser := ReadString('DBUser');
      FDBConPwd := ReadString('DBPwd');
    end;
  finally
    myReg.CloseKey;
    myReg.Free;
  end;
end;

procedure TDataBox.DataModuleCreate(Sender: TObject);
begin
  GetDBConStr;
  if FDBHost = '' then
  begin
    Application.CreateForm(TfrmDbSet, frmDbSet);
    frmDbSet.ShowModal;
  end;
  GetDBConStr;
  with ZC do
  begin
    Disconnect;
    Protocol := 'mysql';
    LibraryLocation := ExtractFilePath(Application.ExeName)+'libmysql.dll';
    HostName := FDBHost;
    Port := FDBPort;
    User := FDBConUser;
    Password := FDBConPwd;
    Database := FDBName;
    Connect;
  end;
  with ZQOper do
  begin
    Close;
    SQL.Text := 'SELECT Count(*) as OperCount FROM users';
    Open;
    if FieldByName('OperCount').Value = 0 then
    begin
      Close;
      SQL.Text := 'INSERT INTO users(loginname,name,pwd,isAdmin) VALUES(:loginname,:name,:pwd,:isAdmin)';
      ParamByName('loginname').Value := 'admin';
      ParamByName('name').Value := 'admin';
      ParamByName('pwd').Value := GetSha256('admin'); //sha256 admin
      ParamByName('isAdmin').Value := 1;
      try
        ExecSQL;
      finally
        Close;
      end;
    end;
  end;
end;

function TDataBox.GetSha256(s: String): String;
var
  Hash : TDCP_sha256;
  Digest : array[0..31] of byte;  
  Source : String;
  i : Integer;
  str1 : String;
begin
  Source := s;  //get s string sha256

  if Source <> '' then
  begin
    Hash := TDCP_sha256.Create(nil);  //create the hash
    Hash.Init;
    Hash.UpdateStr(Source);
    Hash.Final(Digest);
    str1 := '';
    for i:=0 to 31 do
      str1 := str1 + IntToHex(Digest[i],2);
  end;
  Result := str1;
end;

end.

u_dbset.pas 单元文件

unit u_dbset;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Mask, Registry,ZAbstractConnection, ZConnection;

type
  TfrmDbSet = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Bevel1: TBevel;
    Label6: TLabel;
    lblStatus: TLabel;
    edt_ServerName: TEdit;
    edt_DBName: TEdit;
    edt_ConnUser: TEdit;
    edt_Pwd: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Image1: TImage;
    Panel2: TPanel;
    Label1: TLabel;
    edt_Port: TEdit;
    ZC: TZConnection;
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure ZCAfterConnect(Sender: TObject);
    procedure ZCAfterDisconnect(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
    DBConStr: string;
    FMacineName: string;
    FDBName: string;
    FPwd: string;
    FConnUser: string;
    procedure SetDBConStr;
  public
    { Public declarations }
  end;

var
  frmDbSet: TfrmDbSet;

implementation

uses u_databox,comobj;

{$R *.dfm}

{ TfrmDbSet }



procedure TfrmDbSet.SetDBConStr;
var
  myReg:TRegistry;
begin
  myReg:=TRegistry.Create;
  with myReg do
  try
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey('SOFTWARE\ExampleProg\DBConParam\',True) then
    begin
      WriteString('DBIP',edt_ServerName.Text);
      WriteString('DBPort',edt_Port.Text);
      WriteString('DBName',edt_DBName.Text);
      WriteString('DBUser',edt_ConnUser.Text);
      WriteString('DBPwd', edt_Pwd.Text);
    end;
  finally
    myReg.CloseKey;
    myReg.Free;
  end;
end;

procedure TfrmDbSet.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_F8) and (ssCtrl in Shift) then
  begin
    edt_ConnUser.Color := clWhite;
    edt_ConnUser.Enabled := True;
    edt_ConnUser.SetFocus;
  end;
end;

procedure TfrmDbSet.BitBtn3Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmDbSet.FormShow(Sender: TObject);
begin
  edt_ServerName.SetFocus;
end;

procedure TfrmDbSet.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZC.Disconnect;
  Action:=caFree;
  frmDbSet:=nil;
end;

procedure TfrmDbSet.BitBtn1Click(Sender: TObject);
begin
  with ZC do
  begin
    Disconnect;
    Protocol := 'mysql';
    LibraryLocation := ExtractFilePath(Application.ExeName)+'libmysql.dll';
    HostName := edt_ServerName.Text;
    Port := StrToInt(edt_Port.Text);
    User := edt_ConnUser.Text;
    Password := edt_Pwd.Text;
    Database := edt_DBName.Text;
    Connect;
    RzBitBtn2.Enabled := True;
  end;
  lblStatus.Caption := '连接状态:测试连接成功,已连接!';
end;

procedure TfrmDbSet.ZCAfterConnect(Sender: TObject);
begin
  lblStatus.Caption := '连接状态:已连接!';
end;

procedure TfrmDbSet.ZCAfterDisconnect(Sender: TObject);
begin
  lblStatus.Caption := '连接状态:未连接!';
end;

procedure TfrmDbSet.BitBtn2Click(Sender: TObject);
begin
  SetDBConStr;
  Close;
end;

end.

u_login.pas 单元文件

unit u_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset;

type
  Tfrm_login = class(TForm)
    Label1: TLabel;
    edt_pwd: TEdit;
    cbo_username: TComboBox;
    Label2: TLabel;
    btnLogin: TButton;
    ZQUser: TZQuery;
    procedure FormCreate(Sender: TObject);
    procedure btnLoginClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure cbo_usernameKeyPress(Sender: TObject; var Key: Char);
    procedure edt_pwdKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ZQUserAfterOpen(DataSet: TDataSet);
    procedure edt_pwdEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function Show_FormLogin:Boolean;

implementation

uses u_databox;

var
  PasswordOK : Boolean;

{$R *.dfm}

function Show_FormLogin:Boolean;
var
  frm_login : Tfrm_login;
begin
  PasswordOK := False;
  frm_login := Tfrm_login.Create(Application);
  try
    frm_login.ShowModal;
  finally
    frm_login.Free;
  end;
  Result := PasswordOK;
end;

procedure Tfrm_login.FormCreate(Sender: TObject);
begin
  ZQUser.Close;
  ZQUser.Open;
end;

procedure Tfrm_login.btnLoginClick(Sender: TObject);
begin
  if ZQUser.Locate('loginname;pwd', 
	VarArrayOf([cbo_username.Text, DataBox.GetSha256(edt_pwd.Text)]), [loCaseInsensitive]) then
  begin
    OperID := ZQUser.FieldByName('id').AsInteger;
    Operator := cbo_username.Text;
    isAdmin := (ZQUser.FieldByName('isAdmin').AsInteger=1);
    Application.MessageBox(PChar(Operator + '登录成功'), '登录提示', MB_OK+MB_ICONINFORMATION);
    PasswordOK := True;
    WriteLogs(OperID,'登录');  
    if PasswordOK then
      Close;
  end
  else
    Application.MessageBox('用户名或密码不正确,登录失败,如忘记密码,请联系管理员!', '错误提示', MB_OK+MB_ICONWARNING);
end;

procedure Tfrm_login.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if not PasswordOK then
  begin
    CanClose := Application.MessageBox('你真的要退出该软件吗?', '信息提示', MB_YESNO+MB_ICONQUESTION)=IDYES;
    WriteLogs(OperID, '退出系统');
  end;
end;

procedure Tfrm_login.cbo_usernameKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    edt_pwd.Text := '';
    edt_pwd.SetFocus;
  end;
end;

procedure Tfrm_login.edt_pwdKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    btnLoginClick(Self);
  end;
end;

procedure Tfrm_login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure Tfrm_login.ZQUserAfterOpen(DataSet: TDataSet);
begin
  cbo_username.Items.Clear;
  with ZQUser do
  begin
    First;
    while not Eof do
    begin
      cbo_username.Items.Add(FieldByName('loginname').AsString);
      Next;
    end;
  end;
end;

procedure Tfrm_login.edt_pwdEnter(Sender: TObject);
begin
  edt_pwd.Text := '';
end;

end.

完成上述的步骤,这个小的 Demo 就算完成了,有三个地方需要注意一下:

第一,我看我的 IED 中安装了 DCPcrypt2 加密解密组件,随手引用了对密码做哈希处理,这部分如果用于练习的时候可以去掉。

第二,访问 MySQL 数据库需要动态链接库 libmysql.dll ,这个需要注意一下,不管你用 32 位的操作系统还是 64 位的操作系统,同时它也跟你安装的 MySQL 是 32 位的还是 64 位的也没有关系,在 Delphi 7 中使用 MySQL 的时候只能使用这个动态链接库的 32 位版本。

第三,编码问题,Delphi 7 会碰到编码问题,比如向 MySQL 数据库中写入中文会显示乱码,此时在 TZConnectionProperties 中添加 codepage=gbk 。另一种处理方式是在使用 TZQuery 等时,在运行 SQL 插入数据语句前,要先运行 set names gbk

begin
{这里的 zq1 是一个 TZQuery 控件}
	with zq1 do
	begin
		Close;
		SQL.Text := 'set names gbk';
		ExecSQL;
		SQL.Text := 'INSERT INTO Test(UName) VALUES("张三")';
		ExecSQL;
	end;
end;

因为是直接在项目中使用后,手工直接在 Notion 中码出来的,并没有写这个 Demo ,所以无法附上 Demo 的源码,对于现在还使用 Delphi 的人来说应该是比较简单的,我其实更多的是给自己做个笔记。但如果有任何问题,可直接通过「关于我」中提供的联系方式与我联系。

– EOF –

推荐 7 本书:1 季度中读到的好书

时间过的还是蛮快的,第一季度这就过去了,今年读完的第一本书是项飙老师的《把自己作为方法:与项飙谈话》,这本书读起来很舒服,从两位老师的对话中,我读到的把自己作为方法是依据自身的经验,向自己提出问题,这是一种结合自身经历的思考方式。书中项老师以自己的经历为主,包括自己所处的时代、自己身边的人、碰到的事情和所处环境等与吴老师对谈,看似是在谈话,更多的则是一种对自己的思考复盘与总结。

整本书读下来,两位老师的谈话比较能引发读者的思考,但不少地方谈着谈着就戛然而止了,这可能是进一步引发读者的想象与思考?也或者确实是不好说或说不好。我在读的过程中对于项老师提出的「乡绅」挺模糊,一是没有具体的实例可供参考,不知道是不是以前群体里比较德高望重的人,在群体中会被上门请教和拿主意的人,但感觉又不像,我可能还需要再读读。

有了思考和自己观点还得实践,在实践中,项老师给人的感觉是以「理性」为主导,强调可操作。在思考中有大的情怀和立场这没有关系,但到实践上,你要针对具体的问题,要做能可操作的研究,顺着这个,在读完这本书后,我顺带着先后读了项老师的另外两本书,这两本书是他的实践和研究之作,分别是《跨越边界的社区(修订版):北京“浙江村”的生活史》和《全球“猎身” : 世界信息产业和印度技术劳工》。

《跨越边界的社区(修订版):北京“浙江村”的生活史》这本书写的挺好,对我来说可读性比较高,读起来仿佛看到一个既住在这个村中的村民,又独立于村落之外,把村中的种种娓娓道来,把课题调查溶于生活中事件的演变,感觉是在读一本文学作品。

项老师的另一本《全球“猎身” : 世界信息产业和印度技术劳工》相比浙江村略显仓促,但由于身处 IT 行业,猎身猎的就是 IT 人,读起来倒也津津有味。印度的 IT 产业及人员输出在全球知名是有道理的,他们几乎有一个这个产业的全球性的链条,从印度、澳大利亚、马来西亚再到终极的目的地北美,他们从一开始所学就是与引领 IT 发展的美国接轨的,培训是成体系的,在这个链条上无数印度人经历了层层的盘剥后,少部分人见证了成功。

读完项飙老师的这三本书之后,突然想起来费老的《江村经济》还没有读,这也是一本人类学或说是社会学的著作,理应凑着这波读一番,这本书读起来非常舒服,语言很通俗,读完的第一感触是费老写的非常真实,呈现了真真实实的农村人的生活图景。王小波曾在《诚实与浮嚣》中点评到这本书:“现在假如有个年轻人问我,在中国人写的科学著作中,哪本最值得一读?我的回答还是《江村经济》”。这确实是一本人人都该读一读的经典之作。

《把自己作为方法》
《跨越边界的社区》
《全球“猎身”》
《江村经济》

以上四本书都可以读读,如果只选择一本的话,推荐费老的《江村经济》,如果可以再读一本的话,可以读读《跨越边界的社区(修订版):北京“浙江村”的生活史》。

在随后读的书中,《优雅的守卫者 : 人类免疫系统的故事》 这本书值得读读,这是一本有关免疫的科普读物,一方面,免疫跟每个人都息息相关,另一方面,当下又处于的疫情肆虐时期,读它正当其时。

对于免疫力,我经常在耳边听到的是:“我的免疫力弱,我的免疫力强,你应该提高你的免疫力……”等诸如此类的话,真的是这样吗?

读完发现并不是这样的,简单来说,免疫力既不能太强也不能太弱,它作为一个系统,维持系统平衡是最重要的,如果系统失去了平衡,我们的身体就会反映出一些表象,这些表象告诉我们,系统已经开始工作了,它调动系统的各项功能,它们各司其职,一起协作,努力向平衡自我调节。

这本书作者用了 4 位患者所经历的故事来展开免疫系统的介绍,一方面概要的梳理了免疫的发展史,同时介绍了免疫学在临床的一些应用,作者把故事讲的很通俗易懂,读起来一点都不费劲,在疫情肆虐的现在,可以读读看。

《优雅的守卫者》

再来一本一位睿智老人纵观天下的书《李光耀观天下》,读过这本书的朋友都说写的好,在读书的朋友中,隔三差五就会出现这本书的推荐,架不住时不时的看到这样的推荐,书架上也有这本书,索性也就拿起这本书读了读,这书读起来挺过瘾。

他基本上毫无保留地分享了他对世界主要国家和地区的观察与思考,直面问题并直指问题的关键,正如书名,书中涉及的范围涵盖天下,其中我比较喜欢历史和人口部分的内容,还有新加坡在不同时间的一些选择,当然其他的内容也挺不错,这毕竟是一个身经百战并且亲手操盘者没有保留的输出,而且新加坡发展的确实还挺不错。

《李光耀观天下》

赶在三月的尾巴,读完了以赛亚·伯林的文集《观念的力量》,这同样是一本值得一读的书,观念可以革新整个人类世界,也可以让人类世界步入深渊,这本书索引了以赛亚·伯林思想,涉及观念史、启蒙思想、自由主义、浪漫主义、教育、民族主义等等。我尤其喜欢分析俄国的部分和分析以色列及犹太人的部分,整本书算上附录中的 3 个主题,共 22 个主题,可选择感兴趣的一读。

《观念的力量》

明天就开始清明小假期了,外出比较添乱的情况下,可以给读书划拨一些时间,拿起一本书,消遣时光也是一个不错的选择。

本文首发于我的微信公众账号「时间易逝」,欢迎订阅我的微信公众账号
在微信中搜索「doevents」或用微信扫描页面右上方二维码可订阅我的微信公众账号

Trello 从使用到放弃

我比较喜欢尝试通过各种途径发现的各种软件工具,这也算是计算机软件使用这个范畴中「差生文具多」的一种表现,Trello 就是其中一个软件工具。我在维基百科上查了一下,Trello 初始版本在 2011 年 9 月 13 日发布,在 2014 年 7 月将 Trello 独立为单独的公司,2017 年 1 月被 Atlassian 收购。

从现在的记忆中回顾,最初我对它的了解是它是一款看板软件,是由比较有名的「Joel Spolsky」创建的,就是写了《软件随想录》 这本书的那个被称为「程序员部落酋长 Joel 」的那位,当然他也写博客,而且开设博客的时间还相当的早,他还是在程序员中被广为使用的 Stack Overflow 这个问答 「拷贝粘贴代码库」 社区的创建者之一,更多的关于他的信息可以去他的网站 Joel On Software 上寻找。

我很早就注册了 Trello 这个工具的账号,应该在 2015 年或更早些时候,但真的开始用的时候就比较晚了,大概在 2020 年初的时候,我准备尝试用一下,一边摸索一边将数据迁移到 Trello 中,一直用到 2021 年 10 月份,就放弃了,现在来看,放弃主要有如下的几个原因。

  • 在其自身账号跟 Atlassian 整合后使用它越来越慢了,常常在正常情况下打不开;
  • 几个移动设备上的 App 在升级后就不太能好好用了;
  • 整合账号后在需要重新验证身份的时候需要输入两次密码;
  • 有新的在尝试的工具,比如 Notion.

截张图,做个纪念,并简单记录一下自己的日常使用。

尽管对它的最初认识是一款看板软件,但我在尝试的过程中却打算用它把自己的内容也管理起来,然后针对一部分内容建立行动过程,也即看板,再然后还可以试试协作。

当时为什么想要试试 Trello ,现在实在是想不起来,很大可能是当时看到了某些有关它的信息,然后想着自己也有账号,接下来由于喜欢尝试的毛病发作,就试起来了,官方和使用者多把这个软件产品定位为项目协作与目标管理工具,我用它主要想试试看能否将内容管理起来,在此基础上对于手头上要做的项目进行一些任务分解与跟踪。

我是通过具体的看板进行分类,有了类别之后,在此基础上进行按类别的管理,这种想法根植于从小到大的经验与不断的练习,在日常中我们总是用类别来归纳一些事,以便简化我们应对和认知事物。

而对应到 Trello 中,不同的看板可以看作不同的类别,而看板中的卡片可以看作不同内容的承载容器,可以进一步在卡片上记录对应的内容,在看板和卡片之间可以建立列表进行进一步的分类,以「阅读」看板为例,如下图。

这里在「阅读」看板中建立了 4 个列表,分别是书库、待读、阅读中以及读完,而列表下的每张卡片则代表了每本书以及每本书在不同状态下的不同内容。

在书库这个列表中,每张卡片代表一本书,我在每张卡片中记录了书的一些概要信息,并使用标签来标注书的介质和来源,比如电子书的微信读书,Kindle , PDF , iBook 以及纸质书。然后将计划阅读的放到待读这个列表中,在阅读中列表中放入当前正在读的书,并伴随阅读记录阅读笔记,最后读完一本书整理到读完列表中。

其实 Trello 提供的看板及其卡片还是蛮不错的,卡片的内容支持 MarkDown 以及待办清单,可以通过建立不同的标签进行标注,进一步的分类与组织内容。在卡片的每次操作,都会以讨论的方式进行记录,这样也就留下了针对这张卡片的历史操作记录,当然作为一个协作工具,还可以邀请朋友来共建内容「将看板设置为公开的,并邀请朋友共同参与」,总体下来用的过程中还是比较简单的,而且使用也挺流畅。唯一美中不足的是每个卡片在不同的状态下基本上是基于状态隔离的,但实际上这些卡片中的内容存在一定的连接性,这就需要进一步的整理加工,然后增加新的卡片或者归档到另外一个工具中,当然在 Trello 中也可以通过附件来做到卡片之间的链接,这算是在内容上一层级的链接,略微有些欠缺,不知道现在的版本是否有新的改变,从软件的出发点及整体架构上来说,这样的变更比较困难。

由于其协作性,在进行项目管理时,有关这些看板和卡片都可以通过 关注和 @某人 连接相关的参与者,以得以使得成员协作开展工作,我在这部分没有使用多人模式,仅仅是把我自己独立完成的项目管理了起来,包括任务分解、描述以及人员的指派等都是我自己,由于没有多人的实际尝试,这部分就不多说了,但这部分内容是团队使用 Trello 的精髓所在,毕竟它是一款团队协作工具。特别要注意的是如果团队本来在使用看板,比如在很显眼的地方放一大块白板,上面贴满一个项目各个成员的任务进度,那么可以试试这个工具,而如果你的团队没有使用过这种管理方式,那么这个工具实际上并不一定就能让你的团队适应看板这种项目管理方式,当然可以尝试。

以上大概就是我使用 Trello 的一些回顾,有两个计划,其一是打算丰富一下书库的内容,然后邀请朋友共同探索一下内容的共建与协作;其二是在我自己做的项目中,准备把甲方相关人员拉进来,试试项目过程中的协作,包括项目的整体进度、需求讨论、原型及反馈等,但随着使用越来越慢而且几番更新后手机上经常无法使用,这个想法也就不了了之了,最终就彻底放弃。

最后说说对 Trello 的理解。

基本上 Trello 可以整理生活与工作中的任何资料,可以把它看作是一大块白板,使用它的人可以在这块白板上建立无数个列表,要整理什么资料或者要开展某项工作,都可以在这块白板上创建,当然可以对这块白板进行升级,比如变成好多块白板。在这些白板上使用者可以自由书画,拖拽排序,列表可以按照阶段建立,可以按照流程建立,也可以按照使用者的分类建立,当然自由建立也是完全可以的。

承载内容的是列表中的一个个卡片,卡片同样可以是一个任务,一本书,一份资料,一个想法,一个问题与讨论或一个投票等等,这些卡片可以是动态的(比如按照阶段划分的任务随着任务完成的状态游走在列表中),也可以是静态的(它就是一份资料)。一眼望去是你自己熟悉的分类,展现种种的内容,一览无余。卡片为不同的内容提供多样性的属性,链接、文字图片、待办清单、附件、起始日期、标签、颜色等等,不但丰富卡片的内容,而且提供了进一步的管理。

整体操作比较简单,大量的拖拽操作就跟在板板上移动便利签一样,这大大减低了团队使用的门槛,支持多端多系统,即时同步,多人协作,在多人协作时,每个进入到能进入的看板时,能一眼就看出每个人都在做什么,做的怎么样,以及我该做什么。

搜索功能也还算可以,能够检索到你搜索的内容,Trello 还提供了一些类似于插件的功能,比如投票、日历等等。

整体上来看,Trello 对于本身就使用看板的团队开展工作还是不错的,而且免费的功能足以应付日常大部分的工作,当然其还提供付费的版本,比如对于附件大于 10M 的支持就需要付费。当然对于个人来说,如果把自己的日常生活的琐事用它管理起来也能让事情井然有序,如果感兴趣可以试试。不太理想的地方是随着它被收购越来越重了,而且越来越慢了,慢这个事情也不太好说,Notion 也存在慢的问题,这既跟网络相关,也跟内容存储主体与服务所在地有关,这部分不可言说。类似这样慢的或者访问不友好的产品或服务,要看它们提供的价值是否要大于解决网络访问的成本以及你的兴趣。

本文首发于我的微信公众账号「时间易逝」,欢迎订阅我的微信公众账号
在微信中搜索「doevents」或用微信扫描页面右上方二维码可订阅我的微信公众账号

MacBook Pro 自行更换鼓包电池及升级存储小记

我的这台 MacBook Pro (Retina, 15-inch, Mid 2014) 是在 2015 年上半年买的,它是 2014 款,继上次屏幕涂层脱落(花屏)免费给更换屏幕后,又用了 4 年。对我来说,如果它不出问题应该可以一直用到我不想用为止,因为它基本上还能继续满足我编写程序及日常工作的需要。

可是它就出了问题,最近发现电池鼓包,而且鼓包应该已经有段时间。我是发现上盖合不严,没有以前合上时吸附的那股急于挣脱你手的力量,我从支架上拿下来放到平面时,四个立足点已经不能在桌面保持平衡了。在手机上进行了维修预约,然后在网上进行一番搜索,搜到的电池鼓包解决方案还不少,电池鼓包现象同样也是苹果电脑比较常见的现象,我决定还是先去苹果店看看再说,因为在第一时间我更愿意先看看专业人士的意见是什么。

在等待预约的期间我先把数据做了一下整体的备份,然后把自力更生解决问题相关的文档都看了个遍,我其实比较倾向自己进行更换,然后顺道更换一下存储(由于穷,在购买的时候买了 256G 的存储),存储空间在日常使用中实在是捉襟见肘,所以顺道搜索了一番,把更换存储以及存储选用的文档也浏览了一遍,关于这些解决方案文档在这里就不做具体的推荐了,只要上网一搜都能搜到,在最后我会放上我看的一些文章链接。

在约定的时间去店里,完成签到后在等待的区域,发现来处理鼓包的朋友算上我有 4 个,我的电脑时间最老,苹果售后效率还是挺高的,略微的等待之后过来一个美女,她负责这次的售后服务,完成信息的核对后开始检查电脑,对我的电脑的检查其实挺简单,电池鼓包这事一眼望去就很明了了,美女直接给我说解决方案,大概意思是电脑比较老,没有现成的备件,需要下新订购单,大概需要 7 天到半个月,还不一定能有货,并告诉我更换电池会连键盘和触摸板整体一起换掉,费用大概不到 1500 ,当然这费用仅仅是电池的费用,其他不收费「键盘、触摸板」,并说很大可能是没有货,电脑时间有些太长了,2014 年的电脑都 7 年了,并建议应该考虑换电脑了。之后问我的意见如何,需要不需要让她下单订购。在听取了专业人员的建议后,综合了之前我浏览的各种自力更生方案,我决定自己试试,感谢了美女之后,我拿起电脑返回家中,开始订购需要更换的物件。

  • 电池
  • 1T SSD 存储
  • 存储转接(卡)头

以上就是需要采购的物件。

电池我是在京东采购的,根据电脑背后的型号先咨询卖家客服,然后下单订购,电池产品中包括更换的工具以及更换说明书,客服也会给你一个如何更换的视频,服务其实挺到位的,价格也比较便宜,电池适配型号,选择上只是选择品牌,这个没什么太多要说的,选择一个经营年限长一些的品牌即可,我在更换后使用良好,截止到目前并没有发现问题。

SSD 存储这个让我有些选择困难,内心是比较倾向于选择三星的,笔记本本身的 SSD 就是三星生产的,可是能用在 2014 年生产的苹果电脑上的三星 SSD 目前没货「停产」,几经考虑最终选择了西数的,主要是我用西数的移动硬盘比较多,也是大厂。选择移动 SSD 要根据电脑,以及参考有过往经验人的推荐,这个可以在购买转接头的时候向客服咨询一下,看看他们的具体推荐,毕竟他们的推荐都是有案例支持的。最终在京东采购了西数的 SN550。

苹果笔记本的 SSD 接口和通常的 SSD 接口不同,需要加装一个转接头「卡」才行,转接头在淘宝搜一下「苹果转接头」,选择买一个就可以,这个比较便宜,选择一个销量多评价不错的即可。

京东的快递效率一如既往的高效,第二天电池和存储就到了,转接头多用了一天,等货到齐之后准备更换,下面是到货后的图片。

一定要注意的是在更换之前要备份数据、备份数据、备份数据,重要的事情说三遍,可使用「时间机器」进行备份,需要准备一个移动硬盘来接纳备份数据。在备份数据这方面多说两句,别忘了在使用时间机器备份的同时,将数据库「比如 MySQL」备份一下,否则数据库就需要从数据文件目录中恢复,这要远比用备份文件恢复复杂和耗时。

电池和 SSD 更换只要胆大心细,千万不能有大力出奇迹的想法,防止静电「电池中有防静电手套」,一般按照操作步骤都是没有问题,我在更换中没有出现问题,顺利完成更换。在更换电池的时候,在拿出老电池的时候要有些耐心,要等溶胶剂充分跟胶接触,不要猛拽,也要小心扎破鼓包的电池。SSD 和 转接头都要推到底,一般会有「咔」的微小声响。

剩下的就是恢复系统了,我没有按照网上说的要用一个 U 盘做一个系统,而是直接使用联网的方式来恢复。同时按住「电源+command+option+R」这四个键等待屏幕上出现一个黑白的地球图标后松手,然后在过程中选择 Wi-Fi,并输入密码,系统就会进行联网恢复,这个过程需要一段等待时间,直到出现「macOS 实用工具」界面。

从实用工具界面选择「磁盘工具」,继续后在磁盘工具左边栏中选择新换的 SSD 硬盘,把它先格式化了,选择 APFS 格式,名称建议跟以前的一样,如果没改就是 Macintosh HD ,分区选择 GUID ,完成后关闭磁盘工具,选择「从时间机器恢复」,在网上的各种说法中有能从这里恢复的,有不能的,不能的居多,一般碰到不能的都是采用 U 盘的方法,我同样也碰到了不能通过「从时间机器恢复」的提示,可是我并没有做 U 盘,我选择「重新安装 macOS Big Sur」完成了从网上的安装,从这点看时间机器在向新硬盘上恢复系统可能多少还有些问题。

安装完毕系统后,然后再用「迁移助理」完成备份的恢复,按照提示并经过等待以后,整个系统顺利完成了恢复,我这里除了 MySQL 数据库和一些服务器的配置之外其他的一切都跟以前一模一样,包括之前所有打开的应用,所不同的是硬盘足够用了,并且速度要比之前快很多,电池也不鼓包了,那久违的上盖吸附力又回来了,也没有碰到网上说的硬盘休眠的问题,又能再战不少年了。

这次更换整体上比较顺利,也有一些失误,总结一下:

  • 应该在采购的物件中增加两项「压缩空气」和毛刷,用于清除灰尘,用的时间长以后多少还是有些灰尘的,我用气筒吹了吹,清理的不是很干净。
  • 数据库要提前备份一下,要不恢复比较耗时,远比从备份中恢复花的时间要长。

最后列一下我在发现电池鼓包以后在网上阅读的一些文档:

  • 换个SSD再战3年,15款MacBook Pro升级1TB SSD,附13-17款升级指南https://post.smzdm.com/p/a783vk9g/
  • Macbook pro 15’ late 2013(A1398型)硬盘升级https://zhuanlan.zhihu.com/p/144419054
  • 15款 MacBook Pro 更换硬盘https://zhuanlan.zhihu.com/p/79265981
  • MacBook 升级 SSD 硬盘指北https://juejin.cn/post/6901549087221514247
  • 从“时间机器”备份恢复 macOS 服务器https://support.apple.com/zh-cn/HT202406

另外 ifixit.com 是个不错的网站,各种拆修可谓之详细至极,可惜不太能友好的访问,除此之外关于换电池的文章主要是在 B 站的视频和油管(访问亦不友好)的视频,这里就不多列了,其实买电池的客服给的视频和电池中的操作说明已经非常详细了,你只是需要确定好自己的电脑型号就行。

在高度集成模块化,并且设备越来越小的现在,动手比起之前越来越少了,于是觉得在为数不多的动手之余应该做个记录,做个留念,这篇记录写完很久了(去年九月中旬),没有放出来是想看看是否运行稳定,是否会出现网上所说的更换后的种种小毛病,比较幸运的是均没有出现,如今差不多换完有半年了,运行良好。

在这期间同学有一台 HP 的笔记本在我的建议下也把机械硬盘更换为 SSD,并且把内存扩至 16 G,按照他的日常使用范畴,继续用个几年是不成问题的,同时也锻炼了他自己的动手能力。这让我想起了很早以前的事情,那时会时不时的去市场转转,然后给台式机升个级,现在想来也是蛮有趣的事情。如今越来越集成的笔记本等电子设备可能不再能很容易的升级了,这可能也少了一些乐趣,不过更多的给人动手锻炼的开发板套件倒是比以前多了很多,也挺好玩,喜欢这方面的朋友可以试试。

本文首发于我的微信公众账号「时间易逝」,欢迎订阅我的微信公众账号
在微信中搜索「doevents」或用微信扫描页面右上方二维码可订阅我的微信公众账号