多线程使用过程中出现内存泄露，大家来帮我查查在哪个地方。分不多，谢谢帮忙啦。

qtc26 2012-03-09 02:14:45

症状：内存没有明显的上升，但软件挂一天基本就是10几万的句柄数了。
功能说明：不停创建新线程去访问各种不同的网页服务器获得数据显示在窗体listbox中。

相关代码：

unit uhdthread;

interface

uses
Classes,gongyhanshu,SysUtils,EncdDecd,HTTPApp,md5,strutils,math,md5qqpassword,dateutils,ugrthread,forms;

type
thdthread = class(TThread)
private
fhdqq:sendrecord;//自定义记录类型，访问网站需要数据
fhdid:string;;//网页名称，
procedure run;
procedure yilido;
procedure piaowudo;//有很多类似的函数
......
{ Private declarations }
protected
procedure Execute; override;
public
constructor create(huodongqq:sendrecord;hdid:string);
end;

implementation
uses unit1;//主窗体单元文件
var
recivedata:reciverecord;//自定义记类类型，接受网站返回数据

constructor thdthread.create(huodongqq:sendrecord;hdid:string);
begin
inherited create(false);
fhdqq:=huodongqq;
fhdid:=hdid;
end;

procedure thdthread.run;
begin
if fhdid='伊利' then yilido;
if fhdid='QQ票务' then piaowudo;
.....//很多这样的条件语句
end;

procedure thdthread.piaowudo;
var
i:integer;
begin
if fhdqq.hdid='勇士自动' then //自动访问----通过嵌套调用此线程对象完成
begin
for i:=form1.ListView1.Selected.index to form1.ListView1.Items.Count-1 do
begin
fhdqq.hdid:='勇士集结';
thdthread.create(fhdqq,'QQ票务');
sleep(strtoint(form1.pwframe1.Edit2.Text));
end;
end;
if fhdqq.hdid='勇士集结' then //手动访问
begin
......//fhdqq添加访问必需数据
recivedata:=getorpost(fhdqq,false);//接受返回数据
......//处理返回数据并显示
end;
end;

................//很多类似函数

procedure thdthread.Execute;
begin
try
{self.Synchronize(run); }//这里没有采取同步措施
run;
except
listinsert(fhdqq.qqnum,fhdid,'线程运行出错');//句柄数增加大概到15万多的时候只是偶尔会出现这种现象。
end; //这是没有try..finally..end模块也没有设置FreeOnTerminate:true，（好像DELPHI7默认是true)
end;

---------------附公用函数function getorpost(var huodongqq:sendrecord;ckenable:boolean):reciverecord;
var
gethttp:tidhttp;
response,postd:tstringstream;
tmpck:string;
begin
......//idhttp基本设置
response:=tstringstream.Create('');
//开始发送
try
try
if huodongqq.postdata='' then gethttp.Get(huodongqq.url,response)
else
begin
postd:=tstringstream.Create('');
try
postd.WriteString(huodongqq.postdata);
gethttp.Request.ContentLength:=postd.Size;
gethttp.post(huodongqq.url,postd,response);
finally
postd.Free;
end;
end;
if gethttp.responsecode<>200 then
begin
result.cookie:='';
result.response:='402orother';
exit;
end;
if huodongqq.acceptencoding='gzip,deflate' then DecompressGZip(response,response);
tmpck:='';
if ckenable =true then tmpck:=cookieread(gethttp.Response.RawHeaders);
result.cookie:=tmpck;
result.response:=response.datastring;
except
result.cookie:='';
result.response:='网络繁忙';
end;
finally
gethttp.Free;
response.Free;
end;
end;

...全文