文档章节

WinAPI 字符及字符串函数(14): CharToOem、OemToChar

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 293
阅读 9
收藏 0
CharToOemBuff、OemToCharBuff 与 CharToOem、OemToChar 的区别只是前者可以指定要转换的字符数.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Buf: PWideChar;
  AnsiBuf: array[0..255] of AnsiChar;
begin
  Buf := '万一的 Delphi 博客';
  CharToOem(Buf, AnsiBuf);
  ShowMessage(string(AnsiBuf)); {万一的 Delphi 博客}

  FillChar(AnsiBuf, Length(AnsiBuf), #0);

  CharToOemBuff(Buf, AnsiBuf, 6);
  ShowMessage(string(AnsiBuf)); {万一的 De}
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  str: string;
  p: PAnsiChar;
begin
  str := '万一的 Delphi 博客';

  p := GetMemory(256);
  CharToOem(PChar(str), p);
  ShowMessage(string(p)); {万一的 Delphi 博客}
  FreeMemory(p);

  p := GetMemory(256);
  CharToOemBuff(PChar(str), p, 6);
  ShowMessage(string(p)); {万一的 De}
  FreeMemory(p);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  AnsiBuf: PAnsiChar;
  Buf: array[0..255] of Char;
begin
  AnsiBuf := '万一的 Delphi 博客';
  OemToChar(AnsiBuf, buf);
  ShowMessage(string(Buf)); {万一的 Delphi 博客}

  FillChar(Buf, Length(Buf), #0);

  OemToCharBuff(AnsiBuf, buf, 6);
  ShowMessage(string(Buf)); {万一的}
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  AnsiStr: AnsiString;
  p: PChar;
begin
  AnsiStr := '万一的 Delphi 博客';

  p := StrAlloc(256);
  OemToChar(PAnsiChar(AnsiStr), p);
  ShowMessage(string(p)); {万一的 Delphi 博客}
  StrDispose(p);

  p := StrAlloc(256);
  OemToCharBuff(PAnsiChar(AnsiStr), p, 6);
  ShowMessage(string(p)); {万一的}
  StrDispose(p);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/11/06/1328362.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Win32多语言IME应用程序编程接口(API)

十三、IMM函数 1、IMM用户界面函数 以下是用户界面窗口可以使用的输入法管理器函数。应用程序也可以使用它们改变输入法的状态。 ImmGetCompositionWindow ImmSetCompositionWindow ImmGetCa...

yousss
2018/04/25
0
0
vc编程的ime输入法菜单开发

WINDOWS 下 IME 编程 IME 编程心得 第一章 Windows9x 系统下汉字输入法的基本原理 第二章 Windows9x 系统提供的 ime 管理函数 第三章 ime 文件中必须使用的结构 自由拼音输入法的测试 输入法...

crossmix
2014/12/07
0
3
C语言中的字符串处理

•字符串字面量(字符串常量,在C标准中称为,字符串字面量) 如何存储字符串字面量 从本质上而言,C语言把字符串字面量作为字符数组来处理。当C语言编译器在程序中遇到长度为n的字符串字面量时...

晨曦之光
2012/03/09
344
0
[Beautifulzzzz的博客目录] 快速索引点这儿O(∩_∩)O~~,红色标记的是不错的(⊙o⊙)哦~

3D相关开发 [direct-X] 1、direct-X最小框架 [OpenGL] 1、环境搭建及最小系统 [OpenGL] 2、企业版VC6.0自带的Win32-OpenGL工程浅析 51单片机 [51单片机] 1602液晶显示控制代码 [51单片机] 1...

史迪奇2号
2017/08/01
0
0
【算法】算法的艺术(四)

数组作计数器   一篇文章共有10行,每行最多80字符,编程统计文章中26个英文字母分别出现的次数(不区分大小写)。   实例解析:   文章的内容可以通过键盘输入到一个二维数组中:   ...

wbf961127
2017/11/14
0
0

没有更多内容

加载失败,请刷新页面

加载更多

OSChina 周一乱弹 —— 白掌柜说了卖货不卖身

Osc乱弹歌单(2019)请戳(这里) 【今日歌曲】 @爱漫爱 :这是一场修行分享羽肿的单曲《Moony》 手机党少年们想听歌,请使劲儿戳(这里) @clouddyy :开不开心? 开心呀, 我又不爱睡懒觉…...

小小编辑
今天
8
0
大数据教程(11.7)hadoop2.9.1平台上仓库工具hive1.2.2搭建

上一篇文章介绍了hive2.3.4的搭建,然而这个版本已经不能稳定的支持mapreduce程序。本篇博主将分享hive1.2.2工具搭建全过程。先说明:本节就直接在上一节的hadoop环境中搭建了! 一、下载apa...

em_aaron
今天
3
0
开始看《JSP&Servlet学习笔记》

1:WEB应用简介。其中1.2.1对Web容器的工作流程写得不错 2:编写Servlet。搞清楚了Java的Web目录结构,以及Web.xml的一些配置作用。特别是讲了@WebServlet标签 3:请求与响应。更细致的讲了从...

max佩恩
今天
4
0
mysql分区功能详细介绍,以及实例

一,什么是数据库分区 前段时间写过一篇关于mysql分表的的文章,下面来说一下什么是数据库分区,以mysql为例。mysql数据库中的数据是以文件的形势存在磁盘上的,默认放在/mysql/data下面(可...

吴伟祥
今天
3
0
SQL语句查询

1.1 排序 通过order by语句,可以将查询出的结果进行排序。放置在select语句的最后。 格式: SELECT * FROM 表名 ORDER BY 排序字段ASC|DESC; ASC 升序 (默认) DESC 降序 1.查询所有商品信息,...

stars永恒
今天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部