teamleader

据说delphi5到delphi7一直有这个bug，不知道更高的版本有没有改过来

我用的是delphi7

对Delphi了解得并不多，这次写ocx也是赶鸭子上架。所以这个bug的原因我也说不明白，但是确实把问题解决了，下面把解决方法说一下（其实也都是从网上搜的，稍加整理）

1、到delphi安装目录下，找到Source\VCL\AxCtrls.pas文件（这个文件中的代码有bug），拷贝到你的项目文件夹下，把这个文件添加为你项目的一部分（这样delphi就会应用你修改后的AxCtrls.pas）

2、找到AxCtrls.pas文件中的函数ParkingWindow，用下面的代码替换

  function   ParkingWindow:   HWND;  
  var  
      TempClass:   TWndClass;  
      ParkingName   :   String;  
  begin  
      Result   :=   xParkingWindow;   
      //if   Result   <>   0   then   Exit;   //这行代码在delphi5和delphi6中好像不用注释掉
    
      //   fix   Dax   error   :   accessviolation   (win2k,   win   xp)  
      ParkingName   :=   'DAXParkingWindow_'   +       Format('%p',   [@ParkingWindowProc]);  
   
      FillChar(TempClass,   sizeof(TempClass),   0);  
      if   not   GetClassInfo(HInstance,   PChar(ParkingName),   TempClass)   then   //   fix   Dax   error   :   accessviolation   (win2k,   win   xp)  
      begin  
          TempClass.hInstance   :=   HInstance;  
          TempClass.lpfnWndProc   :=   @ParkingWindowProc;  
          TempClass.lpszClassName   :=   PChar(ParkingName);   //   fix   Dax   error   :   accessviolation   (win2k,   win   xp)  
          if   Windows.RegisterClass(TempClass)   =   0   then  
              raise   EOutOfResources.Create(SWindowClass);  
      end;  
      xParkingWindow   :=   CreateWindowEx(WS_EX_TOOLWINDOW,   TempClass.lpszClassName,   nil,  
          WS_POPUP,   GetSystemMetrics(SM_CXSCREEN)   div   2,  
          GetSystemMetrics(SM_CYSCREEN)   div   2,   0,   0,   0,   0,   HInstance,   nil);  
      SetWindowPos(xParkingWindow,   0,   0,   0,   0,   0,   SWP_NOACTIVATE   or   SWP_NOREDRAW  
          or   SWP_NOZORDER   or   SWP_SHOWWINDOW);  
      Result   :=   xParkingWindow;  
  end;  

3、编译项目即可

参考资料：

http://www.delphibbs.com/delphibbs/dispq.asp?lid=919005

http://blog.chinaunix.net/u/4831/showart_187926.html，这个文档说delphi7解决不了，其实是少注释了一行代码

IISreset.exe /stop 

cscript adsutil.vbs set w3svc/filters/compression/parameters/HcDoDynamicCompression true

cscript adsutil.vbs set w3svc/filters/compression/parameters/HcDoStaticCompression true 

cscript.exe adsutil.vbs set W3Svc/Filters/Compression/GZIP/HcFileExtensions "htm" "html" "txt" "ppt" "xls" "xml" "pdf" "xslt" "doc" "xsl" "htc" "js" "css" 

cscript.exe adsutil.vbs set W3Svc/Filters/Compression/DEFLATE/HcFileExtensions "htm" "html" "txt" "ppt" "xls" "xml" "pdf" "xslt" "doc" "xsl" "htc" "js" "css" 

cscript.exe adsutil.vbs set W3Svc/Filters/Compression/GZIP/HcScriptFileExtensions "asp" "dll" "exe" "aspx" "asmx" "ashx" 

cscript.exe adsutil.vbs set W3Svc/Filters/Compression/DEFLATE/HcScriptFileExtensions "asp" "dll" "exe" "aspx" "asmx" 

cscript.exe adsutil.vbs set W3Svc/Filters/Compression/GZIP/HcDynamicCompressionLevel "9"

