mscomm32怎么发中文，求代码

Question

mscomm32怎么发中文，求代码

Answer 1

编码在发送
Function AnsiToUnicodeID(AnsiStr: String): String; 
Var
  I, j, k: Integer;
  S: String;
Begin
  Result:= '';
  If AnsiStr =  '' Then Exit;
  j := 0;
  For I:= 1 To Length(AnsiStr) Do
  Begin
    S := AnsiStr[I];
    k := Ord(S[1]);
    If k  > 127 Then
      If j  <> 0 Then
      Begin
        Result := Result + Format( '#%d', [Ord(WideString(Chr(j) + Chr(k))[1])]);
        j := 0;
      End Else j := k
    Else
      Result := Result + Format( '#%d', [k]);
  End;
End;