delphi tips 6

1 dcom程序不能使用的问题（也许有用）

http://topic.csdn.net/t/20010907/11/276353.html
客户端需要运行regsvr32   midas.dll，regsvr32   stdvcl40.dll  
  服务端需要运行dcomcnfg进入“分布式COM配置属性”  
  1   “默认属性”页面，将“在这台计算机上启用分布式COM”打勾，将“默认身份验证级别”改为“无”。  
  2   “默认安全机制”页面，确认默认访问权限和默认启动权限中的默认值无EveryOne,如果有将其删除。  
  3   “应用程序”页面，双击你的应用服务器，打开你的应用服务器Dcom属性  
  4   “常规”页面的“身份验证级别”为“默认值”。  
  5   “位置”页面的“在这台计算机上运行应用程序”打勾。  
  6   “安全”页面中，均选择“使用自定义访问权限”，编辑每一个权限，将EveryOne加入用户列表中。  
  7   “身份标识”页面中，选择“交互用户”。  

据某人暴料：“有个新发现，如客户机为win2000   professional，服务器为win2000   server，同样做一遍，   ”，真假自辨。

2 导入图片到db

function imagesavetosql(dataset:TADOQuery;filename:String):boolean;
var
  imagejpg:TJPEGImage; //jpg图片
  MyStm:TMemoryStream;
begin
//去掉注释

  // result:=false;
  // MyStm:=TMemoryStream.Create;                                                                         
  // imagejpg:=Tjpegimage.Create;                                                                         
  // if filename<>'' then                                                                                 
  // begin                                                                                                
  //  result:=false;
  // MyStm:=TMemoryStream.Create;                                                                         
  // imagejpg:=Tjpegimage.Create;                                                                         
  // if filename<>'' then                                                                                 
  // begin                                                                                                
  //   imagejpg.LoadFromFile(filename);                                                                   
  //   imagejpg.SaveToStream(MyStm);                                                                      
  //   MyStm.Position:=0;                                                                                 
  //   TBlobField(dataset.FieldByName('pict')).LoadFromStream(MyStm); //可与DMImage之类控件,因为其只支持BMP
  //   result:=true;                                                                                      
  // end;                                                                                                 
  // MyStm.Free;                                                                                          
  // imagejpg.free;
end;