背景：
1、原有C#开发的WinCE系统+WebService；
2、客户说WinCE上的终端程序运行速度慢，我也说慢；
3、希望改造一个WinCE上的终端程序，因为熟悉Delphi所以Lazarus；
4、Lazarus导入的WebService代理，我看不明白，还涉及到数据类型转换神马的，决定放弃WebService；
5、打算采用lNet写个服务器，接收数据来处理和数据库之间的交互。
----------------------------------------我是分割线-----------------------------------------
解决思路：
1、Lazarus 安装 lNet组件；（这个不难）
2、把lNet中 那个Tcp示例改成多线程的；（这个也不难）
3、但数据传输过程中效率如何解决？对压缩一下！如何压缩？
a、官网上检索， http://www.lazarus.freepascal.org/index.php?topic=11552.0 ；
b、但这里面用到了 Indy组件，而这个组件点名说了，我暂时不支持WinCE；
c、找个方法把 Indy组件功能替换掉 http://topic.csdn.net/t/20041012/10/3446989.html ；
4、成功了。
代码如下：
function TFormMain.GzBase64(const s: string): string;
var OutStream, InpStream, GzStream, b64Stream: TStream;
begin
OutStream := TStringStream.Create('');
try
b64Stream := TBase64EncodingStream.Create(OutStream);
try
GzStream := Tcompressionstream.create(clmax,b64Stream);
try
InpStream := TStringStream.Create(s);
try
// Copy input stream
GzStream.CopyFrom(InpStream,InpStream.Size);
finally
InpStream.Free;
end;
finally
GzStream.Free;
end;
finally
b64Stream.Free;
end;
result := TStringStream(OutStream).DataString;
finally
OutStream.Free;
end;
end;
function TFormMain.unGzBase64(const s: string): string;
var OutStream,deCompressStream: TStream;
SL:TStringList;
begin
if(s='')
then
begin
Result:='';
abort;
end;
SL := TStringList.Create;
OutStream := TStringStream.Create(Base64ToString(s));
DecompressStream := TDecompressionStream.Create(OutStream);
try
SL.LoadFromStream(DecompressStream);
Result:=SL.Text;
finally
DecompressStream.Free;
OutStream.Free;
SL.Free;
end;
end;
function TFormMain.Base64ToString(const Value: string): string;
var
x, y, n, l: Integer;
d: array[0..3] of Byte;
Table : string;
begin
Table :=
#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$3E +#$40
+#$40 +#$40 +#$3F +#$34 +#$35 +#$36 +#$37 +#$38 +#$39 +#$3A +#$3B +#$3C
+#$3D +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40 +#$00 +#$01 +#$02 +#$03
+#$04 +#$05 +#$06 +#$07 +#$08 +#$09 +#$0A +#$0B +#$0C +#$0D +#$0E +#$0F
+#$10 +#$11 +#$12 +#$13 +#$14 +#$15 +#$16 +#$17 +#$18 +#$19 +#$40 +#$40
+#$40 +#$40 +#$40 +#$40 +#$1A +#$1B +#$1C +#$1D +#$1E +#$1F +#$20 +#$21
+#$22 +#$23 +#$24 +#$25 +#$26 +#$27 +#$28 +#$29 +#$2A +#$2B +#$2C +#$2D
+#$2E +#$2F +#$30 +#$31 +#$32 +#$33 +#$40 +#$40 +#$40 +#$40 +#$40 +#$40;
SetLength(Result, Length(Value));
x := 1;
l := 1;
while x < Length(Value) do
begin
for n := 0 to 3 do
begin
if x > Length(Value) then
d[n] := 64
else
begin
y := Ord(Value[x]);
if (y < 33) or (y > 127) then
d[n] := 64
else
d[n] := Ord(Table[y - 32]);
end;
Inc(x);
end;
Result[l] := Char((D[0] and $3F) shl 2 + (D[1] and $30) shr 4);
Inc(l);
if d[2] <> 64 then
begin
Result[l] := Char((D[1] and $0F) shl 4 + (D[2] and $3C) shr 2);
Inc(l);
if d[3] <> 64 then
begin
Result[l] := Char((D[2] and $03) shl 6 + (D[3] and $3F));
Inc(l);
end;
end;
end;
Dec(l);
SetLength(Result, l);
end;