小编Cha*_*ang的帖子

我在Fedora Core 13中使用Openldap 2.4.11.

我正在尝试创建密码策略:

dn: cn=default,ou=policies,dc=estream,dc=com,dc=my
objectClass: person
objectClass: pwdPolicy
objectClass: top
cn: default
pwdAttribute: 2.5.4.35
sn: test

如果我将pwdAttriute指定为"userPassword",则会收到错误消息

LDAP: error code 21 - pwdAttribute: value #0 invalid per syntax

相反,我强制使用OID作为pwdAttribute:

pwdAttribute: 2.5.4.35

对于pwdAttribute,可以使用"userPassword"而不是"2.5.4.35"吗？

我尝试在cn = config中配置openldap来加载模块ppolicy.la,但是在重启slapd服务几次后它似乎也没有工作:

dn: cn=module{0},cn=config
objectClass: olcConfig
objectClass: olcModuleList
objectClass: top
cn: module{0}
olcModuleLoad: {0}/usr/lib64/openldap/ppolicy.la

我有一些32位DLL没有匹配的64位DLL.如何从用Delphi XE2编写的64位应用程序中调用这些DLL？

国会图书馆有一个按ISBN搜索图书的网站.检索书籍信息的简单方法是使用以下URL:

http://lccn.loc.gov/2009019559/mods

它返回一个可以轻松解析的XML结构.URL需要以下列格式的唯一LCCN编号:

http://lccn.loc.gov/[lccn]/mods

我有一批书以条形码编码的书.我如何检索/转换ISBN到LCCN以检索图书的XML数据？

当我尝试在Delphi XE2中创建一个新包时,包dpk源文件中有一个新构造:IMPLICITBUILDING

那个有什么用？

package Package1;

{$R *.res}
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION OFF}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DEFINE DEBUG}
{$ENDIF IMPLICITBUILDING}
{$IMPLICITBUILD ON}

requires
  rtl;

end.

根据Delphi XE2的发行说明.FireMonkey可以创建高清应用程序.HD代表高清晰度.为何选择HD？VCL应用程序无法像FireMonkey一样创建高清应用程序吗？

我正在使用Delphi XE2编写VCL win32应用程序.Delphi XE2支持实时绑定.我将示例Biolife.xml加载到TClientDataSet实例中.

我能够将TEdit控件绑定到数据集的字符串字段:Species Name:

object BindLinkEdit11: TBindLink
  Category = 'Links'
  SourceMemberName = 'Species Name'
  ControlComponent = Edit1
  SourceComponent = BindScopeDB1
  ParseExpressions = <>
  FormatExpressions = <
    item
      ControlExpression = 'Text'
      SourceExpression = 'DisplayText'
    end>
  ClearExpressions = <>
end

然后我尝试将Graphic字段绑定到TImage控件:

object BindLinkImage11: TBindLink
  Category = 'Links'
  SourceMemberName = 'Graphic'
  ControlComponent = Image1
  SourceComponent = BindScopeDB1
  ParseExpressions = <>
  FormatExpressions = <
    item
      ControlExpression = 'Picture'
      SourceExpression = 'Value'
    end>
  ClearExpressions = <>
end

显然,它不起作用.这可能吗？

当我在RAD Studio 10 SeattleIDE中打开并使用Delphi项目文件时.它总是创建.stat文件.有没有办法停止创建文件？

我正在使用Delphi 2010构建在Windows XP/Vista和Windows 7上运行的Win32 GUI应用程序.

基本上,Application.MainForm是一个只读属性,一旦通过Application.CreateForm创建第一个表单,就无法在运行时更改:

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

上面的例子将Form1作为应用程序的mainform.它将显示在Windows 7任务栏的缩略图预览中.

在运行时将Application.MainFormOnTaskBar设置为true允许我们享受Windows aero主题功能.

我需要在运行时切换应用程序的mainform.例如,将Form2设置为主窗体.我使用以下代码使其工作:

procedure SetAsMainForm(aForm:TForm);
var
  P:Pointer;
begin
  Application.MainFormOnTaskBar := False;
  try
    P := @Application.Mainform;
    Pointer(P^) := aForm;
    aForm.Show;
  finally
    Application.MainFormOnTaskBar := True;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetAsMainForm(Form2);
end;

执行Button1.Click将使Form2成为主窗体并更新Windows的任务栏缩略图预览.但是,任务栏可能会闪烁切换.

我的问题是:

1. 有没有办法消除这种闪烁？
2. 设置Application.MainformOnTaskBar:= False并在运行时再次将其设置为True是否安全？

我使用自己的.rc文件生成自定义资源条目,包括版本信息.

我的library.rc文件是:

#include "app.rc.h"
VS_VERSION_INFO VERSIONINFO
FILEVERSION _FileVersion
PRODUCTVERSION _FileVersion
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
FILEFLAGS 0
FILEOS VOS__WINDOWS32
FILETYPE VFT_APP
FILESUBTYPE VFT2_UNKNOWN
BEGIN
  BLOCK "VarFileInfo"
  BEGIN
    VALUE "Translation", 0x0409, 1252
  END
  BLOCK "StringFileInfo"
  BEGIN
    BLOCK "040904E4"
    BEGIN
      VALUE "InternalName",       App_InternalName "\0"
      VALUE "CompanyName",        App_CompanyName "\0"
      VALUE "FileDescription",    App_ProductName "\0"
      VALUE "FileVersion",        _FileVersionStr "\0"
      VALUE "ProductName",        App_ProductName "\0"
      VALUE "ProductEdition",     App_ProductEdition "\0"
      VALUE "LegalCopyright",     "Copyright \251 " App_CompanyName "\0"
      VALUE "CompanyURL",         App_CompanyURL "\0"
      VALUE "ProductURL",         App_ProductURL "\0"
      VALUE "SupportURL",         App_SupportURL "\0"
      VALUE "AppRegistryPath", …

我正在使用Delphi XE4.我尝试为TBytes定义一些辅助函数:

TBytesHelper = record helper for TBytes
public
  function GetLength: integer;
end;

function TBytesHelper.GetLength: integer;
begin
  Result := System.Length(Self);
end;

当我尝试使用新的辅助函数时:

var B: TBytes;
    i: integer;
begin
  B := TBytes.Create(1,2,3);
  i := B.GetLength;

  if i <> Length(B) then
    raise Exception.Create('Incorrect result');
end;

我除了结果为iIS 3但事实并非如此.我在SysUtils.pas中引用具有类似构造的TStringHelper定义.

有什么我想念的吗？