cgiexp.pas

此控件可将数据表转换成多种格式:文本,HTML,RTF

{
=========
CGI Canal
=========

Version 1.0

Copyright 11.1997 By MAD Soft

Telephone: Bulgaria, Sofia, 37-06-23
E_Mail:    [e-mail]
           [e-mail]
Web:       Http:\\WWW.NSI.BG\NMMM\Home.Htm

--------------------
Remarks:
 (o) This Component work only with Delphi 3 !!!!
 (o) U must place it only on Web applicaion Form !!!!
 (o) U must know - This component use MAX (60K) Bytes Memory !!!!
}

unit CGIExp;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, BasicExp;

Const Max = 64000;

type
  TCGICanal = class(TAbstractCanal)
  private
    { Private declarations }
    M : Array[0..Max + 1] Of Char;
    L : LongInt;

    Function ReadBuff:PChar;
  protected
    { Protected declarations }
  public
    { Public declarations }
    Procedure Open; OverRide;
    Procedure Close; OverRide;

    Procedure Output(S:String); OverRide;
    Procedure OutputLn; OverRide;
  published
    { Published declarations }
    Property Buffer : PChar Read ReadBuff;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Exporter', [TCGICanal]);
end;

Function TCGICanal.ReadBuff:PChar;
   Begin
      Result:=@M[0];
   End;

Procedure TCGICanal.Open;
   Begin
      L:=-1;
   End;

Procedure TCGICanal.Close;
   Begin
      M[L + 1]:=#0;

      {...}
   End;

Procedure TCGICanal.Output(S:String);
   Var I : Byte;
   Begin
      IF (L + Length(S) < Max) And
         (Length(S) > 0      ) Then
         For I:=1 To Length(S) Do
            Begin
               Inc(L);
               M[L]:=S[I];
            End;
   End;

Procedure TCGICanal.OutputLn;
   Begin
      OutPut(#13#10); {CR/LF}
   End;

end.