To All:
附加檔案是這套套件傳寫CGI程式的標準格式，提供給需要的人參考
主程式碼如下

program DelphiCGIDemo;

//標準CGI型態01

{$apptype console}

uses
SysUtils,Forms,
UAdv_ISAPI_Utils,
UAdv_Public_Types,
UFrCGIMain in 'UFrCGIMain.pas' {FrCGIMain: TFrame};

var str:AnsiString;
//------------------------------------------------------------------------
procedure WebMain( Session:TAdv_WebSession
;Request:TPub_Request;Response:TPub_Response);
begin
//主程式
if(Session.Request.EventName = '')then
begin
FrCGIMain := TFrCGIMain.Create(nil);
FrCGIMain.Adv_Html_TextBox1.Value := str;
Session.Response.Write(FrCGIMain.MainPage.CtrlToHtml());
FrCGIMain.Free;
FrCGIMain := nil;
end//if...end!!
else
if(Session.Request.EventSenderDesc = 'CGI程式')then
begin
//Session.Response.Write('TEST!!');
end//if...end!!
end;//sub...proc...end!!
//------------------------------------------------------------------------
begin
DoHttpCGIProc(Application,'EMPTY',WebMain,nil,nil,nil,nil);
end.

附加檔案：51db46f9d0667_DemoDocCGIApp.rar

編輯記錄