界面库

优化

funcext/tvclib/getmsgd_crc32.tsf

@@ -5,8 +5,18 @@ Begin
         @param(s)(string) 字符串 %%
         @return(string) 8位长度的信息指纹%%
     **}
-    {$ifdef linux}
-    G_CRC32TABLE:=array(
+    fc := static get_f();
+    return call(fc,s,0);   
+End;
+function get_f(); //获得函数指针
+begin
+    r := findfunction("getmsgdigest");
+    if r then return r;
+    return thisfunction(my_crc32);
+end 
+function my_crc32(s,f);//自己实现的crc32
+begin
+    G_CRC32TABLE:= static array(
     0x00000000, 0x77073096, 0xEE0E612C, 0x990951BA,
     0x076DC419, 0x706AF48F, 0xE963A535, 0x9E6495A3,
     0x0EDB8832, 0x79DCB8A4, 0xE0D5E91E, 0x97D2D988,
@@ -83,7 +93,5 @@ Begin
         result .^= ebx;
     end;
     result:=_not(result);
-    return inttohex(result,8);   
-    {$endif}
-    return GetMsgDigest(s,0);
-End;
+    return inttohex(result,8);  
+end 

funcext/tvclib/utslmemo.tsf

@@ -4,7 +4,7 @@ unit UTslMemo;
 **}
 
 {$ifdef linux}
-{$define linuxpop}
+{$define linuxpop123}
 {$endif}
 interface 
 uses utslvclauxiliary,utslvclmemstruct,utslvclgdi,utslvclstdctl;