var
Form1: TForm1;
hloopHandle:Thandle; //线程 句柄
ThreadID:DWORD ; //线程 idprocedure TForm1.FormCreate(Sender: TObject);
var
Handle:THandle;
begin
Handle:=LoadLibrary('doudi.dll');
GetHtml:=GetProcAddress(Handle,'GetSourceHtml');
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text='') OR (Edit2.Text='') OR (Edit3.Text='') then
begin
MessageBox(self.Handle,'文本框不能为空!','错误',MB_OK);
end
else
begin
hloopHandle:=CreateThread(nil,0,@TForm1.useGetHtml,nil,0,ThreadID);
end;
end; hloopHandle:Thandle; //线程 句柄
ThreadID:DWORD ; //线程 id[/code]定义在函数中,创建线程时就会出现错误,这是为什么
Form1: TForm1;
hloopHandle:Thandle; //线程 句柄
ThreadID:DWORD ; //线程 idprocedure TForm1.FormCreate(Sender: TObject);
var
Handle:THandle;
begin
Handle:=LoadLibrary('doudi.dll');
GetHtml:=GetProcAddress(Handle,'GetSourceHtml');
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (Edit1.Text='') OR (Edit2.Text='') OR (Edit3.Text='') then
begin
MessageBox(self.Handle,'文本框不能为空!','错误',MB_OK);
end
else
begin
hloopHandle:=CreateThread(nil,0,@TForm1.useGetHtml,nil,0,ThreadID);
end;
end; hloopHandle:Thandle; //线程 句柄
ThreadID:DWORD ; //线程 id[/code]定义在函数中,创建线程时就会出现错误,这是为什么
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货