DeWeb --- Hello,World!

1.新建一个DLL，命名为hello.dpr

2.新增一个Form.(File->New->VCL Form - Delphi),建议不要更改单元名称和Form名称，即分别为unit1.pas和Form1

3.在Form1中添加一个Label,设置其Caption为"Hello,DeWeb"

4.将hello.dpr源文件代码更改为

//====================================

library hello;

uses

ShareMem, SysUtils, Forms, Messages, StdCtrls,

Variants, Windows, Classes,

unit1 in 'unit1.pas' {Form1};

{$R *.res}

type

PdwGetEvent=function (ACtrl:TComponent;AData:String):string; StdCall;

var

DLLApp : TApplication;

DLLScreen : TScreen;

function dwLoad(AParams:String;AApp:TApplication;AScreen:TScreen):TForm;stdcall;

var

AForm : TForm1;

begin

//

Application := AApp;

Screen := AScreen;

//

AForm := TForm1.Create(nil);

AForm.Hint := AParams;

Result := AForm;

end;

procedure DLLUnloadProc(dwReason: DWORD);

begin

if dwReason = DLL_PROCESS_DETACH then begin

Application := DLLApp; //恢复

Screen := DLLScreen;

end;

end;

exports

dwLoad;

begin

DLLApp := Application; //保存 DLL 中初始的 Application

DLLScreen := Screen;

DLLProc := @DLLUnloadProc;//保证卸载时恢复原Application

DLLUnloadProc(DLL_PROCESS_DETACH);

end.

//====================================

5.编译生成hello.dll，复制到source\runtime\apps中

6.运行source\runtime\DeWebServer.exe，注意使端口为80

7.打开现代浏览器（Chrome/FireFox等）,打开http://127.0.0.1/hello.dw