本地工作站:Win 7
终端服务器:Win 2008服务器
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 of TFileDescriptor;
{****************************************************************************}
TMyDataObjectHandler = class(TObject)
strict private
CF_FileContents : UINT;
CF_FileGroupDescriptorA : UINT;
CF_FileGroupDescriptorW : UINT;
CF_FileDescriptor : UINT;
FDirectory : string;
function _CanCopyFiles(const ADataObject : IDataObject) : boolean;
function _DoCopyFiles(const ADataObject : IDataObject) : HResult;
//function _ExtractFileNameWithoutExt(const FileName: string): string;
function _CopyFiles(AFileNames: TStringList): HResult;
procedure _GetFileNames(AGroup: PDropFiles; var AFileNames: TStringList);
procedure _ProcessAnsiFiles(ADataObject: IDataObject; AGroup: PFileGroupDescriptorA);
function _ProcessDropFiles(ADataObject: IDataObject; AGroup: PDropFiles): HResult;
procedure _ProcessFileContents(ADataObject: IDataObject; Index: UINT; AFileName: string; AFileSize : Cardinal);
function _ProcessStorageMedium(ADataObject: IDataObject; AMedium: STGMEDIUM; AFilename: string; AFileSize : Cardinal): HResult;
function _ProcessStreamMedium(ADataObject: IDataObject; AMedium: STGMEDIUM; AFileName: String; AFileSize : Cardinal): HResult;
procedure _ProcessUnicodeFiles(ADataObject: IDataObject; AGroup: PFileGroupDescriptorW );
function _CanCopyFile(AFileName: string): boolean;
public
constructor Create; reintroduce;
destructor Destroy; override;
function CanCopyFiles(const ADataObject : IDataObject; const ADirectory : string) : boolean;
procedure CopyFiles(const ADataObject : IDataObject; const ADirectory : string);
end;
{****************************************************************************}
TMyMemoryStream = class( TMemoryStream )
public
procedure LoadFromIStream(AStream : IStream; AFileSize : Cardinal);
function GetIStream : IStream;
end;
{****************************************************************************}
implementation
{------------------------------------------------------------------------------}
{ TMyDataObjectHandler }
function TMyDataObjectHandler.CanCopyFiles(const ADataObject : IDataObject; const ADirectory : string): boolean;
begin
Result := IsDirectoryWriteable( ADirectory);
if Result then
begin
Result := _CanCopyFiles(ADataObject);
end;
end;
{------------------------------------------------------------------------------}
constructor TMyDataObjectHandler.Create;
begin
inherited Create;
CF_FileContents := $8000 OR RegisterClipboardFormat(CFSTR_FILECONTENTS) AND $7FFF;
CF_FileGroupDescriptorA := $8000 OR RegisterClipboardFormat(CFSTR_FILEDESCRIPTORA) AND $7FFF;
CF_FileGroupDescriptorW := $8000 OR RegisterClipboardFormat(CFSTR_FILEDESCRIPTORW) AND $7FFF;
CF_FileDescriptor := $8000 OR RegisterClipboardFormat(CFSTR_FILEDESCRIPTOR) AND $7FFF;
end;
{------------------------------------------------------------------------------}
destructor TMyDataObjectHandler.Destroy;
begin
//
inherited;
end;
{------------------------------------------------------------------------------}
procedure TMyDataObjectHandler.CopyFiles(const ADataObject : IDataObject; const ADirectory : string);
begin
FDirectory := ADirectory;
_DoCopyFiles(ADataObject);
end;
{------------------------------------------------------------------------------}
function TMyDataObjectHandler._CanCopyFiles(const ADataObject : IDataObject) : boolean;
var
eFORMATETC : IEnumFORMATETC;
OLEFormat : TFormatEtc;
iFetched : Integer;
begin
Result := false;
if Succeeded(ADataObject.EnumFormatEtc(DATADIR_GET, eFormatETC)) then
begin
if Succeeded(eFormatETC.Reset) then
begin
while(eFORMATETC.Next(1, OLEFormat, @iFetched) = S_OK) and (not Result) do
begin
Result := ( OLEFormat.cfFormat = CF_FileGroupDescriptorW )
or
( OLEFormat.cfFormat = CF_FileGroupDescriptorA )
or
( OLEFormat.cfFormat = CF_HDROP );
end;
end;
end;
end;
{------------------------------------------------------------------------------}
function TMyDataObjectHandler._CanCopyFile( AFileName : string ) : boolean;
begin
Result := not FileExists( ExpandUNCFileName(FDirectory + ExtractFileName(AFileName)) );
end;
{------------------------------------------------------------------------------}
function TMyDataObjectHandler._CopyFiles(AFileNames : TStringList) : HResult;
var
i: Integer;
begin
Result := S_OK;
i := 0;
while(i < AFileNames.Count) do
begin
if _CanCopyFile(AFileNames[i]) then
begin
Copyfile( Application.MainForm.Handle, PChar(AFileNames[i]), PChar(FDirectory + ExtractFileName(AFileNames[i])), false );
end;
inc(i);
end;
end;
{------------------------------------------------------------------------------}
procedure TMyDataObjectHandler._GetFileNames(AGroup: PDropFiles; var AFileNames : TStringList);
var
sFilename : PAnsiChar;
s : string;
begin
sFilename := PAnsiChar(AGroup) + AGroup^.pFiles;
while (sFilename^ <> #0) do
begin
if (AGroup^.fWide) then
begin
s := PWideChar(sFilename);
Inc(sFilename, (Length(s) + 1) * 2);
end
else
begin
s := PWideChar(sFilename);
Inc(sFilename, Length(s) + 1);
end;
AFileNames.Add(s);
end;
end;
{------------------------------------------------------------------------------}
function TMyDataObjectHandler._ProcessDropFiles(ADataObject: IDataObject; AGroup: PDropFiles) : HResult;
var
sFiles : TStringList;
begin
Result := S_OK;
sFiles := TStringList.Create;
try
_GetFileNames( AGroup, sFiles );
if (sFiles.Count > 0) then
begin
Result := _CopyFiles( sFiles );
end;
finally
sFiles.Free;
end;
end;
{------------------------------------------------------------------------------}
function TMyDataObjectHandler._ProcessStorageMedium(ADataObject: IDataObject; AMedium: STGMEDIUM; AFilename : string; AFileSize : Cardinal) : HResult;
var
StorageInterface : IStorage;
FileStorageInterface : IStorage;
sGUID : PGuid;
iCreateFlags : integer;
begin
Result := S_OK;
if _CanCopyFile(AFileName) then
begin
sGUID := nil;
StorageInterface := IStorage(AMedium.stg);
iCreateFlags := STGM_CREATE OR STGM_READWRITE OR STGM_SHARE_EXCLUSIVE;
Result := StgCreateDocfile(PWideChar(ExpandUNCFileName(FDirectory + AFilename)), iCreateFlags, 0, FileStorageInterface);
if Succeeded(Result) then
begin
Result := StorageInterface.CopyTo(0, sGUID, nil, FileStorageInterface);
if Succeeded(Result) then
begin
Result := FileStorageInterface.Commit(0);
end;
FileStorageInterface := nil;
end;
StorageInterface := nil;
end;
end;
{------------------------------------------------------------------------------}
function TMyDataObjectHandler._ProcessStreamMedium(ADataObject: IDataObject; AMedium: STGMEDIUM; AFileName : String; AFileSize : Cardinal) : HResult;
var
Stream : IStream;
myStream: TMyMemoryStream;
begin
Result := S_OK;
if _CanCopyFile(AFileName) then
begin
Stream := ISTREAM(AMedium.stm);
if (Stream <> nil) then
begin
myStream := TMyMemoryStream.Create;
try
myStream.LoadFromIStream(Stream, AFileSize);
myStream.SaveToFile(ExpandUNCFileName(FDirectory + AFileName));
finally
myStream.Free;
end;
end;
end;
end;
{------------------------------------------------------------------------------}
procedure TMyDataObjectHandler._ProcessFileContents(ADataObject: IDataObject; Index: UINT; AFileName : string; AFileSize : Cardinal);
var
Fetc: FORMATETC;
Medium: STGMEDIUM;
begin
Fetc.cfFormat := CF_FILECONTENTS;
Fetc.ptd := nil;
Fetc.dwAspect := DVASPECT_CONTENT;
Fetc.lindex := Index;
Fetc.tymed := TYMED_HGLOBAL or TYMED_ISTREAM or TYMED_ISTORAGE;
if SUCCEEDED(ADataObject.GetData(Fetc, Medium)) then
begin
try
case Medium.tymed of
TYMED_HGLOBAL : ;
TYMED_ISTREAM : _ProcessStreamMedium(ADataObject, Medium, AFileName, AFileSize);
TYMED_ISTORAGE : _ProcessStorageMedium(ADataObject, Medium, AFileName, AFileSize);
else ;
end;
finally
ReleaseStgMedium(Medium);
end;
end;
end;
{------------------------------------------------------------------------------}
procedure TMyDataObjectHandler._ProcessAnsiFiles(ADataObject: IDataObject; AGroup: PFileGroupDescriptorA);
var
I : UINT;
sFileName : AnsiString;
iSize : Cardinal;
begin
for I := 0 to AGroup^.cItems-1 do
begin
sFileName := AGroup^.fgd[I].cFileName;
if (AGroup^.fgd[I].dwFlags and FD_FILESIZE) = FD_FILESIZE then
begin
iSize := (AGroup^.fgd[I].nFileSizeLow and $7FFFFFFF);
end
else
begin
iSize := 0;
end;
_ProcessFileContents(ADataObject, I, string(sFileName), iSize);
end;
end;
{------------------------------------------------------------------------------}
procedure TMyDataObjectHandler._ProcessUnicodeFiles(ADataObject : IDataObject;
AGroup : PFileGroupDescriptorW);
var
I: UINT;
sFileName: WideString;
iSize: Cardinal;
begin
for I := 0 to AGroup^.cItems-1 do
begin
sFileName := AGroup^.fgd[I].cFileName;
if (AGroup^.fgd[I].dwFlags and FD_FILESIZE) = FD_FILESIZE then
begin
iSize := (AGroup^.fgd[I].nFileSizeLow and $7FFFFFFF);
end
else
begin
iSize := 0;
end;
_ProcessFileContents(ADataObject, I, sFileName, iSize);
end;
end;
{------------------------------------------------------------------------------}
function TMyDataObjectHandler._DoCopyFiles(const ADataObject : IDataObject) : HResult;
var
Fetc : FORMATETC;
Medium : STGMEDIUM;
Enum : IEnumFORMATETC;
Group : Pointer;
begin
Result := ADataObject.EnumFormatEtc(DATADIR_GET, Enum);
if FAILED(Result) then
Exit;
while (true) do
begin
Result := (Enum.Next(1, Fetc, nil));
if (Result = S_OK) then
begin
if (Fetc.cfFormat = CF_FILEGROUPDESCRIPTORA) or
(Fetc.cfFormat = CF_FILEGROUPDESCRIPTORW) or
(Fetc.cfFormat = CF_HDROP) then
begin
Result := ADataObject.GetData(Fetc, Medium);
if FAILED(Result) then
Exit;
try
if (Medium.tymed = TYMED_HGLOBAL) then
begin
Group := GlobalLock(Medium.hGlobal);
try
if Fetc.cfFormat = CF_FILEGROUPDESCRIPTORW then
begin
_ProcessUnicodeFiles(ADataObject, PFileGroupDescriptorW(Group));
break;
end
else if Fetc.cfFormat = CF_FILEGROUPDESCRIPTORA then
begin
_ProcessAnsiFiles(ADataObject, PFileGroupDescriptorA(Group));
break;
end
else if Fetc.cfFormat = CF_HDROP then
begin
_ProcessDropFiles(ADataObject, PDropFiles(Group));
break;
end;
finally
GlobalUnlock(Medium.hGlobal);
end;
end;
finally
ReleaseStgMedium(Medium);
end;
end;
end
else
break;
end;
end;
{------------------------------------------------------------------------------}
//function TMyDataObjectHandler._ExtractFileNameWithoutExt(const FileName: string): string;
//begin
// Result := ChangeFileExt(ExtractFileName(FileName), EmptyStr);
//end;
{------------------------------------------------------------------------------}
{ TMyMemoryStream }
function TMyMemoryStream.GetIStream: IStream;
var
oStreamAdapter : TStreamAdapter;
tPos : Int64;
begin
oStreamAdapter := TStreamAdapter.Create(Self);
oStreamAdapter.Seek(0, 0, tPos);
Result := oStreamAdapter as IStream;
end;
procedure TMyMemoryStream.LoadFromIStream(AStream : IStream; AFileSize : Cardinal);
var
iPos : Int64;
aStreamStat : TStatStg;
oOLEStream: TOleStream;
HR: Int64;
begin
oOLEStream := TOLEStream.Create(AStream);
try
Self.Clear;
Self.Position := 0;
try
HR := Self.CopyFrom( oOLEStream, 0 );
except
on E : Exception do
begin
showMessage(E.ClassName + ' ' + E.Message);
end;
end;
Self.Position := 0;
finally
oOLEStream.Free;
end;
end;
end.
最佳答案
问题是，对于 CF_FILEDESCRIPTORW 或 CF_FILEDESCRIPTORA，Windows 提供的 IStream 不支持 Seek 函数，也不支持正确的 StreamStat.cbSize 字段。因此有必要从 TFileDescriptor 记录的 nFileSizeLow 和 nFileSizeHigh 字段中获取流大小。也不可能使用 TStream.CopyFrom(oOLEStream, 0) 因为在零秒参数的情况下 TStream 调用不支持的 Seek 函数，因此您有 EOleSysError 异常。
关于windows - Delphi中的剪贴板操作，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/14988344/
总的来说，我对ruby还比较陌生，我正在为我正在创建的对象编写一些rspec测试用例。许多测试用例都非常基础，我只是想确保正确填充和返回值。我想知道是否有办法使用循环结构来执行此操作。不必为我要测试的每个方法都设置一个assertEquals。例如:describeitem,"TestingtheItem"doit"willhaveanullvaluetostart"doitem=Item.new#HereIcoulddotheitem.name.shouldbe_nil#thenIcoulddoitem.category.shouldbe_nilendend但我想要一些方法来使用
我试图在一个项目中使用rake，如果我把所有东西都放到Rakefile中，它会很大并且很难读取/找到东西，所以我试着将每个命名空间放在lib/rake中它自己的文件中，我添加了这个到我的rake文件的顶部:Dir['#{File.dirname(__FILE__)}/lib/rake/*.rake'].map{|f|requiref}它加载文件没问题，但没有任务。我现在只有一个.rake文件作为测试，名为“servers.rake”，它看起来像这样:namespace:serverdotask:testdoputs"test"endend所以当我运行rakeserver:testid时
作为我的Rails应用程序的一部分，我编写了一个小导入程序，它从我们的LDAP系统中吸取数据并将其塞入一个用户表中。不幸的是，与LDAP相关的代码在遍历我们的32K用户时泄漏了大量内存，我一直无法弄清楚如何解决这个问题。这个问题似乎在某种程度上与LDAP库有关，因为当我删除对LDAP内容的调用时，内存使用情况会很好地稳定下来。此外，不断增加的对象是Net::BER::BerIdentifiedString和Net::BER::BerIdentifiedArray，它们都是LDAP库的一部分。当我运行导入时，内存使用量最终达到超过1GB的峰值。如果问题存在，我需要找到一些方法来更正我的代
我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0
Rails2.3可以选择随时使用RouteSet#add_configuration_file添加更多路由。是否可以在Rails3项目中做同样的事情？ 最佳答案 在config/application.rb中:config.paths.config.routes在Rails3.2(也可能是Rails3.1)中，使用:config.paths["config/routes"] 关于ruby-on-rails-Rails3中的多个路由文件，我们在StackOverflow上找到一个类似的问题
我需要从一个View访问多个模型。以前，我的links_controller仅用于提供以不同方式排序的链接资源。现在我想包括一个部分(我假设)显示按分数排序的顶级用户(@users=User.all.sort_by(&:score))我知道我可以将此代码插入每个链接操作并从View访问它，但这似乎不是“ruby方式”，我将需要在不久的将来访问更多模型。这可能会变得很脏，是否有针对这种情况的任何技术？注意事项:我认为我的应用程序正朝着单一格式和动态页面内容的方向发展，本质上是一个典型的网络应用程序。我知道before_filter但考虑到我希望应用程序进入的方向，这似乎很麻烦。最终从任何
我在我的项目中添加了一个系统来重置用户密码并通过电子邮件将密码发送给他，以防他忘记密码。昨天它运行良好(当我实现它时)。当我今天尝试启动服务器时，出现以下错误。=>BootingWEBrick=>Rails3.2.1applicationstartingindevelopmentonhttp://0.0.0.0:3000=>Callwith-dtodetach=>Ctrl-CtoshutdownserverExiting/Users/vinayshenoy/.rvm/gems/ruby-1.9.3-p0/gems/actionmailer-3.2.1/lib/action_mailer
刚入门rails，开始慢慢理解。有人可以解释或给我一些关于在application_controller中编码的好处或时间和原因的想法吗？有哪些用例。您如何为Rails应用程序使用应用程序Controller？我不想在那里放太多代码，因为据我了解，每个请求都会调用此Controller。这是真的？ 最佳答案 ApplicationController实际上是您应用程序中的每个其他Controller都将从中继承的类(尽管这不是强制性的)。我同意不要用太多代码弄乱它并保持干净整洁的态度，尽管在某些情况下ApplicationContr
我想向我的Controller传递一个参数，它是一个简单的复选框，但我不知道如何在模型的form_for中引入它，这是我的观点:{:id=>'go_finance'}do|f|%>Transferirde:para:Entrada:"input",:placeholder=>"Quantofoiganho?"%>Saída:"output",:placeholder=>"Quantofoigasto?"%>Nota:我想做一个额外的复选框，但我该怎么做，模型中没有一个对象，而是一个要检查的对象，以便在Controller中创建一个ifelse，如果没有检查，请帮助我，非常感谢,谢谢
我注意到像bundler这样的项目在每个specfile中执行requirespec_helper我还注意到rspec使用选项--require，它允许您在引导rspec时要求一个文件。您还可以将其添加到.rspec文件中，因此只要您运行不带参数的rspec就会添加它。使用上述方法有什么缺点可以解释为什么像bundler这样的项目选择在每个规范文件中都需要spec_helper吗？ 最佳答案 我不在Bundler上工作，所以我不能直接谈论他们的做法。并非所有项目都checkin.rspec文件。原因是这个文件，通常按照当前的惯例，只