界面库

优化

funcext/tvclib/getmsgd_crc32.tsf

@@ -5,8 +5,18 @@ Begin
         @param(s)(string) 字符串 %%
         @return(string) 8位长度的信息指纹%%
     **}
-    {$ifdef linux}
+    fc := static get_f();
-    G_CRC32TABLE:=array(
+    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,
@@ -84,6 +94,4 @@ Begin
     end;
     result:=_not(result);
     return inttohex(result,8);  
-    {$endif}
+end 
-    return GetMsgDigest(s,0);
-End;

funcext/tvclib/utslmemo.tsf

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