小编opc*_*0de的帖子

我正在使用WMI来获取所有插入的USB磁盘制造商的名称.代码工作得很好,但我有一个问题,我如何确定某个磁盘的女巫驱动器号...我只能得到设备名称,例如

(\\.\ PhysicalDrive1)...如何在正常的驱动器号中翻译它？

我有以下程序:

procedure GetDegree(const num : DWORD ; var degree : DWORD ; min ,sec : Extended);
begin
  degree := num div (500*60*60);
  min := num div (500*60) - degree *60;
  sec := num/500 - min *60 - degree *60*60;
end;

在指定了度变量之后,调试器会跳到过程的结尾.这是为什么？

我TTCPBlockSocket用于TCP/IP应用程序.问题是我无法确定何时连接丢失.

GetLastError返回0
Read返回0

但是,如果应用程序已连接,我会遇到这些值eaven所以我可以得到它如何在TCP/IP连接丢失时得到通知.

谢谢

我正在研究一个DLL,我希望我导出的函数只能通过序数而不是按名称导出.

这可能吗 ？如果是,我想知道如何完成.

我想播放录制的电影作为我的网络摄像头？我怎么能这样做,我是Delphi程序员,有必要编写设备驱动程序吗？

我正在等待完成这项任务的想法.谢谢!

我正在尝试使用信号量实现一个简单的例程,这将允许我只运行3个应用程序实例.我可以使用3个互斥锁,但到目前为止,这不是一个很好的方法

var
  hSem:THandle;
begin
  hSem := CreateSemaphore(nil,3,3,'MySemp3');
  if hSem = 0 then
  begin
    ShowMessage('Application can be run only 3 times at once');
    Halt(1);
  end;

我该怎么做呢？

我必须浏览一个与indy的idhttp保持会话ID的网站.

我使用以下代码初始化我需要的组件.

procedure InitSession;
begin
  Initalized := True;
  try
  ihttp := TIdHTTP.Create(nil); //the variables are declared globally
  idCookie := TIdCookieManager.Create(nil);
  ihttp.ConnectTimeout := 5000;
  ihttp.AllowCookies := true;
  ihttp.HandleRedirects := true;
  ihttp.CookieManager := idCookie;
  except
  Initalized := False;
  end;
end;

问题是当我发出请求时,不发送cookie.为了发送包含会话ID的cookie,我需要做什么.谢谢

我想使用dwscript进行Web编程(生成动态内容).我想知道apache web服务器是否有任何模块？或者我如何基于dwscript运行自己的Web服务器？

我正在使用MemoryStream来构造我需要发送到服务器的字节数组.我有以下问题:

1)有没有比这更好的方法来构造一个字节数组？

2)为什么这些代码会在我的内存流中写出伪造的？

var
  serial : word;
  MS : TMemoryStream;
const
  somebytes : array [0..1] of byte = ($72,$72);
...
begin
      MS := TMemoryStream.Create();
      try
      MS.Write(somebytes[0],2);
      serial := $3E6C;
      MS.Write(serial,2);
      finally
      MS.Free;
end;

使用调试器,我看到在流中添加了值$ 6F32而不是$ 3E6C.

3)如果我打电话

MS.Position := 2;

然后我访问PByte(MS.Memory)^为什么我得到流中的第一个字节而不是第三个字节？

我的服务中有一个方法必须从一个线程中调用,但我不希望该代码在线程中执行.

如果我没有活动并且我从服务中调用它,我怎么能调用runOnUiThread？

谢谢.

我对AsyncTask解决方案不感兴趣!