Pchar操作问题

wuxuguahuai 2007-11-01 02:24:20

小弟对指针理解不深刻，请各位大侠帮我想想这样的代码该如何实现
p：array[0..31] of char;
str：string;

str：＝'01,02,03,05';
p指向str的地址,限制把p按逗号分为p1[0]='01',p[1]='02'.....等

该怎么实现啊不胜感激！

...全文

61 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

wuxuguahuai 2007-11-01

打赏
举报

如果。。
已经搞定了谢谢楼上

ysai 2007-11-01

打赏
举报

啊,看错了
p1[0]= '01 '
这是不可能的,p只是个char数组,怎么能存两个字符?

ysai 2007-11-01

打赏
举报

copymemory(@p[0], @str[0], length(str));

FateKing 2007-11-01

打赏
举报

你这是字符数组，也不是指针呀！

guokan8686 2007-11-01

打赏
举报

招聘 delphi 程序员(人数：2）
毕业两年以上
两年以上 delphi 工作经验
熟悉 sql server
sql 编写能力突出者优先

联系方式:
深圳中普达科技有限公司
0755 86170837
请将简历发至 guokan8686@163.com

SPComm是Delphi的一个串口操作组件，封装API，与MSCOMM，更加简单易用。网上很多SPComm说能够兼容XE及以上版本，但是对发送字节流数据时PChar参数和字节大小不一致，在发送奇数个字节数据值有Bug，本文使用PAnsiChar替换PChar，解决兼容性问题（经过测试）。备注：为了方便使用，请使用Delphi提供的组件安装功能，对源代码封装打包，安装成组件，使用更加方便。

简介：很多被加壳的 PE 文件在脱壳以后，往往该 PE 文件的资源部分无法用某些资源查看器进行查看、修改。这其中的主要原因是由于很多加壳程序将部分资源（如 Icon、Version Information) 从资源节 (resource section) 移到了壳增加的节里，这导致很多资源查看器不能正确识别分布在两个节里的资源（顺便说一下，PE Explorer 基本能识别大部分这种情况的资源），DT_FixRes 是一个 PE 文件资源修复、重建引擎，它可以将分布在多个节里的资源重新移到一个资源节里，并且对资源进行了完全优化，修复后的资源不含有任何垃圾数据，如同资源编译器的编译效果，可以媲美未加壳前的原始资源。通过本引擎修复、重建脱壳后的 PE 文件资源，可以让所有资源查看器能够对资源部分进行查看、修改。使用者须通过编程方式在自己的程序中使用该引擎。该引擎特别适合进行软件汉化工作的朋友。声明： 1.您可以免费使用该引擎，如果您发布了使用该引擎的程序，请在相关说明中注明该引擎的版权信息，以表示支持作者的辛勤劳动； 2.本软件是安全的，但是作者不承诺对任何由于使用本软件而引起的损失或者伤害负责。使用说明：本引擎以动态链接库（dll）形式实现，该 dll 共输出五个函数，函数按功能分为两大类。第一类：PE 文件资源修复功能。修复后，引擎会无条件地为 PE 文件增加一个资源节，会导致文件体积变大，该功能适合进行简单修复脱壳后 PE 资源部分。 <1> 输出函数 FixResFromFile C 形式函数原型: BOOL __stdcall FixResFromFile(const char* PEFile, char* ErrBuff); Delphi 形式函数原型： function FixResFromFile(const AFileName: PChar; ErrMsg: PChar): Boolean; stdcall; 参数说明： PEFile --- 指向你需要进行资源修正的 PE 文件路径指针； ErrBuff --- 指向一块至少具有 80 个字节空间的 Buffer 指针，在执行该函数返回错误时，接收错误消息。该函数适用任何 Win32 平台的编程语言去调用。 <2> 输出函数 FixResFromStream Delphi 形式函数原型： function FixResFromStream(AStream: TMemoryStream; ErrMsg: PChar): Boolean; 参数说明： AStream 为 PE 映象的内存流，其他说明同 <1> 。此函数对写注册机的朋友特别适用，当你将 dump 出来的 PE 内存映象保存到硬盘之前，你可以先进行资源修复，通过对内存流的操作，可以减少代码工作量。注意：该函数仅适用于 Delphi 语言。第二类：导出重建后的资源节功能。由于不同的加壳程序对原始 PE 文件的结构改变的千差万别，导致对脱壳文件的 PE 结构优化方案也是千差万别的，因此很难在一个程序里完成对所有脱壳类型的 PE 结构优化，引擎将机会留给用户自己。作为使用者，你可能知道如何脱某种类型的壳以及如何优化脱壳后的 PE 结构，那么你也就可能需要将修复后的资源节加载在你认为更合适的 RVA 地址起始处。该功能接口能满足你的这个定制需要，由于该功能的相对复杂性，要求使用者对 PE 结构必须十分属性，因此本功能仅适合高级用户使用。 <1> 输出函数 DumpResFromFile C 形式函数原型: BOOL __stdcall DumpResFromFile(const char* PEFile, char* ResFile, DWORD NewRVA, DWord FileAlign, char* ErrBuff); Delphi 形式函数原型： function DumpResFromFile(const PEFile: PChar; const ResFile: PChar; NewRVA: DWord; FileAlign: DWord; ErrMsg: PChar): Boolean; stdcall; 参数说明： PEFile --- 指向你需要进行资源修正的 PE 文件路径指针； ResFile --- 指向你需要导出的资源节的保存文件路径； NewRVA --- 你希望修复后的 PE 文件资源的加载 RVA 地址，即 resouce data directroy 的 virtual address。该地址应该大于 0x1000，并且应该是 DWORD 边界对齐，建议是 0x1000 的倍数。 FileAlign --- 资源节的文件对齐方式，值只能是 0x200 或者 0x1000。 ErrBuff --- 指向一块至少具有 80 个字节空间的 Buffer 指针，在执行该函数返回错误时，接收错误消息。该函数适用任何 Win32 平台的编程语言去调用。 <2> 输出函数 DumpResFromStream Delphi 形式函数原型： function DumpResFromStream(PEStream: TMemoryStream; const ResFile: string; NewRVA: DWord; FileAlign: DWord; ErrMsg: PChar): Boolean; 参数说明： PEStream 为 PE 映象的内存流，其他说明同 <1> 。通过对内存流的操作，可以减少代码工作量。注意：该函数仅适用于 Delphi 语言。 <3> 输出函数 DumpResFromStreamEx Delphi 形式函数原型： function DumpResFromStreamEx(PEStream: TMemoryStream; ResStream: TMemoryStream; NewRVA: DWord; FileAlign: DWord; ErrMsg: PChar): Boolean; 此函数对写注册机的朋友特别适用，当你将 dump 出来的 PE 内存映象保存到硬盘之前，你可能需要进行 PE 结构的优化，在优化之前很可能需要导出重建的资源节。通过对内存流的操作，可以减少代码工作量。注意：该函数仅适用于 Delphi 语言。特别提示：引擎只在正确 PE 格式的基础上修复、重建 PE 资源，因此应用以上五个函数之前请保证被操作文件或者内存流均具有正确的 PE 格式，否则可能造成不可预期的错误。调用范例（Delphi 语言）： procedure FixResDemo; type TFixPERes = function(const AFileName: PChar; ErrBuff: PChar): Boolean; stdcall; var ErrBuff: array[1..80] of Char; Handle: THandle; FixPERes: TFixPERes; begin Handle := LoadLibrary('DT_FixRes.dll'); if Handle <> 0 then begin @FixPERes := GetProcAddress(Handle, 'FixResFromFile'); if @FixPERes <> nil then if not FixPERes(PChar('ur PE file'), @ErrBuff) then ShowMessage(ErrBuff); FreeLibrary(Handle); end; end;

