delphi - 从数据库启动应用程序

Question

我有很多用户使用我的应用程序。但是，如果我做了一些更新，并将其放在服务器上，并不是所有人都愿意更新它(他们有时害怕他们不想适应的更改)。

所以我推测，如何强制他们启动最新的应用程序。当然有多种方法可以做到这一点，但我听说可以启动存储在数据库的 blob 字段中的应用程序。

有人知道如何实现吗？ (我使用的是MySQL数据库)

谢谢

Answer 1

不判断有意义或无意义......
您可以使用 uExecFromMem ......
该单元存在内存泄漏，可以通过添加以下内容来修复:

  ResumeThread(PI.hThread);
  Result := PI.hThread;
  FreeMem(pFile);  // added here
end; 

使用 TBlobField 的示例调用如下

var
 ms:TMemoryStream;
begin
    ms:=TMemoryStream.Create;
    try
    TBlobField(YouDBBlobField).SaveToStream(ms);
    ms.Position := 0;
    ExecuteFromMem(Application.ExeName,'',ms.Memory); // pointing to an existing executable
    finally
      ms.Free;
    end;
end;