Delphi中String与PAnsiChar转换

最新推荐文章于 2023-10-19 08:52:15 发布
最新推荐文章于 2023-10-19 08:52:15 发布
阅读量9.5k 收藏 2
点赞数 3
分类专栏： 乱七八糟

在application.messagebox()函数中的第一个参数要用到PAnsiChar。

所有的原生字符串类型String转PAnsiChar都需要经过AnsiString过渡

strAnsi:= PAnsiChar(AnsiString(str));

 

H-KING
关注
  • 3
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
Delphi测试端口是否有效源代码.rar
07-10
Delphi测试端口是否有效源代码，你可以手动输入各个端口，本程序可以测试到该端口是否处于开放状态，功能仅此而已，比较简单的端口测试程序。源代码如下所示： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 if ComPortAvailable(PAnsiChar(Edit1.Text)) then 　　 ShowMessage('端口可用') 　　 else 　　 ShowMessage('端口无效'); 　　end;
Delphi 第4章 高级数据类型
01-20
Delphi 第4章 高级数据类型 Delphi 拥有一个可视化的集成开发环境(IDE），采用面向对象的编程语言ObjectPascal和基于部件的开发结构框架。
Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结
09-07
Delphi7升级到Delphi 2010、Delphi XE、Delphi XE2总结 !最后有个项目要移植到64位，所以这个很有用。在2010中PChar已经不再表示PAnsiChar而是表示PWideChar，如果依然这样写，运行时很可能会得到一个内存访问错误。因为每 次Inc(P)，实际上指针向前移动了2字节，因为SizeOf(WideChar)=2，Inc(P)相当于 P:=P+SizeOf(WideChar)。 解决方法是把PChar替换成PAnsiChar
utf8与string的相互转换
10-25
通过函数调用方式，实现了utf8与string的相互转换，可以非常方便的将string转换为utf8。
delohi7和delphi2010字符串之间的转换
03-15
delphi7和delphi2010直接因字符串编码方式不一样，不能直接调用，本例子是本人编写的ascii码和unico之间的转变。同时也可以解决很多delphi2010调用delphi7编写的动态库连接问题
Delphi Char、Pchar 、String 相互转换
AI创世纪的博客
10-19 1194
【代码】Delphi Char、Pchar 、String 相互转换。
delphixe下pchar和pansichar的转换
岁月如歌
08-05 5572
本文转自：http://apps.hi.baidu.com/share/detail/34012983 这是在D7下的代码完全正常： var tem:DWORD; begin tem:= htonl(ntohl(inet_addr(Pchar(edtPing1.T
关于Delphi下PAnsiChar的使用
cmd9x的专栏
02-23 3049
与C语言对应的类型为char *，意为单字节字符串指针，在Delphi下的string类型是带引用计数的，有专门的内存管理sharemm单元，在dll之间引用该单元后可以导出使用string参数的导出函数，供delphi编译的exe使用（要注意delphi版本差异） 反之，delphi实现的功能要供其它语言调用时，字符串只能使用PAnsiChar或PChar，下面仅以PAnsiChar举例（PChar类同） 一、作用域问题 返回值或可变参数为PAnsiChar时，必须申请内存（通常是被调用方申请，调用
Delphi与Windows API数据类型对照表
07-09
Delphi与Windows API数据类型对照表Windows 数据类型 Delphi 数据类型 描述 LPSTR PAnsiChar 字符串指针 LPCSTR PAnsiChar 字符串指针 DWORD LongWord 整数 等等。
在Delphi中定义自己图标的消息框〖源代码〗
04-20
应用程序在运行当中经常要输出各种即时信息，Delphi提供了多种形式的消息对话框可以满足这些要求，尽管可以使用各种标志定制一个消息框，但仍不能将自己的图标放在消息框内，也不能修改其标准行为去创建自己的消息框，其实通过调用函数MessageBoxIndirect()就很容易绕过这些明确的限制，这是一个功能很强、易于使用的函数。 ---- 此函数在WINDOWS单元里面，文件位于Delphi安装路径Source\Rtl\Win里面，需要指出的是，Delphi的原代码中它的返回值类型是BOOL型，而实质上它的返回值应为Integer。修改方法：在WINDOWS单元中找到此函数后，把BOOL改为Integer，共有三处要修改，然后在Delphi安装路径Lib中找到WINDOWS.DCU文件，把它改名或者删除，并把修改后的WINDOWS.PAS源码复制到Lib路径中。 ---- 该函数只有一个参数，类型是TMsgBoxParams，它的结构及说明如下： tagMSGBOXPARAMSA = packed record cbSize: UINT; {数据结构的长度} hwndOwner: HWND; {所有者窗口句柄} hInstance: HINST; {应用程序实例句柄} lpszText: PAnsiChar; {在消息框客户区内显示的文本} lpszCaption: PAnsiChar; {标题栏文本} dwStyle: DWORD; {确定消息框内按钮和图符 的数量及种类的MB_标志} lpszIcon: PAnsiChar; {从资源文件中取出的一个 图符资源的名字} dwContextHelpId: DWORD; {指定帮助文本的ID号} lpfnMsgBoxCallback: TPRMsgBoxCallback; {当用户按下HELP按钮时调用的一个回 调函数} dwLanguageId: DWORD; {显示在按钮内文本的语言定义} end; ---- 由于直接使用此函数比较复杂，我们可以自定义一个函数来封装此函数，对它进行简化,在用法上尽量做到与Delphi的消息框相一致，自定义函数代码如下： function MessageEx (lText,lCaption:PChar; lStyle:DWord;lIcon:PChar):Integer; var Msg:TMsgBoxParams; begin Msg.cbSize:=Sizeof(Msg); Msg.hwndOwner:=Application.Handle; Msg.hInstance:=hinstance; Msg.lpszText:=lText; Msg.lpszCaption:=lCaption; Msg.dwStyle:=lStyle; Msg.lpszIcon:=lIcon; Msg.dwContextHelpId:=1; Msg.lpfnMsgBoxCallback:=nil; Msg.dwLanguageId:=LANG_NEUTRAL; Result:=MessageBoxIndirect(Msg); end; ---- 要想在消息框中显示自己的图标，先准备一个装有图标的资源文件，加在程序中，如{$R c:\mydir\myres.res}，在lStyle参数里除了所需的MB_标志外还要加上MB_USERICON标志，并在最后一个参数里写上资源文件中图标的名字，如果不想使用自定义的图标，可将最后一个参数设为nil。函数的其它用法和返回值的处理与Delphi提供的消息框一样。 ---- 强烈建议把自定义函数放在一个单元文件里，并把此文件放在Delphi的搜索路径如Lib下，以后只需要把此单元加在uses语句里，就可以直接使用自定义函数，非常方便。
Delphi String类型和PChar类型使用的区别.rar
07-10
Delphi 以实例演示String类型和PChar类型使用的区别，演示了PChar静态分配空间和PChar动态分配空间： 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 PStr:array [0..100] of Char; 　　begin 　　 StrPCopy(PStr,'String类型和PChar类型使用的区别'); 　　 ShowMessage(PStr); 　　end; 　　procedure TForm1.Button2Click(Sender: TObject); 　　var 　　 PStr:PChar; 　　begin 　　 GetMem(PStr,100); 　　 StrPCopy(PStr,'String类型和PChar类型使用的区别'); 　　 ShowMessage(PStr); 　　end;
delphi2010中String与PAnsiChar转换
热门推荐
敦格
01-20 1万+
delphi2010中String与PAnsiChar转换
Delphi——类型PAnsiChar转换
OceanIX的专栏
03-15 1454
来源 int转PAnsiChar,分两步，先整型转字符，再字符转PAnsiChar var pc:PAnsiChar; num:Integer; begin num :=1; pc :=PAnsiChar(IntToStr(num )); end;
delphi 数据处理
dkopg24406的专栏
08-13 406
TStringStream 怎样转换String procedure TForm1.Button1Click(Sender: TObject); var ss:TStringStream; str:String; begin ss:=TStringStream.Create(''); for i:=0 to 99 do ...
node-v7.2.0-linux-arm64.tar.xz
最新发布
05-08
Node.js，简称Node，是一个开源且跨平台的JavaScript运行时环境，它允许在浏览器外运行JavaScript代码。Node.js于2009年由Ryan Dahl创立，旨在创建高性能的Web服务器和网络应用程序。它基于Google Chrome的V8 JavaScript引擎，可以在Windows、Linux、Unix、Mac OS X等操作系统上运行。 Node.js的特点之一是事件驱动和非阻塞I/O模型，这使得它非常适合处理大量并发连接，从而在构建实时应用程序如在线游戏、聊天应用以及实时通讯服务时表现卓越。此外，Node.js使用了模块化的架构，通过npm（Node package manager，Node包管理器）,社区成员可以共享和复用代码，极大地促进了Node.js生态系统的发展和扩张。 Node.js不仅用于服务器端开发。随着技术的发展，它也被用于构建工具链、开发桌面应用程序、物联网设备等。Node.js能够处理文件系统、操作数据库、处理网络请求等，因此，开发者可以用JavaScript编写全栈应用程序，这一点大大提高了开发效率和便捷性。 在实践中，许多大型企业和组织已经采用Node.js作为其Web应用程序的开发平台，如Netflix、PayPal和Walmart等。它们利用Node.js提高了应用性能，简化了开发流程，并且能更快地响应市场需求。
Delphi RSA XML公钥
11-17
根据提供的引用内容，我理解您想了解如何在Delphi中使用RSA加密算法，并且使用XML格式的公钥。下面是一个简单的Delphi代码示例，演示如何使用RSA加密算法和XML格式的公钥： ```delphi uses IdSSLOpenSSL, IdGlobal, IdCTypes, IdHash, IdHashSHA, IdHMAC, XMLDoc, XMLIntf, XMLDom, msxmldom, XMLDoc, xmldom, XMLIntf; function EncryptRSA(const AInput: string; const APublicKey: string): string; var LInput: TIdBytes; LCtx: PSSL_CTX; LKey: PSSL; LKeyBio: PBIO; LKeyEvp: PEVP_PKEY; LOutLen: Integer; LOut: TIdBytes; LBase64: TIdEncoderMIME; LXmlDoc: IXMLDocument; LRootNode, LKeyNode: IXMLNode; begin // 将输入字符串转换为字节数组 LInput := ToBytes(AInput, IndyTextEncoding_UTF8); // 初始化OpenSSL库 IdSSLOpenSSL.LoadOpenSSLLibrary; SSL_library_init; SSL_load_error_strings; // 创建SSL上下文 LCtx := SSL_CTX_new(RSA_PKCS1_PADDING, nil); try // 创建SSL对象 LKey := SSL_new(LCtx); try // 将公钥读入BIO LKeyBio := BIO_new(BIO_s_mem); try BIO_puts(LKeyBio, PAnsiChar(APublicKey)); // 从BIO中读取公钥 LKeyEvp := nil; PEM_read_bio_PUBKEY(LKeyBio, LKeyEvp, nil, nil); try // 使用公钥加密数据 SetLength(LOut, RSA_size(LKeyEvp.rsa)); LOutLen := RSA_public_encrypt(Length(LInput), PByte(LInput), PByte(LOut), LKeyEvp.rsa, RSA_PKCS1_PADDING); // 将加密后的数据转换为Base64字符串 LBase64 := TIdEncoderMIME.Create(nil); try Result := LBase64.EncodeBytes(LOut, 0, LOutLen); finally LBase64.Free; end; finally EVP_PKEY_free(LKeyEvp); end; finally BIO_free(LKeyBio); end; finally SSL_free(LKey); end; finally SSL_CTX_free(LCtx); end; // 将公钥保存为XML格式 LXmlDoc := NewXMLDocument; LRootNode := LXmlDoc.AddChild('RSAKeyValue'); LKeyNode := LRootNode.AddChild('Modulus'); LKeyNode.Text := APublicKey; LKeyNode := LRootNode.AddChild('Exponent'); LKeyNode.Text := 'AQAB'; Result := LXmlDoc.XML.Text; end; ``` 上面的代码演示了如何使用Delphi中的OpenSSL库进行RSA加密，并将公钥保存为XML格式。您需要将OpenSSL库添加到您的Delphi项目中，并在代码中引用它。此外，您还需要使用XMLDoc、XMLIntf和XMLDom单元来处理XML文档。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值