盒子论坛 v2.1

部分代码：
procedure TFileWatchThread.Execute;
var
  numBytes: DWORD;
  CompletionKey: DWORD;

  begin
  while not Terminated do
  begin
    GetQueuedCompletionStatus( FPCompletionPort^, numBytes, CompletionKey, FPOverlapped, INFINITE);

    if CompletionKey <> 0 then
    begin
      Synchronize(HandleEvent);
      FBytesWritten := 0;
      ZeroMemory(@FNotificationBuffer, SizeOf(FNotificationBuffer));
      ReadDirectoryChanges(FPDirectoryHandle^, @FNotificationBuffer,
        SizeOf(FNotificationBuffer), WatchSubTree, FNotifyFilter,
        @FBytesWritten, @FOverlapped, nil);
    end
    else
      Terminate;
  end;
end;

完整代码见附件，代码部分有点儿长，就没有全部贴出来。
~~~~~~~~~~
出错提示： [dcc32 Error] Unit1.pas(185): E2033 Types of actual and formal var parameters must be identical
用D7可直接编译没有问题，换成delphi 10.2.3编译就不行了。求大神带路。~
出错点就在 GetQueuedCompletionStatus( FPCompletionPort^, numBytes, CompletionKey, FPOverlapped, INFINITE); 这一句。。

此帖子包含附件:psstudio_20181022144824.rar 大小:17.8K

----------------------------------------------
-

作者：

wntee (wntee)	▲▲▲▲△	-
	普通会员

2018/10/22 15:38:00

1楼：

典型的只会抄不会思考
----------------------------------------------
当前后左右都没有路时,命运一定是鼓励你向上飞了...

作者：

psstudio (天下)	★☆☆☆☆	-
	普通会员

2018/10/22 15:38:46

1楼：

找到原因了，delphi 10.2.3 修改了这个函数定义：
function GetQueuedCompletionStatus(CompletionPort: THandle;
var lpNumberOfBytesTransferred: DWORD; var lpCompletionKey: ULONG_PTR;
var lpOverlapped: POverlapped; dwMilliseconds: DWORD): BOOL; stdcall;

所以出错的位置这样子修改：
GetQueuedCompletionStatus( FPCompletionPort^, numBytes, ULONG_PTR(CompletionKey), FPOverlapped, INFINITE);
就可以编译通过了。。
----------------------------------------------
-

作者：

bujin888 (bujin888)	★☆☆☆☆	-
	普通会员

2018/10/22 19:47:55

2楼：

嗯人家直接能找到原因证明还是会思考的，现在论坛的学习交流氛围极差，有一些基础比较差的人问一些小白问题，只会惹来很多人讽刺嘲笑，就是没有人去好好的回答问题！既不给渔也不给鱼！
----------------------------------------------
http://www.ressss.com

作者：

wang_80919 (Flying Wang)	★☆☆☆☆	-
	普通会员

2018/10/22 19:57:53

3楼：

这就是基础中的基础。
自己能找到答案，说明楼主是两手准备。
但是论坛上，更多的是，自己从来不动脑子的。
人家的脑子太高贵，动不得。
只好动你的。
----------------------------------------------
(C)(P)Flying Wang

作者：

psstudio (天下)	★☆☆☆☆	-
	普通会员

2018/10/22 21:46:40

4楼：

我也不完全是伸手党，全部自学，慢慢研究。只是希望DELPHI有更多人来学习，讨论。。向楼上2位大神学习。。
----------------------------------------------
-

作者：

feiyanm (feiyanm)	▲▲▲▲▲	-
	普通会员

2018/10/23 8:36:06

5楼：

@bujin888，素质差的人太多了，你只能选择无视，或者同意他的一切观点，把他培养成大SB！我觉得我现在都在认真走第二条路，供君参考！
----------------------------------------------
Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！我去WC吐一会儿去！

信息

登陆以后才能回复