高宇 女:DLL函数写法　让我很受教育

来源：百度文库 编辑：中财网 时间：2024/04/28 15:52:27

DLL函数写法　让我很受教育

分类： Delphi 2008-10-07 20:18 190人阅读 评论(0) 收藏 举报

通常我会这样写：

  1. function Test(Str,RValue: PChar): Integer; stdcall;
  2. var S:String; 
  3. begin 
  4.   S:='This is Test'+Str;  
  5.   StrPCopy(RValue,S);
  6.   Result:= Length(S); 
  7. end; 

今天看了CSDN上叫僵哥的一番话，很受教育，如下：

  1. function Test(Src: PChar;srcLen: Integer;Buffer: PChar;var Size: Integer): boolean; stdcall; 
  2. begin 
  3.   Result := false; 
  5.   //最好对指针类必须的参数做一个检查 
  6.   //Assert(Src <> Nil); 
  8.   //Buffer为NULL时,表示仅取数据大小填充Size 
  9.   //当Buffer不足时,通知Size告知实际需求的内容大小,并设置LastError为ERROR_MORE_DATA 
  10.   //注意:在通常情况下,只有处理过程完成才会知道实际所须的空间大小,而在此前是无法预知的 
  11.   //如果仅只传递一个大小回去,就要做完一遍,然后在取数据的时候还需要再做一遍,明显存在设计上的缺陷 
  12.   //最好的办法是考虑使用临时存储所需的信息,以在处理完一遍之后能够直接获取信息. 
  13.   //或者在调用环境支持回调的情况下,增加一个写出回调过程作为参数传进来 
  14.   if (Buffer = Nil) or (Size < srcLen) then begin 
  15.     SetLastError(Byte(Buffer <> Nil) * 234 (*ERROR_MORE_DATA, need more buffer size*) ); 
  16.     Size := srcLen; 
  17.     Exit; 
  18.   end; 
  20.   //正常处理 
  21.   Move(Src^, Buffer^, srcLen); 
  22.   Size := srcLen; 
  23.   Result := true; 
  24.   
  25. end; 

不过还是有个疑问，Move方法出来的字符串最后多了一个@不知道为什么？慢慢消化吧

我们的教育为什么让受教育者讨厌？ 受教育权 受教育权事例 受教育权 人口受教育程度 一件令我受教育的事 小学作文,急用 为什么我加载不了dll中的函数？ 有没有办法让一个dll里面的某个函数失效.? 四川省人均受教育年限 求受教育权事例 怎样维护受教育权？ DLL函数问题 怎样在命令行里直接调用Kernel32.dll中的Beep函数？让喇叭叫？ 连续几个月不教团费要受教育 我国人均受教育年限是多少年 如何正确履行受教育的权利 中国人受教育的目的是什么? ★关于维护受教育权★ 人应受教育 用英语怎么说? 哪些部门机构维护受教育权 没有履行受教育的案例 受教育权平等的问题 为什么受教育是一辈子的事 受教育者应该履行哪些义务？