function GetAbsPath(CurPath:Widestring;DirPath:Widestring):Widestring;
var Buffer:array[0..MAX_PATH - 1] of WideChar;
cBuf:Cardinal;
begin
cBuf:=sizeof(Buffer);
InternetCombineUrlW(PWideChar(CurPath),PWideChar(DirPath),
Buffer,cBuf,ICU_BROWSER_MODE);
Result:=StrPasW(Buffer);
end;这里的 buffer 长度只有 259 , 如果长度超过这个数字就会出错。PWideChar 的最大长度是多少?
var Buffer:array[0..MAX_PATH - 1] of WideChar;
cBuf:Cardinal;
begin
cBuf:=sizeof(Buffer);
InternetCombineUrlW(PWideChar(CurPath),PWideChar(DirPath),
Buffer,cBuf,ICU_BROWSER_MODE);
Result:=StrPasW(Buffer);
end;这里的 buffer 长度只有 259 , 如果长度超过这个数字就会出错。PWideChar 的最大长度是多少?
解决方案 »
- dbgrideh的printdbgrid如何设置默认预览和打印方向是横向
- 打开工程文件delphi7就自动关闭?
- 为何DataModule数据模件中不能放MSCOMM32.ocx ?
- 请问有什么软件可以制作64*64的.cur文件
- 通过串口连接到手机,在写程序发送中文短信时,是否要特别指明是中文短信?
- 关于套打的问题?在线等待。
- delphi Edit1只能显示整数
- 我用query添加数据时,总是在最后一条记录上不断的修改,我该怎么做才能让记录不覆盖?
- 如何把一个listbox中的选择的item双击转移到另外一个listbox中?
- 如何实现在edit中每输入一个字符便出现相应提示的功能??
- 初级数据库问题,在线等待,完成给分!谢谢!
- dbgrid如何显示存储过程中的记录集合?
PWideChar是一个指针类型,当前实现中长度是4bytes。:)
WideString和string一样,可以长到2GB。