cscript.exe adsutil.vbs set W3Svc/Filters/Compression/DEFLATE/HcDynamicCompressionLevel "9" 

IISreset.exe /restart

把该批处理文件拷贝到c:\inetpub\AdminScripts下执行即可

Men are all alike in their promises.

It is only in their deeds that they differ.

FileStream fss = File.OpenRead(@"d:\a.dll");

FileStream fsd = File.OpenWrite(@"d:\b.dll");

int bytesRead = 0;

while ((bytesRead = fss.Read(buffer, 0 , bufferSize)) > 0)

{

    fsd.Write(buffer, 0, bytesRead);

}

fss.Close();

fsd.Close();

Stream si = File.OpenRead(@"d:\a.dll");

Stream so = File.OpenWrite(@"d:\b.dll");

BufferedStream bsi = new BufferedStream(si);

BufferedStream bso = new BufferedStream(so);

while ((bytesRead = bsi.Read(buffer, 0 , bufferSize)) > 0)

{

    bso.Write(buffer, 0, bytesRead);

}

bio.Flush();

bsi.Close();

bso.Close();

TextReader两个子类：StreamReader和StringReader

• x.Read为从x中读取
• y.Write为往y中写入
• 被写入的流可以调用Flush方法
• 流通常都没有Open方法，也不需要Open
• 流都有Close方法，且必须调用
• 使用缓冲流（BufferedStream）会提高效率，因为你自定义的buffer大小不一定是正合适的
• 流可以叠加、嵌套，可以认为有内在流和外部流之分，当调用外部流的Close方法时，它会自动调用内在流的Close方法
• 流本身可以认为就是字节流，为了使用方便，我们通常会用...Reader和...Writer
• 构造...Reader的方法通常有两种：1 File.OpenText类，2 StreamReader sr = new StreamReader(源流)

1. 买商品房太贵，买经济适用房没资格。——都市工薪族
2. 有大理想的人，总是要牺牲小的乐趣。
3. 物价连连上涨，还说老百姓承担得起。不知说谎的人会不会脸红，他们是长期白吃白喝，还是不食人间烟火？
4. 人永远不用和猪摔跤，双方搞得一身泥，正是猪喜欢的结果。
5. 大学应该是社会的理想模型，而不应该是社会的缩影。
6. 不准对我耍酷、不准让我吃醋、吵架你要让步、揍你你要挺住。——野蛮女友
7. 虽然我家里穷，但是，我在道德上并不处于劣势。慈善资助不是助学贷款，也不是交易。
8. 男：我赚钱就是为了喝酒；女：我喝酒就是为了赚钱。
9. 你可以侮辱我的人格，绝不可以侮辱我的智商。

用了DevExpress的GridControl，在数据绑定的时候，出现过几次莫名奇妙的问题，数据已经在DataTable中存在了，但是GridControl中的显示好像是不稳定的状态，Grid最下方的新行的Indicator显示比较奇怪，是一个小星星。再做其他操作的时候，这行还会消失。

最终执行了bindingSource.ResetBindings(false)解决了。

在这打个记号，备忘！

测试

真的那么好用吗？

果然好用诶！

在我开发的WinForm+WebService程序中，偶尔会出现WebService无法调试的状况，莫名其妙地就会跟踪到这样的代码段：
[System.Diagnostics.DebuggerNonUserCodeAttribute()]
[System.ComponentModel.BrowsableAttribute(true)]
[System.ComponentModel.DesignerSerializationVisibilityAttribute(System.ComponentModel.DesignerSerializationVisibility.Visible)]
public override System.Data.SchemaSerializationMode SchemaSerializationMode {
 get {
  return this._schemaSerializationMode;
 }
 set {
  this._schemaSerializationMode = value;
 }
}

解决方法是对IDE进行设置：【工具】-【选项】-【调试】-【常规】，去掉[启用“仅我的代码”(仅限托管)]设置项前面的复选框。

也有人说删除对WebService的引用，然后重新添加就好了。

参考：
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=244866&SiteID=1
https://blogs.msdn.com/jmstall/archive/2004/12/31/344832.aspx