请教,COM中内存占用的问题

Description of your first forum.

请教,COM中内存占用的问题

帖子Andy_chen » 星期六, 2006年3月18日 17:31


TransFile(TaskID: Integer; const ComputerID: WideString;
 FileID: Integer; Block: OleVariant; BlockID: Int64): Integer;
这是我的COM接口,客户端调用时占用内存不停的增加,而且增加的时候是在开始调用该接口时出现,请问要怎么样才能释放内存,注:接口中需要释放的地方已全部释放。
 
 
 

请教,COM中内存占用的问题

帖子boy2002cn » 星期六, 2006年3月18日 17:39


不知道,我们的COM也有这个问题,就是把COM组件的那个别分钟超时改了也不行,没办法,用一个服务检测COM调用时的DLLHOST吧,如果超过一定内存就从内存中清除掉DLLHOST,当然一般在没人工作的时候进行.结束就是那个KILLTASK的过程吧
Uses Tlhelp32
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,  FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
 if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase (ExeFileName))
   or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then
 Result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
 ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;  
定时执行KILLTASK就行了,没有了DLLHOST后COM会自动重起一个的,不过这样做就要保存数据存储时都要用到事务,要不可能会出错
 
 
 

请教,COM中内存占用的问题

帖子Andy_chen » 星期六, 2006年3月18日 17:53


但是有个问题哦
我这个上传输文件的,要是很多一起并发的话我要怎么解决阿
 
 
 

请教,COM中内存占用的问题

帖子boy2002cn » 星期六, 2006年3月18日 17:58


半夜再结束DLLHOST不行吧,如果一天的内存消耗太多,不行就用2-N台服务器
传输文件这可是个重活,那个也不敢停呀,如果可能用FTP协议+断点续传,这个可能好些
 
 
 

请教,COM中内存占用的问题

帖子Andy_chen » 星期日, 2006年12月31日 17:17


接受答案了.