解决方案 »
- delphi调用暴风影音插件
- 怎样向clientdataset动态建立字段
- 类似在excel中工具栏中复制剪切粘贴的功能,点击时可以在不同的sheet窗口中操作,怎么实现?
- 在DEPHI中如何将ScriptErrorsSuppressed的属性添加到TWebBrowser上
- 請教各位!有沒有倒入EXCEL的程序,先做好格式再向單元格中填充數據.
- 字符转换难题
- 再问一次,哪位高手对 RichEdit 控件很熟?
- 尘世间最困难的事莫过于“选择!!!”!何去何从,请你来答,高手相送
- 第一次用ado
- 急!!关于点对点传送文件的问题,高分请教!
- 线程控制和checkBox问题
- socket多进程问题,急
begin
CoInitialize(nil);
end;procedure TThread.Destroy;
begin
CoUninitialize(nil);
end;
也可以在执行函数中procedure TThread.Execute;
begin
CoInitialize(nil);
try
while not Terminated do
begin
...
end;
finally
CoUninitialize(nil);
end;
end;
另外,代码中要在每次获取对象后验证有效性
如SendMessageTimeOut后,要验证lRes是否为0
ObjectFromLresult后,要验证pDoc是否为空
pDoc.parentWindow这样的形式,最好也要验证有效性