mscomm32怎么发中文，求代码
mscomm32怎么发中文，求代码

[解决办法]

Delphi(Pascal) code

编码在发送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;
[解决办法]
UP上的
[解决办法]
TO 失踪的月亮

高手啊