如何在Delphi中开发使用多显示器的应用程序

Posted 2023-04-02

Web 开发有多种应用形式，要看应用的平台（比如是电脑还是手机）。

以下提供用 delphi 开发 web 的一些方式：

一、使用 Indy 组件包里的 Internet 控件
如果是开发网络应用（架构web服务器等），可以使用 Indy 组件包里的 Internet 控件。

二、使用 IntraWeb 组件
IntraWeb很像是普通的应用程序，唯一不同的是它的用户界面是用浏览器代替了通常的Windows界面，当把应用程序安装到Web服务器上之后，用户马上就可以通过它的网络地址来开启它，应用程序会马上建立使用者的用户信息，这样就可以避免丢失用户信息或者与其它的使用者发生使用混乱。

三、开发 android / ios 手机应用

此外，UniGUI 组件包改编 ExtJS 框架，提供了一整套的 web UI 元素。 参考技术A 好的工具用起来就会顺手，很多Delphi从业者用惯了Delphi工具，在面对移动APP称王的时代似乎有力使不出。现在不用再担心JAVA语言的一些特性，太纠结了。我们直接用Delphi XE7开发吧。虽然Delphi XE2开始就支持移动开发了 参考技术B procedure TForm2.FormShow(Sender: TObject);
begin
if screen.MonitorCount>1 then //在第二个显示器显示
form2.MakeFullyVisible(screen.Monitors[1]);
end;
第n个显示器，就写screen.Monitors[n-1])
如果需要全屏设置窗体属性：
form2.position:=poDesigned；
form2.windowState:=wsMaximized；

Synchronize执行过程

Synchronize执行过程及原理

　　在windows原生应用程序开发中，经常伴随多线程的使用，多线程开发很简单，难点就是在于线程的同步，在Delphi中提供了VC中不具备的一个过程Synchronize，使用起来非常方便，解决了很多VC开发中碰到的常见问题，但是在看了很多Delphi代码后，发现很多人对于Synchronize的理解还是有问题的，不能很好地正确使用Synchronize过程，本文对Synchronize过程的使用提出一些个人的见解，供大家参考。

　　在VC中使用多线程，由于MFC或VC本身的特点，VC人员在更新窗口界面和工作线程的关系上分的是比较清楚的，但是Delphi里由于VCL提供的方便特性，造成大量人员在工作线程中更新窗口界面，给系统稳定带来潜在的危险，应该说比较严格的方法应该是永远让更新窗口界面的工作仅由主线程完成，工作线程仅仅做后台的一些工作，当工作线程的结果需要反馈到界面上来的时候，应该使用各种同步对象（临界区、互斥量）等来进行同步，然后让主线程更新窗口界面。

　　这里由于主要讲解Synchronize的使用，使用同步对象更新的方法就不说了，首先说一下在VC中比较接近Synchronize过程的SendMessage函数，其实在Delphi中也可以使用SendMessage来实现线程同步，实现通知主线程更新窗口界面，只是没有Synchronize过程用起来那么方便。

　　SendMessage函数的工作过程是比较复杂的，有兴趣的朋友可以多查查SendMessage函数及其同多线程的关系，如果在工作线程中调用SendMessage函数，工作线程会挂起，然后等待主线程空闲，主线程空闲开始处理接收到的消息，处理完成把结果返回，工作线程接收到返回结果后继续运行，也就是消息处理函数是在主线程中运行的，而且工作线程会挂起等待SendMessage函数返回即消息处理函数处理完成才会继续往下执行，在VC开发中这种方式也是经常被使用的。

　　理解了SendMessage函数工作过程，现在来说一下Synchronize过程的工作过程，Synchronize过程是Delphi底层实现的，其工作原理非常类似SendMessage函数，但是使用起来要比SendMessage函数方便易用，Synchronize过程开始时，也是会挂起当前的工作线程（使用的同步对象），然后让主线程执行Synchronize参数中具体的过程proc，工作线程等待proc执行，proc执行结束返回到工作线程，工作线程再继续执行。

　　总之，如果在TThread的Execute过程中仅仅调用一个Synchronize过程，Synchronize参数中的过程都是在主线程中执行的，等于没有使用多线程。也就是要细化Synchronize参数中的过程proc，仅让proc执行一些更新界面的工作，不能把真正耗时的动作放在proc中，不然使用多线程没有任何意义。

 

附：Delphi底层中Synchronize过程的实现过程简介

　　Synchronize过程的核心函数是System.Classes.pas中的过程class procedure TThread.Synchronize(ASyncRec: PSynchronizeRecord; QueueEvent: Boolean = False);这个函数中是通过调用WakeMainThread事件方法调用具体过程proc的，WakeMainThread事件的注册在Vcl.Forms.pas里，应用程序启动时由Application对象进行注册，WakeMainThread工作过程在Vcl.Forms.pas中为procedureTApplication.WakeMainThread(Sender: TObject); 

begin 

    PostMessage(Handle, WM_NULL, 0, 0); 

end;
　　也就是仅仅把WM_NULL消息放入应用程序消息队列中，工作线程调用完WakeMainThread事件方法即PostMessage以后就挂起（通过同步对象）等待proc执行完成信号触发，Vcl.Forms.pas中主线程消息处理函数中会看到如下代码
WM_NULL:
   CheckSynchronize;
　　即在检索消息循环后碰到WM_NULL消息，会执行CheckSynchronize过程，CheckSynchronize过程在System.Classes.pas中function CheckSynchronize(Timeout: Integer= 0): Boolean; 其工作核心就是执行proc过程，并在执行完成后设置proc执行完成信号，工作线程检测到这个信号后会唤醒，并继续执行后续工作。以上过程中从Synchronize调用到PostMessage都是在工作线程中进行的，然后挂起，检索WM_NULL消息执行CheckSynchronize过程和proc过程都是在主线程中完成的，这些工作完成后，工作线程再唤醒继续执行。

以上来自网友http://blog.csdn.net/gogogo/article/details/10139501

个人调试总结：

1.工作线程调用Synchronize唤醒主线程（其实就是通过回调到主线程WakeMainThread接口，接口WakeMainThread再发消息WM_NULL）；工作线程进入等待执行完成的信号；
2.主线程接收到WM_NULL消息后，再将进入CheckSynchronize，检查队列中需要执行的函数，当执行完成后，设置执行完成信号；工作线程等待结束，继续往下运行；
3.主线程接收到WM_NULL并不影响其他消息的进入，因为TApplication.Run接口中不停地轮寻消息，消息也会不停地进入各自的消息处理过程； 除非程序睡眠了
4.工作线程调用Synchronize参数列表中执行过程，不应该将耗时的业务交给主线程执行，耗时的业务应该交给工作线程执行
5.工作线程无法代替的工作，可以用Synchronize交给主线程执行；