文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 293
阅读 9
收藏 0
点赞 0
评论 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
04/25
0
0
vc编程的ime输入法菜单开发

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

crossmix
2014/12/07
0
3
[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
C语言中的字符串处理

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

晨曦之光
2012/03/09
328
0
WindowsAPI每日一练(2) 使用应用程序句柄

WindowsAPI每日一练系列 :https://www.cnblogs.com/LexMoon/category/1246238.html  WindowsAPI每日一练(1) WinMain   WindowsAPI每日一练(2) 使用应用程序句柄 从上面这段程序就可以看...

奶berber
07/03
0
0
Windows数据类型探幽——千回百转你是谁?(3)

续表 注:DECLARE_HANDLE宏的定义如下。 #ifdef STRICT typedef void HANDLE; #define DECLAREHANDLE(name) struct name## { int unused; }; typedef struct name##_ name #else typedef PV......

余二五
2017/11/08
0
0
【算法】算法的艺术(四)

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

wbf961127
2017/11/14
0
0
PHP中strlen和mb_strlen的区别

在PHP中,strlen与mb_strlen是求字符串长度的函数,但是对于一些初学者来说,如果不看手册,也许不太清楚其中的区别。 下面通过例子,讲解这两者之间的区别。 先看例子: <?php //测试时文件...

五味格子
2011/05/19
0
0
strlen和mb_strlen的区别

在php中常见的计算字符串长度的函数有:strlen和mb_strlen.当字符全是英文字符的时候,两者是一样。这里主要比较一下,中英文混排的时候,两个计算结果。 AD:2013云计算架构师峰会超低价抢票...

lg2045
2013/08/27
0
0
strlen和mb_strlen的区别

在PHP中,strlen与mb_strlen是求字符串长度的函数,但是对于一些初学者来说,如果不看手册,也许不太清楚其中的区别。 下面通过例子,讲解这两者之间的区别。 先看例子: <?php //测试时文件...

freedonn
2014/11/07
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Elasitcsearch High Level Rest Client学习笔记(三)批量api

Bulk Request BulkRequest可以在一起从请求执行批量添加、更新和删除,至少需要添加一个操作 BulkRequest request = new BulkRequest(); //创建BulkRequestrequest.add(new IndexRequest("...

木子SMZ
刚刚
0
0
mybatis-dynamic sql

OGNL expressions if 判断是否存在值 <select id="findActiveBlogLike" resultType="Blog"> SELECT * FROM BLOG WHERE state = ‘ACTIVE’ <if test="title != null"> AND title like #{tit......

writeademo
8分钟前
0
0
社交系统ThinkSNS+ V1.8.3更新播报

     研发发布版本号:1.8.3   本次版本于2018年7月16日发布   本次发布类型:新增功能、细节调整与优化   社交系统ThinkSNSPlus更新体验:请于官网下载/安装最新版或联系QQ35159...

ThinkSNS账号
11分钟前
0
0
教育思考:选择编程是一场父母和孩子的和解[图]

教育思考:选择编程是一场父母和孩子的和解[图]: 之前有个很热的段子是这样讲的:深夜十点的时候,某小区一女子大声喊叫“什么关系?啊?!到底什么关系?你说!”最后发现原来是一位妈妈陪...

原创小博客
12分钟前
0
0
X64汇编之指令格式解析

最近由于项目组内要做特征码搜索的东西,便于去Hook一些未导出函数,你懂得...于是就闲着学习了一下x86/x64的汇编指令格式。x86的汇编指令格式请参照http://bbs.pediy.com/showthread.php?t...

simpower
15分钟前
0
0
rust 语法概要(只适合不熟悉时快速查阅使用,不适合理解其精髓。未完待续)

注意:本内容只适合快查,不适合理解精髓。精髓请研读 https://kaisery.github.io/trpl-zh-cn/foreword.html 基本数据类型 i8,i16,i32,i64,i128 u8,u16,u32,u64,u128 f32,f64 char bool:true...

捍卫机密
18分钟前
0
0
JS中严格模式和非严格模式

1,使用 严格模式的使用很简单,只有在代码首部加入字符串 "use strict"。必须在首部即首部指其前面没有任何有效js代码除注释,否则无效 2.注意事项 (1)不使用var声明变量严格模式中将不通...

AndyZhouX
18分钟前
0
0
Nginx配置error_page 404 500等自定义的错误页面

Nginx 做web server时, 开发中发现有时候的网站代码有错误,我们需要跳转到一个指定内容的错误页面: 1. 在nginx.conf配置文件上加上一句: fastcgi_intercept_errors on; 2. 服务中加上: er...

MichaelShu
20分钟前
0
0
微服务架构下的监控系统设计(一)——指标数据的采集展示

前言 微服务是一种架构风格,一个大型复杂软件应用通常由多个微服务组成。系统中的各个微服务可被独立部署,各个微服务之间是松耦合的。每个微服务仅关注于完成一件任务并很好地完成该任务。...

UCloudTech
26分钟前
0
0
极客时间《趣谈网络协议》之开篇词学习笔记

出于个人兴趣,本人在极客时间购买了网易研究院云计算技术部的首席架构师刘超老师关于计算机网络的专栏之《趣谈网络协议》,由于知识版权原因,不能直接分享刘超老师的原文,所以,我会在每次...

aibinxiao
28分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部