Q
qtlove
Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下：
for i:=14 to 20do
begin
str_url0 := 'http://searchjob.chinahr.com/BrowseOneJobInfo.aspx?jid=222002008805230002';
str_url := str_url0+IntToStr(i)+'&createdate=2006-01-12';
st := TStringStream.Create('');
IdHTTP1.Get(str_url,st);
str_content := st.DataString;
st.Free;
with ADOQuery1do
begin
Close;
sql.Clear;
SQL.Add('insert into temp(webinfo,url,content) values
prm_webinfo,
rm_url,rm_content)');
Parameters.ParamByName('prm_webinfo').Value := str_webinfo;
Parameters.ParamByName('prm_url').Value := str_url;
Parameters.ParamByName('prm_content').Value := str_content;
Prepared;
ExecSQL;
end;
end;
上面的代码，执行效率过低。我想将它多线程实现。
有人说：只要把idhttp在线程里面实现就可以了，线程完成后把所获得的数据（datastring）传出来让主线程执行数据库操作。
对多线程了解不多，还望大家具体指导下。最好根据上面的代码写个实例什么的，谢谢了。分数不多，如解答，下次顶补！
for i:=14 to 20do
begin
str_url0 := 'http://searchjob.chinahr.com/BrowseOneJobInfo.aspx?jid=222002008805230002';
str_url := str_url0+IntToStr(i)+'&createdate=2006-01-12';
st := TStringStream.Create('');
IdHTTP1.Get(str_url,st);
str_content := st.DataString;
st.Free;
with ADOQuery1do
begin
Close;
sql.Clear;
SQL.Add('insert into temp(webinfo,url,content) values
prm_webinfo,rm_url,rm_content)');Parameters.ParamByName('prm_webinfo').Value := str_webinfo;
Parameters.ParamByName('prm_url').Value := str_url;
Parameters.ParamByName('prm_content').Value := str_content;
Prepared;
ExecSQL;
end;
end;
上面的代码，执行效率过低。我想将它多线程实现。
有人说：只要把idhttp在线程里面实现就可以了，线程完成后把所获得的数据（datastring）传出来让主线程执行数据库操作。
对多线程了解不多，还望大家具体指导下。最好根据上面的代码写个实例什么的，谢谢了。分数不多，如解答，下次顶补！