小编Pav*_*van的帖子

当我使用MSBuild命令行执行delphi 2009项目时,输出总是转到C:驱动器

C:\MyProjects>MSbuild "C:\MyTestProject\Test.dproj" /t:Build /p:OutDir="C:\Output\bin\"

为什么会这样？

谢谢和问候,帕万.

"结构化"一词在SQL中意味着什么？

是因为这个(SQL)语言语句被组织成子句,表达式和谓词吗？

由于这个组织,它被称为"结构化"？

如何在Delphi 2009中调暗/淡化应用程序的所有其他窗口.

Form具有AlphaBlend属性,但它仅控制透明度级别.但如果我们可以拥有这样的东西(浓缩窗口)会很好 .当我们尝试在帖子中插入链接/图像等时,甚至stackoverflow.com也会这样做.

我们如何在delphi应用程序中实现这一目标？

本地工作站:Win 7

终端服务器:Win 2008 Server

Outlook:2003在本地工作站上运行.

我正在尝试将Outlook邮件从本地工作站复制和粘贴到终端服务器.

使用下面的代码,我能够将文件从本地工作站复制并粘贴到服务器......

TmyMemoryStream = class(TMemoryStream);

...

procedure TmyMemoryStream.LoadFromIStream(AStream : IStream);
var
  iPos : Int64;
  aStreamStat : TStatStg;
  oOLEStream: TOleStream;
begin
  AStream.Seek(0, STREAM_SEEK_SET, iPos);
  AStream.Stat(aStreamStat, STATFLAG_NONAME);
  oOLEStream := TOLEStream.Create(AStream);
  try
    Self.Clear;
    Self.Position := 0;
    Self.CopyFrom( oOLEStream, aStreamStat.cbSize );
    Self.Position := 0;
  finally
    oOLEStream.Free;
  end;
end;

...但是当我尝试复制并粘贴Outlook邮件时,流大小(aStreamStat.cbSize)为0.我能够获取邮件主题(文件名),但无法读取流内容.

我的代码出了什么问题？

完整的单位代码:

unit Unit1;

interface
uses
  dialogs,
  Windows, ComCtrls, ActiveX, ShlObj, ComObj, StdCtrls, AxCtrls,
  SysUtils, Controls, ShellAPI, Classes, Forms;

type

  {****************************************************************************}

  TMyDataObjectHandler = class;

  PFileDescriptorArray = Array …

我有以下代码:

var
  sl: THashedStringList;
begin
  sl:= THashedStringList.Create;
  sl.Duplicates := dupIgnore;
  sl.Add('12345');
  sl.Add('12345');
  sl.Add('12345');
  sl.Add('12345');
  sl.Add('12345');
  sl.Add('12345');
  sl.Add('12345');
  ShowMessage(IntToSTr(sl.Count));
end;

但是当我看到sl.Count它时,它给了我7.这是什么错误？

尝试使用下面提到的方法来获取有关锁定文件的更多详细信息.

文件正在使用中

function GetFileInUseInfo(const FileName : WideString) : IFileIsInUse;
var
  ROT : IRunningObjectTable;
  mFile, enumIndex, Prefix : IMoniker;
  enumMoniker : IEnumMoniker;
  MonikerType : LongInt;
  unkInt  : IInterface;
begin
  result := nil;

  OleCheck(GetRunningObjectTable(0, ROT));
  OleCheck(CreateFileMoniker(PWideChar(FileName), mFile));

  OleCheck(ROT.EnumRunning(enumMoniker));

  while (enumMoniker.Next(1, enumIndex, nil) = S_OK) do
  begin
    OleCheck(enumIndex.IsSystemMoniker(MonikerType));
    if MonikerType = MKSYS_FILEMONIKER then
    begin
      if Succeeded(mFile.CommonPrefixWith(enumIndex, Prefix)) and
         (mFile.IsEqual(Prefix) = S_OK) then
      begin
       if Succeeded(ROT.GetObject(enumIndex, unkInt)) then
        begin
          if Succeeded(unkInt.QueryInterface(IID_IFileIsInUse, result)) then
          begin
            result := unkInt as IFileIsInUse;
            exit;
          end;
        end;
      end;
    end; …

在德尔福 2009 中：

当 TListView 的 GroupView 处于活动状态时，向 TListView 添加或插入项目总是将其添加到列表的末尾，而不管指定为参数的 Index。当 GroupView 设置为 false 时，它​​会将其添加到指定的索引处。但是当它为真时，这种行为是看不到的。

ListView2.Items.Insert(1)

以上应在指定索引“1”处插入项目，但始终将其添加到列表的末尾。我在这里做错了什么？

object ListView2: TListView
Left = 32
Top = 40
Width = 161
Height = 233
BorderWidth = 5
Columns = <
  item
    AutoSize = True
  end>
DoubleBuffered = False
FlatScrollBars = True
Groups = <
  item
    Header = 'test'
    Footer = 'aksdlkajsd;flkj'
    GroupID = 0
    State = [lgsNormal]
    HeaderAlign = taLeftJustify
    FooterAlign = taLeftJustify
    Subtitle = 'adgasdfasdf'
    TopDescription = 'test desc'
    BottomDescription = …

是否可以为现有类型创建别名并在整个项目中使用该别名？

例如,创建

CustomerID = System.UInt32

并使用CustomerID作为数据类型？

版本:.NET Framework 4.0

(使用"using"关键字,我们可以创建一个别名,但它没有用,因为它不能跨文件工作.)

还有其他想法吗？

我有两个表Names和Name_ids,如下所示.

平台:SQL Server 2005/2008.

Names table:
    Nam                              ID
    -------------------------------- -----------
    A                                1
    B                                2
    C                                3
    D                                4
    E                                5
    F                                6
    G                                7
    H                                8

和

name_ids table

ID
-----------
3
6
8

我想生成以下输出连接这些表.

Nam                              Nam_ID      ID
-------------------------------- ----------- -----------
A                                1           NULL
B                                2           NULL
C                                3           3
D                                4           3
E                                5           3
F                                6           6
G                                7           6
H                                8           8

逻辑是将nam_id与id匹配,如果nam_id小于任何id,则返回NULL.如果nam_id大于或等于id,则返回id.这是捕获.在上面的例子中,对于F,6我们不应该返回F,6,3组合,但我们应该只返回匹配的F,6,6.当匹配项找到像6,6时,它应该跳过其他匹配,如6,3.之后使用7,6而不是7,3.如何编写上面的SQL查询？查询是时间密集的,需要快速执行.

Scripts:
Create table Names(Nam nvarchar(32), ID int);

insert into names values('A', 1);
insert into …

早上好 !

有没有办法在SQL Server中预编译存储过程？我的要求是这样的..我有一些存储过程,编译比执行需要更多时间.所以我想预编译所有存储过程.在db服务器启动并运行时预编译它们会很不错.

任何有关这方面的想法都会非常有帮助!

谢谢和问候,帕万.