DELPHI XE7 UDP发送中文命令乱码

[FOREST169]

DELPHI7的代码：
PROCEDURE SENDCMDTOSCREEN( CONST P :INTEGER; CONST S :STRING);
VAR
SIP, S1 :STRING;
CH :ANSISTRING;
UDPClient: TIdUDPClient;
BEGIN
SIP := LINEPLC[P].SIP;
CH := S;
UDPClient := TIdUDPClient.Create( nil);
UDPClient.Host := SIP;
UDPClient.Port := 8869;
UDPClient.ReceiveTimeout := 50;
UDPClient.Send( CH);
SLEEP( 80);
UDPClient.Active := FALSE;
UDPClient.Free;
END;


DELPHI XE7的代码：
PROCEDURE SENDCMDTOSCREEN( CONST P :INTEGER; CONST S :STRING);
VAR
SIP, S1 :STRING;
CH :ANSISTRING;
UDPClient: TIdUDPClient;
BEGIN
SIP := LINEPLC[P].SIP;

CH := UTF8TOANSI( S); //只有这个地方不同

UDPClient := TIdUDPClient.Create( nil);
UDPClient.Host := SIP;
UDPClient.Port := 8869;
UDPClient.ReceiveTimeout := 50;
UDPClient.Send( CH);
SLEEP( 80);
UDPClient.Active := FALSE;
UDPClient.Free;
END;

给同一个服务端发送命令，DELPHI7显示正常，但XE7发送的就显示乱码，请问各位大侠应该怎么处理，谢谢。

[BlueStorm]

CH := UTF8TOANSI( S); 改为 CH := AnsiString( S);

[BlueStorm]

[更正] 删除 CH := UTF8TOANSI( S); 这一行 UDPClient.Send( CH); 改为 UDPClient.Send( CH， IndyTextEncoding_OSDefault)； 这样，接收方收到的是ansi字符串

[BlueStorm]

更正] 删除 CH := UTF8TOANSI( S); 这一行 UDPClient.Send( CH); 改为 UDPClient.Send( S， IndyTextEncoding_OSDefault)； 这样，接收方收到的是ansi字符串

[lao_yunger]

procedure TIdUDPClient.Send(const AData: string; AByteEncoding: IIdTextEncoding = nil
{$IFDEF STRING_IS_ANSI}; ASrcEncoding: IIdTextEncoding = nil{$ENDIF}
);
begin
Send(Host, Port, AData, AByteEncoding{$IFDEF STRING_IS_ANSI}, ASrcEncoding{$ENDIF});
end;

发送方adata:string, 就是你d7下的ANSISTRING；var CH :ANSISTRING; 这一句本身就对了；下面也不用转换编码。接受方也应当是ANSISTRING类型的字符串

[FOREST169]

UDPClient.Send( S， IndyTextEncoding_OSDefault)； 用这个方法可以直接发送ANSI编码。 谢谢两位。