Delphi將圖片數據顯示在IntraWeb中

Delphi將圖片數據顯示在IntraWeb中，通過IntraWeb框架在Delphi中顯示圖片，一個有意思的應用，增進你的Delphi編程知識，有必要一看。下邊是相關截圖和代碼：

Delphi將圖片數據顯示在IntraWeb中核心代碼：

vIEw source print? 01 unit ServerController; 02 {PUBDIST} 03 interface 04 uses 05   SysUtils, Classes, IWServerControllerBase, 06   IWApplication, IWAppForm; 07 type 08   TIWServerController = class(TIWServerControllerBase) 09     procedure IWServerControllerBaseNewSession(ASession: TIWApplication; 10       var VMainForm: TIWAppForm); 11   private 12   public 13   end; 14   TUserSession = class 15   public 16   end; 17   function UserSession: TUserSession; 18 implementation 19 {$R *.dfm} 20 uses 21   IWInit; 22 function UserSession: TUserSession; 23 begin 24   Result := TUserSession(RWebApplication.Data); 25 end; 26 procedure TIWServerController.IWServerControllerBaseNewSession( 27   ASession: TIWApplication; var VMainForm: TIWAppForm); 28 begin 29   ASession.Data := TUserSession.Create; 30 end; 31 end.