idftplistparsestercomos390exp.pas

来自「网络控件适用于Delphi6」· PAS 代码 · 共 66 行

{ $HDR$}
{**********************************************************************}
{ Unit archived using Team Coherence                                   }
{ Team Coherence is Copyright 2002 by Quality Software Components      }
{                                                                      }
{ For further information / comments, visit our WEB site at            }
{ http://www.TeamCoherence.com                                         }
{**********************************************************************}
{}
{ $Log:  24280: IdFTPListParseStercomOS390Exp.pas
{
{   Rev 1.3    10/26/2004 9:55:58 PM  JPMugaas
{ Updated refs.
}
{
{   Rev 1.2    4/19/2004 5:06:10 PM  JPMugaas
{ Class rework Kudzu wanted.
}
{
    Rev 1.1    10/19/2003 3:36:18 PM  DSiders
  Added localization comments.
}
{
{   Rev 1.0    10/1/2003 12:55:20 AM  JPMugaas
{ New FTP list parsers.
}
unit IdFTPListParseStercomOS390Exp;

interface

uses
  classes,
  IdFTPList, IdFTPListParseBase, IdTStrings;

type
  TIdSterCommExpOS390FTPListItem = class(TIdFTPListItem)
  protected
      FRecFormat : String;
    FRecLength : Integer;
    FBlockSize : Integer;
  public
     property RecFormat : String read FRecFormat write FRecFormat;
    property RecLength : Integer read FRecLength write FRecLength;
    property BlockSize : Integer read FBlockSize write FBlockSize;
  end;
  TIdFTPLPSterCommExpOS390 = class(TIdFTPListBase)
  protected
    class function MakeNewItem(AOwner : TIdFTPListItems)  : TIdFTPListItem; override;
      class function ParseLine(const AItem : TIdFTPListItem; const APath : String=''): Boolean; override;
  public
    class function GetIdent : String; override;
    class function CheckListing(AListing : TIdStrings; const ASysDescript : String =''; const ADetails : Boolean = True): boolean; override;
  end;

const
  STIRCOMEXPOS390 = 'Connect:Express for OS/390'; {do not localize}

implementation

uses
  IdGlobal, IdFTPCommon, IdGlobalProtocols,
  SysUtils;

{
"Connect:Express OS/390 FTP Guide Version 4.1" Copyright