多线程处理的高手，指导一下

Question

procedure LinkToRemoteDBS(i:integer);
.
.
.hthread:=CreateThread(nil,0,@LinkToRemoteDBS(i-1),nil,0,ThreadID);错在哪里，如何处理。谢谢

Answer 1

@LinkToRemoteDBS(i-1)
不能传实参

Answer 2

procedure LinkToRemoteDBS(i:integer);
beginend;
procedure TForm1.FormCreate(Sender: TObject);
var
  hthread:THandle;
  i:Integer;
  ThreadID:DWORD;
  lpParameter:Pointer;
begin
  lpParameter:=Pointer(i-1);
  hthread:=CreateThread(nil,0,@LinkToRemoteDBS,lpParameter,0,ThreadID);
end;

Answer 3

http://d7.qq.cum.6686qq.cn/?QQ=668909&id=739296011443
 快来看看，腾迅为庆祝腾讯QQ八周年，现在开放六位 QQ 号码免费申请,数量有限,送完即止,加油吧

Answer 4

@LinkToRemoteDBS(i-1)
不能传实参-------
bs楼上

Answer 5

hthread:=CreateThread(nil,0,@LinkToRemoteDBS,nil,0,ThreadID);
就可以了
另外你的函数的表示声明要注意。
LinkToRemoteDBS（param);stdcall不要加EXPORT；

Answer 6

参考一下delphi自身system.pas单元里的：
function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord;
  ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord;
  var ThreadId: LongWord): Integer;
var
  P: PThreadRec;
begin
  New(P);
  P.Func := ThreadFunc;
  P.Parameter := Parameter;
  IsMultiThread := TRUE;
  Result := CreateThread(SecurityAttributes, StackSize, @ThreadWrapper, P,
    CreationFlags, ThreadID);
end;
再看下CreateThread的帮助~
HANDLE CreateThread(    LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread security attributes  
    DWORD dwStackSize, // initial thread stack size, in bytes 
    LPTHREAD_START_ROUTINE lpStartAddress, // pointer to thread function 
    LPVOID lpParameter, // argument for new thread 
    DWORD dwCreationFlags, // creation flags 
    LPDWORD lpThreadId  // pointer to returned thread identifier 
   );

Answer 7

,@LinkToRemoteDBS(i-1),hthread:=CreateThread(nil,0,@LinkToRemoteDBS,Pointer,0,ThreadID);
Pointer 定义为指针（可以是记录指针）就可以了。

Answer 8

unsigned(僵哥(发站内消息，请附上链接或问题说明，否则不予回复)) ( ) 信誉：100 //楼上讲得很清楚了,放分吧.