用Delphi编写CGI程序返回图象

• 
  Delphi 对Internet编程提供了强大的支持，Delphi 编写CGI非常容易，Dlphi 本身提供了例程。但是笔者在实践中遇到需要CGI程序根据数据库动态 返回图象的情况，很多文章推进使用Cgi-Expert或有关的OCX控件，使用控件不仅 带来额外的开销，且缺乏灵活性，那么能否不使用这些控件自己编写代码实现，现 推荐一种方法，代码如下：  
  
  unit ChartMod;
    
  interface
    
  uses
    Windows, Messages, SysUtils, Classes,
  HTTPApp, Db, DBTables,
    DbChart, Series, Jpeg, ExtCtrls;
    
  type
    TWebModule1 = class(TWebModule)
      Table1: TTable;
  procedure WebModule1ActionAreaAction
  (Sender: TObject;
        Request: TWebRequest; Response:  
  TWebResponse; var Handled:
  Boolean);
  procedure WebModule1ActionPopulationAction
  (Sender: TObject;
        Request: TWebRequest; Response:  
  TWebResponse; var Handled:
  Boolean);
      procedure WebModule1Create(Sender: TObject);
      procedure WebModule1Destroy(Sender: TObject);
      procedure WebModule1AfterDispatch(Sender: TObject;
        Request: TWebRequest; Response:  
  TWebResponse; var Handled: Boolean);
    private
      Chart: TDBChart;
      Series: TPieSeries;
      Image: TImage;
    public
      { Public declarations }
    end;
    
  var
    WebModule1: TWebModule1;
    
  implementation
    
  {$R *.DFM}
    
  procedure TWebModule1.WebModule1ActionAreaAction(
  Sender: TObject;
    Request: TWebRequest; Response: TWebResponse;
  var Handled: Boolean);
  
  begin
    // set specific values
    Chart.Title.Text.Clear;
    Chart.Title.Text.Add ('Area of Countries');
    Chart.LeftAxis.Title.Caption := 'Area';
    Series.Title := 'Area';
    Series.PieValues.ValueSource := 'Area';
  end;
    
  procedure TWebModule1.WebModule1ActionPopulationAction(
  Sender: TObject;
    Request: TWebRequest; Response: TWebResponse;  
  var Handled: Boolean);
  
  begin
    // set specific values
    Chart.Title.Text.Clear;
    Chart.Title.Text.Add ('Population of Countries');
    Chart.LeftAxis.Title.Caption := 'Population';
    Series.Title := 'Population';
    Series.PieValues.ValueSource := 'Population';
  end;
    
  procedure TWebModule1.WebModule1Create(Sender: TObject);
  begin
    // open the database table
    Table1.Open;
    // create the chart
    Chart := TDBChart.Create (nil);
    Chart.Width := 600;
    Chart.Height := 400;
    Chart.AxisVisible := False;
    Chart.Legend.Visible := False;
    Chart.BottomAxis.Title.Caption := 'Name';
    // create the pie series
    Series := TPieSeries.Create (Chart);
    Series.ParentChart := Chart;
    Series.DataSource := Table1;
    Series.XLabelsSource := 'Name';
    Series.OtherSlice.Style := poBelowPercent;
    Series.OtherSlice.Text := 'Others';
    Series.OtherSlice.Value := 2;
    Chart.AddSeries (Series);
    // create the memory bitmap
    Image := TImage.Create (nil);
    Image.Width := Chart.Width;
    Image.Height := Chart.Height;
  end;
    
  procedure TWebModule1.WebModule1Destroy(
  Sender: TObject);
  
  begin
    Chart.Free;
    Series.Free;
    Image.Free;
  end;
    
  procedure TWebModule1.WebModule1AfterDispatch(
  Sender: TObject;
    Request: TWebRequest; Response: TWebResponse;
  var Handled: Boolean);
  
  var
    Jpeg: TJpegImage;
    MemStr: TMemoryStream;
  begin
    // paint the chart on the memory bitmap
    Chart.Draw (Image.Canvas, Image.BoundsRect);
    // create the jpeg and copy the iamge to it
    Jpeg := TJpegImage.Create;
    try
      Jpeg.Assign (Image.Picture.Bitmap);
      MemStr := TMemoryStream.Create;
      try
        // save to a stream and return it
        Jpeg.SaveToStream (MemStr);
        MemStr.Position := 0;
        Response.ContentType := 'image/jpeg';
        Response.ContentStream := MemStr;
        Response.SendResponse;
      finally
        MemStr.Free;
      end;
    finally
      Jpeg.Free;
    end;
  end;
    
  end.

• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用Delphi编写CGI程序返回图象 相关文章：
• ·用Delphi编写CGI程序返回图象
• 用Delphi编写CGI程序返回图象 相关软件

上一篇:用Delphi编写IE扩展

下一篇:用Delphi编码实现程序自启动

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