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;