Delphi移动文件，其实就是模拟了剪切文件再粘贴文件的效果，比较简单的例子，核心的代码也没几行：　　begin moveFileEx(pchar(OpenDialog1.FileName),pchar('C:\' extractfilename(opendialog1.FileName)),MOVEFILE_COPY_ALLOWED); 　　 showmessage('文件已移动到C盘跟目录下'); 　　end 　　else 　　 showmessage('无法复制文件'); 　　end; 　　需要更完整的代码，请下载本Delphi文件移动源码包。

delphi 中文简体转中文繁体 function GB2Big(GB: string): string; var Len: Integer; begin Len := Length(GB); SetLength(Result, Len); LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(GB), Len, PChar(Result), Len); end;

Delphi 获取文件访问时间，也主是最后一次打开文件的时间，基于Delphi7实现。相关代码如下：　　procedure TForm1.SpeedButton1Click(Sender: TObject); 　　begin 　　 if OpenDialog1.Execute then 　　 begin 　　 Edit1.Text := OpenDialog1.FileName; 　　 Edit2.Text := ''; 　　 end; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 if Edit1.Text<>'' then 　　 Edit2.Text := GetDateTime(Pchar(OpenDialog1.FileName)); 　　end; 　　function TForm1.GetDateTime(const FileName: Pchar): string; 　　var 　　 hFile : THandle; 　　 Sy : TSecurityAttributes; 　　 WTime, LTime : TFILETIME; 　　 STime : TSystemTime; 　　begin 　　 Sy.nLength := SizeOf(TSecurityAttributes); 　　 //必需参数　　 Sy.lpSecurityDescriptor := nil; 　　 Sy.bInheritHandle:=False; 　　 hFile := CreateFile(PChar(FileName),GENERIC_READ , 1 ,@Sy,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 1); 　　 if hFile=INVALID_HANDLE_VALUE then 　　 Result:='' 　　 else 　　 begin 　　 GetFileTime(hFile, nil, @WTime, nil); 　　 FileTimeToLocalFileTime(WTime, LTime); 　　 FileTimeToSystemTime(LTime, STime); 　　 Result:=Format('%d年%d月%d日 %2.2d:%2.2d:%2.2d',[STime.wYear,STime.wMonth,STime.wDay,STime.wHour,STime.wMinute,STime.wSecond]); 　　 end; 　　end;

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章