小编Irf*_*lic的帖子

如何获取在特定工作站上使用svn的当前用户？

我可以使用svn.exe可执行文件与一些开关来获取该信息.

谢谢.

使用哪个组件来播放来自流/文件的mp3文件,以及知道该mp3流的秒数内的长度？

我们希望将富UI应用程序从delphi迁移到java或Web Application.

原因是我们希望应用程序在所有操作系统上都可移植.

Delphi中当前的应用程序组件和模块:

• 在Delphi中,我们使用TWebBrowser组件来显示HTML内容
• 我们正在播放在HTML中点击时从FileStream中提取的mp3.
• 从Embeded Database Firebird/Ms Access中检索HTML的所有资源.
• 为了同步一些内容,我们正在将HTTP发布到PHP脚本,以便将数据集中在Web服务器上.

部署: - 应用程序必须部署在CD上,并安装在Mac OS,Linux,Windows上的台式计算机上.

我需要您的帮助,如何处理此迁移.最好使用将在WAMP/XAMP上部署的Java UI或Web App以及Linux和Mac上的相应发行版.

编辑:我对音频功能有一些具体要求.音频文件是分布在CD或USB上的单独文件.音频文件是从mp3内部编译的一个实体文件.应用程序必须能够根据存储在索引文件中的mp3的偏移量和大小来提取mp3并实时播放...这会如何影响使用此方法的Web App的想法.

我有一个没有标题的表单,使用双击最大化:代码如下所示:

procedure xxxxxx; 
begin
    if Form1.WindowState=wsNormal then
       begin
        Form1.WindowState:=wsMaximized;
        Form1.SetBounds(0,0,screen.Width,screen.Height-getHeightOfTaskBar);
       end
       else
       begin
         Form1.WindowState:=wsNormal;
       end;

       ShowTrayWindow;
end;
function getHeightOfTaskBar : integer;
var hTaskBar:HWND;
    rect : TRect;
begin
     hTaskbar := FindWindow('Shell_TrayWnd', Nil );
     if hTaskBar<>0 then
        GetWindowRect(hTaskBar, rect);

     Result:=rect.bottom - rect.top;
end;

这很好,除了我必须找出任务栏重置SetBounds的位置...

这样做的正确方法是什么？

谢谢.

我有包含阿拉伯语文本的utf-8编码文件,我必须搜索它.

我的问题是变音符号,如何搜索跳过它们？

就像你在Internet Explorer中加载该文本(在HTML ofcourse中转换文本)一样,IE正在跳过那些变音符号？

有帮助吗？

Edit1:只需按以下代码执行搜索:

 var m1 : TMemo; //contains utf-8 data)
     m2 : TMemo; // contains results

 ...

      m2.lines.BeginUpdate;
      for s in m1.Lines do
      begin
        if pos(eSearch.Text,s)>0 then
           begin
           m2.Lines.Add(s);
           end;
      end;
      m2.Lines.EndUpdate;

Edit2:unicode数据示例:

قلهواللهأحد如果你只搜索没有变音符号的字母,那么就找不到单词قل.

什么是获取Delphi XE专家正在处理的当前文件的新方法

以前在Delphi 5-7中我们使用了ToolServices.getCurrentFile