主页
Top.Mail.Ru Yandeks.Metrika
论坛:“主要”;
当前存档:2004.12.12;
下载:[xml.tar.bz2];

向下

从ANSI重新编码为OEM俄语文本 找到类似的分支


musicman   (2004-11-27 23:10) [0]

同事们!!! 帮助PLIZ ......

任务是这样的,有必要将ANSI编码的俄文文本重新编码为DOS编码...
CharToOem功能没有帮助,它只能与英文文本一起正常工作......
你做什么???



ssk ©   (2004-11-27 23:13) [1]

http://delphibase.endimus.ru/?action=viewfunc&topic=strconvert&id=10476



palva ©   (2004-11-27 23:44) [2]

音乐家(27.11.04 23:10)
>仅适用于英文文本
对于英文字母,ANSI与DOS有何不同?



musicman   (2004-11-27 23:46) [3]

保罗

这完全没有什么不同......
俄罗斯是不同的...并且不记录......:(((



palva ©   (2004-11-27 23:51) [4]

我不知道CharToOem,但AnsiToOem应该可以工作。 这是一个API函数,不依赖于语言环境。 它对德国人和法国人来说都是一样的。



Piter ©   (2004-11-27 23:58) [5]

问题:如何将字符串从OEM编码(DOS)转码为ANSI编码(Windows)并返回? 答案:使用CharToOem和OemToChar函数。 例如: function Win2Dos(const aStr:String):String; 开始 结果:= aStr; 如果结果<>“”那么 CharToOem(PChar(结果),PChar(结果)); 结束; function Dos2Win(const aStr:String):String; 开始 结果:= aStr; 如果结果<>“”那么 OemToChar(PChar(结果),PChar(结果)); 结束; 回答:帕诺夫

它也适用于俄语字母......



musicman   (2004-11-28 00:02) [6]

保罗

也许我做错了什么??? ...
速度:
MemoFam.Lines.Text:= ZAPROS;
开始
N:= MemoFam.Lines.GetText;
AnsiToOem(N,N);
MemoFam.Lines.Text:= StrPas(N);
结束;
ZAPROS:= MemoFam.Lines.Text;

这不起作用......
是的,我忘了说,转换后,文本被记录在一个文本文件中并保存在那里......



palva ©   (2004-11-28 10:35) [7]

1。 AnsiToOem要求两个参数都是PChar类型。
2。 不需要使用StrPas,因为在整个VCL中使用长字符串。
3。 CharToOem也适合我。 以下是控制台应用程序的工作示例:

使用Windows; VAR s1,s2:String; 开始 s1:=“是”; s2:=“健康!”; CharToOem(PChar(s1),PChar(s1)); AnsiToOem(PChar(s2),PChar(s2)); WriteLn(s1,s2); //保持健康 结束。



Страницы: 1 整个分支

论坛:“主要”;
当前存档:2004.12.12;
下载:[xml.tar.bz2];

楼上





内存:0.57 MB
时间:0.055 c
1-1101371135
Inkog
2004-11-25 11:25
2004.12.12
树形


3-1100425443
阿列克谢佩图霍夫
2004-11-14 12:44
2004.12.12
Dbase和俄语


1-1101595689
是谁
2004-11-28 01:48
2004.12.12
向大师提问如何解释以下内存泄漏?


9-1091793832
丹尼斯
2004-08-06 16:03
2004.12.12
SNAKE


3-1100598126
Dmitriy_D
2004-11-16 12:42
2004.12.12
SQL /提醒命令!





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский