小编PDM*_*PDM的帖子

Crystal Reports - 根据数据隐藏文本和绘图对象

如果数据字段"IsVisible"设置为1,我在Crystal Report上有一个文本和绘图,我想隐藏它.有一个简单的方法吗?

crystal-reports

5
推荐指数
1
解决办法
1万
查看次数

32位应用程序可以访问64位sql server数据库吗?

正如标题所述,我需要知道32位应用程序是否可以访问64位sql server数据库?

sql-server delphi 64-bit 32-bit 32bit-64bit

5
推荐指数
1
解决办法
2536
查看次数

是否可以读取未嵌入应用程序的外部资源文件?

是否可以读取未嵌入应用程序的外部资源文件?

我使用的是Delphi 7.

delphi delphi-7 embedded-resource

4
推荐指数
1
解决办法
513
查看次数

使用OLE在Delphi中检索Outlook"收件箱"和"已发送"文件夹

从Delphi中提取Outlook文件夹的最佳方法是什么?理想情况下,我想检索收件箱文件夹及其中的任何其他文件夹.我不要求电子邮件标题/消息纯粹是文件夹名称.

德尔福BDS 2006

delphi com outlook ole

3
推荐指数
1
解决办法
2631
查看次数

德尔福快速报告 - 总页数

我在我的应用程序中使用QuickReports,并希望在页脚中有"Page x of x".最好的方法是什么?

delphi quickreports

2
推荐指数
1
解决办法
8655
查看次数

Delphi - 捕获当前焦点的窗口/窗体

我有一个MDI应用程序,有许多MDI子项(以及非MDI表单),并希望跟踪当前激活的表单,并始终关注.当用户在应用程序中从一种形式切换到另一种形式时,我想捕获窗口激活消息,并在后台设置一个全局变量到活动形式的属性(此属性继承自基类).我最初将代码放在基类的OnActivate事件处理程序中(我的应用程序中的所有表单都使用)但是已经注意到这个事件并不总是被引发.有任何想法吗?

我正在使用Delphi 2006 BDS.

delphi vcl tform

2
推荐指数
1
解决办法
3807
查看次数

TFileListBox组件查找不再存在的文件

我在Windows 7上使用Delphi 7并且有一个应用程序使用TFileListBox组件来遍历目录中的文件并将它们复制到备份目录.

我遇到了一些奇怪的行为,TFileListBox正在检测目录中不存在的文件?我正在处理的目录包含75个文件,但TFileListBox检测到超过100个文件.

我更改了我的资源管理器设置以显示隐藏/系统文件,但仍然无法查看这些额外文件的来源.

我想知道这个Windows 7早期版本是否在这个问题中起作用,因为我相当确定TFileListBox检测到的额外文件曾经曾经驻留在这个目录中,但被删除了...

任何有关这方面的帮助将非常感激.

windows delphi vcl file-copying filelist

2
推荐指数
1
解决办法
192
查看次数

Ole Excel Delphi日期问题

我有一个Delphi应用程序,它使用类似于以下代码从excel电子表格中读取数据:

procedure TForm1.Button1Click(Sender: TObject);
var
  xlApp, xlWorkBook, xlWorkSheet, arr: Variant;
begin
  xlApp := CreateOLEObject('Excel.Application');
  xlApp.Visible := False;

  xlWorkBook := xlApp.Workbooks.Open('C:\Temp\Book1.xlsx');
  xlWorkSheet := xlApp.WorkSheets[1];
  arr := xlWorksheet.Range['E2:E2'].Value;
  xlApp.Quit;
end;
Run Code Online (Sandbox Code Playgroud)

存储在单元格E2:E2中的电子表格中的值是10/01/1900(dd/mm/yyyy).但是,返回的值是09/01/1900,即前一天.为什么会发生这种情况,因为它似乎在1900年以后的其他年份的所有日期都正常工作?

delphi com excel

1
推荐指数
1
解决办法
992
查看次数

Outlook对象模型 - 检测邮箱

我有一个Delphi 2006 BDS应用程序,其中包含以下代码,用于迭代Outlook邮箱,然后迭代邮箱中的收件箱和已发送邮件:

  try
    nameSpace := outlook.GetNameSpace('MAPI');
    // load the mailboxes
    mailbox := NameSpace.Folders;

    for i := 1 to mailbox.Count do
      if Pos('MAILBOX', UpperCase(mailbox.Item[i].Name)) > 0 then
      begin
        rootNode := trvwOutlookFolders.Items.AddChildObject(nil, mailbox.Item[i].Name, nil);

        for j := 1 to mailbox.Item[i].Folders.Count do
          if (Pos('INBOX', UpperCase(mailbox.Item[i].Folders[j].Name)) > 0) or
             (Pos('SENT ITEMS', UpperCase(mailbox.Item[i].Folders[j].Name)) > 0) then
          begin
        // do processing
          end;

      end;

  finally
    outlook := Unassigned;
  end;
end;
Run Code Online (Sandbox Code Playgroud)

该代码在Outlook 2007下正常工作,但在2010年没有,因为邮箱不包含"邮箱"一词.因此,我采用另一种方法从Outlook中提取JUST邮箱(不是公用文件夹等)及其子序列收件箱和已发送的项目文件夹.有任何想法吗?

delphi automation ole outlook-object-model

0
推荐指数
1
解决办法
2003
查看次数