========我要烦死了，大家快来帮帮我吧========

Question

做了一个局域网内的QQ，不过当简体操作系统与繁体操作系统通讯时出现乱码。
我想在接收信息时作一个检测：
当信息为GB时，转换为BIG5码？
请大家指点，谢了

Answer 1

都用Unicode编码不就没事儿，这个才是根本。BIG5->GB 转换是会丢失一些文字的，因为BIG5的汉子数量远大于GB。
BIG5->GBK 不会丢字，GBK饱含了全部的BIG5汉字，但是编码不同了。

Answer 2

unit GB_BIG5Unit;interface function GBtoBIG5_NonAPI(value: string): string;
 function BIG5toGB_NonAPI(value: string): string;
 function isGB(value: string): Boolean;
 function isBIG5(value: string): Boolean;implementationvar
  BIG5Order: array[0..14757] of Word;
  GBOrder  : array[0..8177] of Word;function GBOffset(value: string): integer;
begin
  if length(value) >= 2 then
    Result := (Ord(value[1]) - 161) * 94 + (Ord(value[2]) - 161)
  else
    Result := -1;
end;function BIG5Offset(value: string): integer;
begin
  Result := -1;
  if length(value) >= 2 then
  begin
    if (Ord(value[2]) >= 64) and (Ord(value[2]) <= 126) then
      Result := (Ord(value[1]) - 161) * 157 + (Ord(value[2]) - 64);
    if (Ord(value[2]) >= 161) and (Ord(value[2]) <= 254) then
      Result := (Ord(value[1]) - 161) * 157 + 63 + (Ord(value[2]) - 161);
  end
end;function WordToString(value: Word): string;
begin
  Result := Chr(Hi(value)) + Chr(Lo(Value));
end;function isBIG5(value: string): Boolean;
begin
  if (length(value)>=2) then
  begin
   if (value[1] < #161) then
     Result := false
   else
     if ((value[2] >= #64) and (value[2] <= #126)) or ((value[2] >= #161) and (value[2] <= #254)) then
       Result := true
     else
       Result := false
  end
  else
    Result := false
end;function isGB(value: string): Boolean;
begin
  if (length(value)>=2) then
  begin
    if (value[1] <= #161) and (value[1] >= #247) then
      Result := false
    else
      if (value[2] <= #161) and (value[2] >= #254) then
        Result := false
      else
        Result := true
  end
  else
    Result := true;
end;function GBtoBIG5_NonAPI(value: string): string;
var
  leng, idx      : integer;
  tmpStr         : string[2];
  Offset         : integer;
  output         : string;
begin
  output := '';
  leng := length(value);
  idx := 1;
  while idx <= leng do
  begin
    tmpStr := value[idx]+ value[idx + 1];
    if isGB(tmpStr) then
    begin
      offset:=GBOffset(tmpStr);
      if (offset >= 0) and (offset <= 8177) then
      begin
        output := output + WordToString(GBOrder[offset]);
        inc(idx);
      end
      else
        output := output + value[idx] ;
    end
    else
      output := output + value[idx] ;    inc(idx, 1);
  end;
  Result := output;
end;function BIG5toGB_NonAPI(value: string): string;
var
  leng, idx      : integer;
  tmpStr         : string[2];
  output         : string;
  offset         : integer;
begin
  output := '';
  leng := length(value);
  idx := 1;
  while idx <= leng do
  begin
    tmpStr := value[idx]+ value[idx + 1];
    if isBIG5(tmpStr) then
    begin
      offset:=BIG5Offset(tmpStr);
      if (offset >= 0) and (offset <= 14757) then
      begin
        output := output + WordToString(BIG5Order[offset]);
        inc(idx);
      end
      else
        output := output + value[idx];
    end
    else
      output := output + value[idx];    inc(idx);
  end;
  Result := output;
end;

Answer 3

BIG5Order太大我实在发不过来，你可以自己去找了，