Some Delphi tips

====================================
类库
====================================
类库奇缺, 和python社区简直差十万八千里, 下面是我常用到的类库.
   RxLib(是并入JVCL前的版本): 有很多不错VCL组件, 另包含几个Util单元(RxShell/StrUtils/FileUtil/DateUtil)
   TurboPower 的几个类库:
        SysTools: 包括logging, 排序, 正则,  math expression analyzer, bar codes(支持一维和二维),
        ShellShock: Shell的封装

        

====================================
conversion routines
====================================
Format(‘There are now %d records in the table %s‘, [10,‘TableA‘]); -->格式化字符串
function Now(): TDateTime; --> 返回当前的日期和时间, DateTime类型(其实就是double型)
function Date(): TDateTime; --> Returns the current date.
function CompareDateTime(const A, B: TDateTime): int; -->比较2个日期
function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):
TDateTime; -->拼日期
procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);
ExtractFilePath(Application.ExeName) -->获取当前程序路径

//简单类型转换
function IntToStr(Value: Integer): string;
function FloatToStr(Value: Extended): string;
Format(‘%d%s‘,[100,‘hello‘])
procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime);
function FormatDateTime(const Format: string; DateTime: TDateTime): string;
格式‘yyyymmddhhnnsszzz‘ 是精确到毫秒的格式
FormatDateTime()和DateTimeToString() 都能很好将日期格式化成String, 但没有那种根据格式解析DateTime的函数, 需要自己写, 或者找开源的rx_library库

//char和string的转换
Char=>String: StringOfChar(char1, 1), 或者 char1+‘‘即可
String=>Char: String使用下标即可转成Char, 比如String123[0]

//PChar和String的互换
String=>PChar
     最好使用 PChar(‘your_string‘) 强转; 使用StrPCopy(Dest: PChar; const Source: string), 它有时会报内存错误.
function StrPas(const Str: PChar): string;
    Converts null-terminated string to an AnsiString (long string)
    

====================================
how to use Win32 system functions
====================================
function GetTempPath1: string;
var
  TempDir: array[0..255] of Char;
  //DWORD GetTempPath(DWORD nBufferLength, LPTSTR lpBuffer);
begin
  GetTempPath(255, @TempDir);
  Result := StrPas(TempDir);
end;


====================================
refresh FORM appearance in a busy loop
====================================
procedure TMainForm.Btn_Stress_Test_LoopClick(Sender: TObject);
var
  I: Integer;
begin
    for I := 0 to StrToInt(edt_total_count.Text) do
    begin
      edt_current_index.Text:=IntToStr(I);
      self.stressTest();
      Application.ProcessMessages();  
    end;
end;



====================================
解决DCOM中间层报错问题, 报错信息是: Name not unique in this context
====================================
这是一个基于DCOM技术开发的老程序, 包含中间层和客户端, 中间层使用MultiInstance 进程 + Apartment 线程模型, 有一个Remote data module通过BDE技术连接Oracle.
当多个客户端同时连中间层时, 经常能碰到报错: Name not unique in this context.
原因分析: MultiInstance 进程模式的中间层, 也就是一个进程服务所有的RPC调用. 当有多个RPC进来的时候, 启用多线程方式进行服务.  所以需要中间层有一个session管理机制. 默认情况下, BDE中间层仅仅有一个default session, 一旦多个客户端同时连着并作查询, 程序会在同一个session中, 创建数据结果集或其他对象, 就会报"Name not unique in this context."错误.

解决方法是:
首先:Remote data model上, 加 Session1(TSession 组件), 设置AutoSessionName=True, 假设 SessionName为Session1_2 .
接着:确保DBE TDatabase 组件SessionName为Session1的SessionName, 即Session1_2
最后:为Session1 设置PrivateDir. 确保每个连上中间层的session都有一个唯一的PrivateDir, 否则还会报 Directory is busy 错误.  我的做法是在Session1Startup事件中, 为session1动态指定一个临时目录.

测试的策略:
要模拟多个客户端‘同时‘连接中间层, 需要有点策略.  我的做法是: 随便找一个查询, 循环100次封装成一个方法. 然后启动3份客户端程序, 同时运行这个新的循环程序. 因为有100次循环, 所以必然会有多个客户端同时连接中间层.


增加 TSession 组件,
object Session1: TSession
  AutoSessionName = True
  KeepConnections = False
  PrivateDir = ‘ ‘
  OnStartup = Session1Startup
  SessionName= ‘Session1_2‘
  Left = 32
  Top = 104
end

确保DBE TDatabase 组件SessionName为Session1的SessionName, 不是Session1的组件名字.
object your_db: TDatabase
  AliasName = ‘your_db‘
  DatabaseName = ‘your_db‘
  KeepConnection = False
  LoginPrompt = False
  Params.Strings = (
    ‘user name=user1‘
    ‘password=pwd‘)
  SessionName = ‘Session1_2‘
  Left = 24
  Top = 48
end



procedure TApp.Session1Startup(Sender: TObject);
var
   TempDir: array[0..255] of Char;
   tempPath:String ;
   fullPrivatePath:String;   
begin
    // set private dir for this new session
    GetTempPath(255, @TempDir);
    tempPath:= StrPas(TempDir);    
    fullPrivatePath:=tempPath+guid_str(); //使用guid来保证目录的唯一性
    CreateDirectory(PChar(fullPrivatePath),nil);
    Session1.PrivateDir:= fullPrivatePath;
end;