Adding Lazarus Package file support to Indy 10.7

.gitattributes

@@ -2712,3 +2712,11 @@ icons/tIdAntiFreeze.bmp -text svneol=unset#unset
 icons/tIdDecoderUUE.bmp -text svneol=unset#unset
 icons/tIdEncoderUUE.bmp -text svneol=unset#unset
 icons/tIdIdent.bmp -text svneol=unset#unset
+*.pas text
+*.inc text
+*.lpr text
+*.lpi text
+*.lps text
+*.dpk text
+*.dproj text
+

Bubbles/Playgrounds/FTPList/capturemain.pas

@@ -1,129 +1,129 @@
-{ $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:  11295: capturemain.pas 
-{
-{   Rev 1.1    2/17/2003 11:14:44 PM  JPMugaas
-{ Updated for new system determination type.  For Cisco IOS and TOPS20, we have
-{ to cheat by providing a system descriptor.
-}
-{
-{   Rev 1.0    11/12/2002 09:23:10 PM  JPMugaas
-{ Initial check in.  Import from FTP VC.
-}
-unit capturemain;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, IdIntercept, IdLogBase, IdLogEvent, IdBaseComponent,
-  IdComponent, IdTCPConnection, IdTCPClient, IdFTP, IdFTPList;
-
-type
-  TfrmCapture = class(TForm)
-    mmoLog: TMemo;
-    chkUsePasv: TCheckBox;
-    edtUsername: TEdit;
-    edtPassword: TEdit;
-    edtHost: TEdit;
-    edtFileName: TEdit;
-    lblHost: TLabel;
-    lblUserName: TLabel;
-    lblPassword: TLabel;
-    lblCaptureFileName: TLabel;
-    btnGo: TButton;
-    btnBrowse: TButton;
-    svdlgCapture: TSaveDialog;
-    IdFTPCapture: TIdFTP;
-    IdLog: TIdLogEvent;
-    edtRemoteDir: TEdit;
-    lblRemoteDir: TLabel;
-    edtParams: TEdit;
-    lblParameters: TLabel;
-    procedure btnBrowseClick(Sender: TObject);
-    procedure IdLogReceived(ASender: TComponent; const AText,
-      AData: String);
-    procedure IdLogSent(ASender: TComponent; const AText, AData: String);
-    procedure btnGoClick(Sender: TObject);
-    procedure IdFTPCaptureCheckListFormat(ASender: TObject;
-      const ALine: String; var VListFormat: TIdFTPListFormat);
-    procedure IdFTPCaptureParseCustomListFormat(AItem: TIdFTPListItem);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  frmCapture: TfrmCapture;
-
-implementation
-
-{$R *.dfm}
-
-procedure TfrmCapture.btnBrowseClick(Sender: TObject);
-begin
-  svdlgCapture.FileName := edtFileName.Text;
-  if svdlgCapture.Execute then
-  begin
-    edtFileName.Text := svdlgCapture.FileName;
-  end;
-end;
-
-procedure TfrmCapture.IdLogReceived(ASender: TComponent; const AText,
-  AData: String);
-begin
-  mmoLog.Lines.Add('Received:   '+AData);
-end;
-
-procedure TfrmCapture.IdLogSent(ASender: TComponent; const AText,
-  AData: String);
-begin
-  mmoLog.Lines.Add('Sent:       '+AData);
-end;
-
-procedure TfrmCapture.btnGoClick(Sender: TObject);
-var s : TStrings;
-begin
-  IdFTPCapture.Host := edtHost.Text;
-  IdFTPCapture.Username := edtUsername.Text;
-  IdFTPCapture.Password := edtPassword.Text;
-  IdFTPCapture.Passive := chkUsePasv.Checked;
-  IdFTPCapture.Connect;
-  try
-    s := TStringList.Create;
-    try
-      if edtRemoteDir.Text <> '' then
-      begin
-        IdFTPCapture.ChangeDir(edtRemoteDir.Text);
-      end;
-      IdFTPCapture.List(s,edtParams.Text);
-      s.SaveToFile(edtFileName.Text);
-    finally
-      FreeAndNil(s);
-    end;
-  finally
-    IdFTPCapture.Disconnect;
-  end;
-end;
-
-procedure TfrmCapture.IdFTPCaptureCheckListFormat(ASender: TObject;
-  const ALine: String; var VListFormat: TIdFTPListFormat);
-begin
-  //
-end;
-
-procedure TfrmCapture.IdFTPCaptureParseCustomListFormat(
-  AItem: TIdFTPListItem);
-begin
-  //
-end;
-
-end.
+{ $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:  11295: capturemain.pas 
+{
+{   Rev 1.1    2/17/2003 11:14:44 PM  JPMugaas
+{ Updated for new system determination type.  For Cisco IOS and TOPS20, we have
+{ to cheat by providing a system descriptor.
+}
+{
+{   Rev 1.0    11/12/2002 09:23:10 PM  JPMugaas
+{ Initial check in.  Import from FTP VC.
+}
+unit capturemain;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, IdIntercept, IdLogBase, IdLogEvent, IdBaseComponent,
+  IdComponent, IdTCPConnection, IdTCPClient, IdFTP, IdFTPList;
+
+type
+  TfrmCapture = class(TForm)
+    mmoLog: TMemo;
+    chkUsePasv: TCheckBox;
+    edtUsername: TEdit;
+    edtPassword: TEdit;
+    edtHost: TEdit;
+    edtFileName: TEdit;
+    lblHost: TLabel;
+    lblUserName: TLabel;
+    lblPassword: TLabel;
+    lblCaptureFileName: TLabel;
+    btnGo: TButton;
+    btnBrowse: TButton;
+    svdlgCapture: TSaveDialog;
+    IdFTPCapture: TIdFTP;
+    IdLog: TIdLogEvent;
+    edtRemoteDir: TEdit;
+    lblRemoteDir: TLabel;
+    edtParams: TEdit;
+    lblParameters: TLabel;
+    procedure btnBrowseClick(Sender: TObject);
+    procedure IdLogReceived(ASender: TComponent; const AText,
+      AData: String);
+    procedure IdLogSent(ASender: TComponent; const AText, AData: String);
+    procedure btnGoClick(Sender: TObject);
+    procedure IdFTPCaptureCheckListFormat(ASender: TObject;
+      const ALine: String; var VListFormat: TIdFTPListFormat);
+    procedure IdFTPCaptureParseCustomListFormat(AItem: TIdFTPListItem);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCapture: TfrmCapture;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfrmCapture.btnBrowseClick(Sender: TObject);
+begin
+  svdlgCapture.FileName := edtFileName.Text;
+  if svdlgCapture.Execute then
+  begin
+    edtFileName.Text := svdlgCapture.FileName;
+  end;
+end;
+
+procedure TfrmCapture.IdLogReceived(ASender: TComponent; const AText,
+  AData: String);
+begin
+  mmoLog.Lines.Add('Received:   '+AData);
+end;
+
+procedure TfrmCapture.IdLogSent(ASender: TComponent; const AText,
+  AData: String);
+begin
+  mmoLog.Lines.Add('Sent:       '+AData);
+end;
+
+procedure TfrmCapture.btnGoClick(Sender: TObject);
+var s : TStrings;
+begin
+  IdFTPCapture.Host := edtHost.Text;
+  IdFTPCapture.Username := edtUsername.Text;
+  IdFTPCapture.Password := edtPassword.Text;
+  IdFTPCapture.Passive := chkUsePasv.Checked;
+  IdFTPCapture.Connect;
+  try
+    s := TStringList.Create;
+    try
+      if edtRemoteDir.Text <> '' then
+      begin
+        IdFTPCapture.ChangeDir(edtRemoteDir.Text);
+      end;
+      IdFTPCapture.List(s,edtParams.Text);
+      s.SaveToFile(edtFileName.Text);
+    finally
+      FreeAndNil(s);
+    end;
+  finally
+    IdFTPCapture.Disconnect;
+  end;
+end;
+
+procedure TfrmCapture.IdFTPCaptureCheckListFormat(ASender: TObject;
+  const ALine: String; var VListFormat: TIdFTPListFormat);
+begin
+  //
+end;
+
+procedure TfrmCapture.IdFTPCaptureParseCustomListFormat(
+  AItem: TIdFTPListItem);
+begin
+  //
+end;
+
+end.