请教,COM中内存占用的问题(100分)

  • 主题发起人 主题发起人 Andy_chen
  • 开始时间 开始时间
A

Andy_chen

Unregistered / Unconfirmed
GUEST, unregistred user!
TransFile(TaskID: Integer;
const ComputerID: WideString;
FileID: Integer;
Block: OleVariant;
BlockID: Int64): Integer;
这是我的COM接口,客户端调用时占用内存不停的增加,而且增加的时候是在开始调用该接口时出现,请问要怎么样才能释放内存,注:接口中需要释放的地方已全部释放。
 
不知道,我们的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) <> 0do
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会自动重起一个的,不过这样做就要保存数据存储时都要用到事务,要不可能会出错
 
但是有个问题哦
我这个上传输文件的,要是很多一起并发的话我要怎么解决阿
 
半夜再结束DLLHOST不行吧,如果一天的内存消耗太多,不行就用2-N台服务器
传输文件这可是个重活,那个也不敢停呀,如果可能用FTP协议+断点续传,这个可能好些
 
接受答案了.
 
后退
顶部