小编Mar*_*tin的帖子

我需要将VCL组件从32位转换为64位(Delphi XE2).现在我只能在选择"32位平台"时安装它,如果我选择"64位平台"我可以编译但不安装(没有安装菜单).如何添加64位支持并将其安装到64位应用程序中？

我需要在Delphi XE6上为Android和iOS创建一个应用程序.这个应用程序最好使用TWebBrowser来显示谷歌地图,然后我需要从Delphi"发送"到javascript并从javascript"接收"命令到Delphi.通过这种方式,我可以在地图上显示市场,然后知道用户何时点击标记.我在网上发现这篇文章用Delphi代码执行javascript.

但我不知道如何从javascript调用delphi程序.例如,我在Delphi上有这个程序:

procedure JSFeekback(aParm1, aParm2, aParm3, aParm4: string);

我想在TWebBrowser上使用Javascript代码将其称为pass 4参数.我发现了类似的问题,但仅适用于Windows应用程序,答案不适用于Android(我没有在iOS上试过).

我需要在画布上绘制一些线条,但是我需要使用自定义样式,没有标准样式作为实体,点,...

例如,我需要画一条线作为"__.__._ "或" ._._._._".我所有的线都是破折号和点的组合,我需要设置短划线和破折号,点宽.

我不想使用GDI +或其他外部库...

有一个简单的方法吗？

在我的应用程序中,我需要在TCanvas上绘制一个"标记",如谷歌地图标记(见图).

我想用作半径,高度和原点的参数:

我不知道要使用的算法.我可以使用弧线绘制顶部,但我如何绘制底部？注意:我需要用GDI和GDI +绘制它,所以欢迎任何解决方案.

我用Delphi XE3创建了一个应用程序.我的应用程序有一个trayicon(我使用TCoolTrayIcon),所以当用户最小化它时,任务栏上没有图标,只有在trayicon上.

为了避免更多的应用程序,我使用此代码:

procedure CreateMutexes(const MutexName: String);
const
  SECURITY_DESCRIPTOR_REVISION = 1;
var
  SecurityDesc: TSecurityDescriptor;
  SecurityAttr: TSecurityAttributes;
  MutexHandle: THandle;
begin
  InitializeSecurityDescriptor(@SecurityDesc, SECURITY_DESCRIPTOR_REVISION);
  SetSecurityDescriptorDacl(@SecurityDesc, True, nil, False);
  SecurityAttr.nLength := SizeOf(SecurityAttr);
  SecurityAttr.lpSecurityDescriptor := @SecurityDesc;
  SecurityAttr.bInheritHandle := False;
  MutexHandle := CreateMutex(@SecurityAttr, False, PChar(MutexName));

  if MutexHandle <> 0 then
    begin
      if GetLastError = ERROR_ALREADY_EXISTS then
        begin
          MessageBox(0, 'You cannot start more than one instance of ContLab.'
                      + #13#10 + 'Use the instance has already started.',
                       'ContLab', mb_IconHand);

          CloseHandle(MutexHandle);
          Halt;
        end
    end;

  CreateMutex(@SecurityAttr, False, PChar('Global\' + …

我已经通过DialogFragment创建了一个进度对话框,为此我已经使用这篇文章作为我的DialogFragment的基础:https://gist.github.com/daichan4649/6421407 实际上在我的应用程序中我有一个调用类和这个类使用AsyncTask来复制在sqlite数据库中保存一些数据.我使用进度对话框来显示AsyncTask进度.

我的代码有效,但是有一个小问题:当用户旋转设备时,进度条不再更新,因为findFragmentByTag返回始终为null.

这是我的一小段代码.我认为问题在于:

public class TafData {

private Context mContext;

public TafDownload(Context context) {

    mContext = context;
}

... other code ...

private class importTAFAsync extends AsyncTask <String, Integer, String> {
    ... other code ...
}

private void showProgress() {
    TafActivity tafactivity = (TafActivity) mContext;
    FragmentManager fm = tafactivity.getFragmentManager();
    ProgressDialogFragment pDialog = ProgressDialogFragment.newInstance("Caricamento TAF", "Caricamento in corso. Attendere...", 100);
    pDialog.show(fm, "fragment_progress");
}

private void setMax(Integer... values) {
    ProgressDialogFragment progress = getProgressDialogFragment();
    if (progress == null) {
        return; …

我需要使用Delphi创建一个关于GPS年历的应用程序.像这样的东西:

我在哪里可以下载数据并阅读它们？(绘制它们).我的用户必须选择一天和纬度/经度位置,然后我需要绘制接下来7天的GPS可用性.我可以在哪里下载这些信息并用delphi阅读？

我需要在框的中心绘制文本.必须在每行上以一个字符水平对齐绘制文本.

我附上了一个字符串"class"的例子.

我可以绘制单个字符,但我希望有更快的方法来实现它.

mORMot Framework(www.synopse.info)已经添加了对WebSockets的支持,在包装上还有一个关于WebSockets的演示(示例31).在此示例中,客户端向服务器发送消息,并向客户端发送新消息.我想使用这个库来做到这一点:

1. 客户端向服务器发送消息并发送IP地址(不等待来自服务器的消息);
2. 服务器可以通过IP地址向单个客户端发送消息;

注意:IP地址仅用于标识客户端.我也可以使用一个独特的名字.

类似于客户端和服务器之间的LAN聊天.我不明白如何编辑样本n.31这样做.此示例基于接口.

我的应用程序在此模式下工作:在开始时使用用户设置读取INI,然后它将显示为普通窗口或最小化为托盘图标.如果用户选择将应用程序最小化到托盘图标,则在启动时用户将看不到主窗口和任务栏图标而只有托盘图标,用户可以通过托盘图标菜单或双击托盘打开应用程序图标.除了启动托盘图标更改图像几秒钟,直到数据库数据加载.

为此,我使用旧组件TCoolTrayIcon,但现在我想用官方TTrayIcon(Delphi 10 Seattle)替换它,但我有一些问题:

1. 如何最小化应用程序？(仅显示托盘图标,没有主窗口,没有任务栏图标);
2. 仅在主窗口可见时显示任务栏图标;

使用TCoolTrayIcon这很简单但我无法理解TTrayIcon是否可能,任务图标始终可见,我无法以任何方式启动最小化.

在我的Delphi应用程序中,我需要使用GDI和GDI +绘制多行文本.我有这些物品:

1. 要绘制的文字;
2. 旋转角度(文字可能旋转);
3. 最大宽度(想象一下包含文本的矩形,我有矩形宽度的限制但不是矩形高度);
4. 字体名称和文字高度;

有没有一种简单的方法可以用GDI和GDI +绘制这个文本？我无法找到关于它的GDI和GDI +功能.