如果数据字段"IsVisible"设置为1,我在Crystal Report上有一个文本和绘图,我想隐藏它.有一个简单的方法吗?
正如标题所述,我需要知道32位应用程序是否可以访问64位sql server数据库?
是否可以读取未嵌入应用程序的外部资源文件?
我使用的是Delphi 7.
从Delphi中提取Outlook文件夹的最佳方法是什么?理想情况下,我想检索收件箱文件夹及其中的任何其他文件夹.我不要求电子邮件标题/消息纯粹是文件夹名称.
德尔福BDS 2006
我在我的应用程序中使用QuickReports,并希望在页脚中有"Page x of x".最好的方法是什么?
我有一个MDI应用程序,有许多MDI子项(以及非MDI表单),并希望跟踪当前激活的表单,并始终关注.当用户在应用程序中从一种形式切换到另一种形式时,我想捕获窗口激活消息,并在后台设置一个全局变量到活动形式的属性(此属性继承自基类).我最初将代码放在基类的OnActivate事件处理程序中(我的应用程序中的所有表单都使用)但是已经注意到这个事件并不总是被引发.有任何想法吗?
我正在使用Delphi 2006 BDS.
我在Windows 7上使用Delphi 7并且有一个应用程序使用TFileListBox组件来遍历目录中的文件并将它们复制到备份目录.
我遇到了一些奇怪的行为,TFileListBox正在检测目录中不存在的文件?我正在处理的目录包含75个文件,但TFileListBox检测到超过100个文件.
我更改了我的资源管理器设置以显示隐藏/系统文件,但仍然无法查看这些额外文件的来源.
我想知道这个Windows 7早期版本是否在这个问题中起作用,因为我相当确定TFileListBox检测到的额外文件曾经曾经驻留在这个目录中,但被删除了...
任何有关这方面的帮助将非常感激.
我有一个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 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 ×8
com ×2
ole ×2
vcl ×2
32-bit ×1
32bit-64bit ×1
64-bit ×1
automation ×1
delphi-7 ×1
excel ×1
file-copying ×1
filelist ×1
outlook ×1
quickreports ×1
sql-server ×1
tform ×1
windows ×1