小编Sha*_*eri的帖子

Unix/Linux包含用于搜索文件的"find"命令,但我不知道android中的哪个命令可用于搜索文件.请举个例子.

我们想要启动一个大型的多层应用程序.服务器端应用程序必须同时响应超过1000个用户.我们想用64位编译器和客户端用32位创建服务器应用程序.在这种情况下,我们不知道DataSnap可以毫无问题地响应所有客户端吗？在这种情况下,服务器计算机非常强大(多处理器和超过16GB的RAM),数据库管理系统是FireBird 2.5.

在不同的android手机中,"bootanimation.zip"的位置也不尽相同.在这种情况下,我们希望使用adb.exe找到"bootanimation.zip"的真实位置.有可能帮助我吗？

在一个程序中,我想在Delphi中使用QImage.bits().所以,在Qt我创建了一个DLL.dll源代码如下:

test.h:

  #ifndef TEST_H
    #define TEST_H

    #include "test_global.h"


    extern "C"{
    TESTSHARED_EXPORT uchar* testFunc();
    }


    #endif // TEST_H

TEST.CPP:

 #include "test.h"
#include <QtGui>

QImage image;

uchar* testFunc(){
    image.load("c:\\1.png","PNG");
    return (uchar*)image.constBits();
}

在Delphi Side我使用此代码来使用Qt dll:

    function testFunc(): PByteArray; external 'test.dll';
// ...

procedure TForm3.Button1Click(Sender: TObject);
var
  bStream: TBytesStream;
  P: PByteArray;
  Size: Cardinal;
begin
  P := testFunc;
  Size := Length(PAnsiChar(P)); // AnsiChar = 1 Byte
  bStream := TBytesStream.Create();
  try
    bStream.Write(P[0], Size); // Works Fine (^_^)
    bStream.Position := 0;
    bStream.SaveToFile('c:\scr.txt');
  finally
    bStream.Free;
  end;
end; …

我创建了Hydra主机应用程序和Hydra插件.我在插件中提出了处理Windows消息的过程; 但在这种情况下,我们无法处理此Windows消息.为了解决这个问题,我们可以在Host App中处理它,然后我们必须通过传递接口来讨论插件.在这种情况下,我想找到一个直接的方法来处理Hydra插件中的Windows消息.请帮我解决这个问题.

此问题的更新1: 这是一个简单的测试代码:

插件方:

unit VisualPlugin;

interface

uses
  { vcl: } Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls,
  { Hydra: } uHYVisualPlugin, uHYIntf;

type
  TVisualPlugin1 = class(THYVisualPlugin)
  private

    procedure WMDEVICECHANGE(var Msg: TMessage); message WM_DEVICECHANGE;

  end;

implementation

uses
  { Hydra: } uHYPluginFactories;
{$R *.dfm}

procedure Create_VisualPlugin1(out anInstance: IInterface);
begin
  anInstance := TVisualPlugin1.Create(NIL);
end;

resourcestring
  sDescription = '';

const
  sRequiredPrivilege = '';
  sUserData = '';

  { TVisualPlugin1 }

procedure TVisualPlugin1.WMDEVICECHANGE(var Msg: TMessage);
begin
  // ===================================
  // This …

我正在使用代码转发端口.此代码在My Windows 7上运行正常; 但我无法在Windows XP上使用它.

问题更新1(2012-10-17 07:32:00Z)

这是我的源代码:

uses
  ActiveX, oleAuto;

Procedure AddUPnPEntry(Port: Integer; const Name: ShortString; LAN_IP: string);
Var
  Nat: Variant;
  Ports: Variant;
  SavedCW: Word;
Begin
  if NOT(LAN_IP = '127.0.0.1') then
  begin
    try
      Nat := CreateOleObject('HNetCfg.NATUPnP');
      Ports := Nat.StaticPortMappingCollection;

      // Error Raized From Here!!!
      ShowMessage(inttostr(Ports.count));

      Ports.Add(Port, 'TCP', Port, LAN_IP, True, name);
    except
      ShowMessage('An Error occured with adding UPnP Ports. The ' + name +
        ' port was not added to the router. Please check to see if  your ' …

在这篇文章中, nick hodges写道:"Delphi可以将.Net代码链接到你的EXE中".我们怎么做？是否存在关于此delphi Capability的任何示例？

我希望列出FTP服务器中的所有文件以进行索引(主目录和子目录).

如何获取服务器中可访问文件的完整列表？