说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

求教,用delphi编的drm程序,急!~~~~~~~~

编辑:说三道四文库 发布时间:2018-06-25 03:06
HTML文档下载 WORD文档下载 PDF文档下载
向各位大侠求教:

var
  frmDRMEncoder: TfrmDRMEncoder;
  sKID, sCID, sSeed, sKey, sHeader : WideString ;
  sPrivKey, sPubKey : OleVariant ;
  HeaderObj : WMRMHeader;
  KeysObj   : WMRMKeys;
  ProtectObj: WMRMProtect;
procedure TfrmDRMEncoder.Edit1Change(Sender: TObject);
begin
// Create the key ID, seed, key, and content ID. Set the key ID and
// the content ID into the header. Share the seed with the license
// issuer. Store the key in a secure manner.
    sKID := KeysObj.GenerateKeyID ;  --这里就不能运行,为什么?程序编译能通过.
    sSeed := KeysObj.GenerateSeed ;
    KeysObj.KeyID := sKID ;
    KeysObj.Seed := sSeed ;
    sKey := KeysObj.GenerateKey() ;
    sCID := KeysObj.GenerateKeyID() ;
    HeaderObj.KeyID := sKID ;
    HeaderObj.ContentID := sCID ;
// Create public and private signing keys to sign the header. Use the
// private key to sign the header. Share the public key with the
// license issuer.
    KeysObj.GenerateSigningKeys ( sPrivKey, sPubKey) ;
    HeaderObj.Sign(sPrivKey) ;
// Retrieve the string containing the header.
   sHeader := HeaderObj.Header ;
// Set the header string into the WMRMProtect object.
    ProtectObj.Header := sHeader ;
// Set the key into the WMRMProtect object.
    ProtectObj.Key := sKey  ;
// Specify the name of the file to be protected.
    ProtectObj.InputFile := Edit1.Text ;
end;
不懂,希望楼主提供详细材料,引用了什么,用的是window media service,Directshow还是其他什么东西。是不是涉及到了版权保护的问题?
是的,MSDN里的一个drm(数字版权管理)实例,用的是drm7.0
不知道为什么不能用行通过!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