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方法出来的字符串最后多了一个@不知道为什么？慢慢消化吧