mainfrm.pas

East make Tray Icon in delphi

{******************************************************************

                       JEDI-VCL Demo

 Copyright (C) 2002 Project JEDI

 Original author:

 Contributor(s):

 You may retrieve the latest version of this file at the JEDI-JVCL
 home page, located at http://jvcl.sourceforge.net

 The contents of this file are used with permission, subject to
 the Mozilla Public License Version 1.1 (the "License"); you may
 not use this file except in compliance with the License. You may
 obtain a copy of the License at
 http://www.mozilla.org/MPL/MPL-1_1Final.html

 Software distributed under the License is distributed on an
 "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 implied. See the License for the specific language governing
 rights and limitations under the License.

******************************************************************}

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, JvComponent, JvMultiHttpGrabber, StdCtrls, 
  ActnList, Menus, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    JvMultiHttpGrabber1: TJvMultiHttpGrabber;
    Panel1: TPanel;
    Label1: TLabel;
    btnDownload: TButton;
    gbContent: TGroupBox;
    reContent: TRichEdit;
    gnLog: TGroupBox;
    reLog: TRichEdit;
    Splitter1: TSplitter;
    cbURL: TComboBox;
    btnDownloadAll: TButton;
    sbMain: TStatusBar;
    pbProgress: TProgressBar;
    acMainActions: TActionList;
    acDownload: TAction;
    acDownloadAll: TAction;
    acURLAdd: TAction;
    acURLDelete: TAction;
    acClearLog: TAction;
    acClearContent: TAction;
    popMain: TPopupMenu;
    Addtohistory1: TMenuItem;
    Deletefromhistory1: TMenuItem;
    N1: TMenuItem;
    Download1: TMenuItem;
    Downloadall1: TMenuItem;
    N2: TMenuItem;
    Clearcontent1: TMenuItem;
    Clearlog1: TMenuItem;
    acSaveToFile: TAction;
    N3: TMenuItem;
    acSaveToFile1: TMenuItem;
    Options1: TMenuItem;
    procedure JvMultiHttpGrabber1ClosedConnection(Sender: TObject;
      UserData: Integer; Url: String);
    procedure JvMultiHttpGrabber1ClosingConnection(Sender: TObject;
      UserData: Integer; Url: String);
    procedure JvMultiHttpGrabber1ConnectedToServer(Sender: TObject;
      UserData: Integer; Url: String);
    procedure JvMultiHttpGrabber1ConnectingToServer(Sender: TObject;
      UserData: Integer; Url: String);
    procedure JvMultiHttpGrabber1DoneStream(Sender: TObject;
      UserData: Integer; Stream: TStream; StreamSize: Integer;
      Url: String);
    procedure JvMultiHttpGrabber1Error(Sender: TObject; UserData: Integer;
      Url, Error: String);
    procedure JvMultiHttpGrabber1Progress(Sender: TObject; UserData,
      Position, TotalSize: Integer; Url: String; var Continue: Boolean);
    procedure JvMultiHttpGrabber1ReceivedResponse(Sender: TObject;
      UserData: Integer; Url: String; DataSize: Integer);
    procedure JvMultiHttpGrabber1ReceivingResponse(Sender: TObject;
      UserData: Integer; Url: String);
    procedure JvMultiHttpGrabber1Redirect(Sender: TObject;
      UserData: Integer; Url, NewUrl: String);
    procedure JvMultiHttpGrabber1RequestComplete(Sender: TObject;
      UserData: Integer; Url: String);
    procedure JvMultiHttpGrabber1RequestSent(Sender: TObject;
      UserData: Integer; Url: String; DataSize: Integer);
    procedure JvMultiHttpGrabber1ResolvedName(Sender: TObject;
      UserData: Integer; Url, Name: String);
    procedure JvMultiHttpGrabber1ResolvingName(Sender: TObject;
      UserData: Integer; Url: String);
    procedure JvMultiHttpGrabber1SendingRequest(Sender: TObject;
      UserData: Integer; Url: String);
    procedure FormCreate(Sender: TObject);
    procedure sbMainResize(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure acDownloadExecute(Sender: TObject);
    procedure acDownloadAllExecute(Sender: TObject);
    procedure acMainActionsUpdate(Action: TBasicAction;
      var Handled: Boolean);
    procedure acURLAddExecute(Sender: TObject);
    procedure acURLDeleteExecute(Sender: TObject);
    procedure acClearLogExecute(Sender: TObject);
    procedure acClearContentExecute(Sender: TObject);
    procedure JvMultiHttpGrabber1DoneFile(Sender: TObject;
      UserData: Integer; FileName: String; FileSize: Integer; Url: String);
    procedure acSaveToFileExecute(Sender: TObject);
  private
    { Private declarations }
    procedure LoadSettings;
    procedure SaveSettings;
    function GetColor(UserData:integer):TColor;
    function MakeFileName(URL:string):string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
  IniFiles, JvTypes;
{$R *.dfm}

procedure TForm1.JvMultiHttpGrabber1ClosedConnection(Sender: TObject;
  UserData: Integer; Url: String);
begin
  reLog.Lines.Add(Format('Closed Connection to %s',[Url]));
end;

procedure TForm1.JvMultiHttpGrabber1ClosingConnection(Sender: TObject;
  UserData: Integer; Url: String);
begin
  reLog.Lines.Add(Format('Closing Connection to %s',[Url]));
end;

procedure TForm1.JvMultiHttpGrabber1ConnectedToServer(Sender: TObject;
  UserData: Integer; Url: String);
begin
  reLog.Lines.Add(Format('Connected to %s',[Url]));
end;

procedure TForm1.JvMultiHttpGrabber1ConnectingToServer(Sender: TObject;
  UserData: Integer; Url: String);
begin
  reLog.Lines.Add(Format('Connecting to %s',[Url]));
end;

procedure TForm1.JvMultiHttpGrabber1DoneStream(Sender: TObject;
  UserData: Integer; Stream: TStream; StreamSize: Integer;
  Url: String);
var S:String;
begin
  reLog.Lines.Add(Format('Download complete from %s',[Url]));
//  Stream.Seek(0,soFromBeginning); // (p3) not needed, already reset 
  if UserData < 0 then // single download
  begin
    reContent.DefAttributes.Color := GetColor(UserData);
    reContent.Lines.LoadFromStream(Stream);
    reContent.Lines.Insert(0,'いいいいいいいいいいいいいいいいいいいいいいい