ufrmsetup.pas

提取网页文件图片地址,应用此工具

unit Ufrmsetup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,
  SUIGroupBox, SUIButton, WebFileMan,  Spin,frmmain, SUIEdit, SUIImagePanel;

type
  TFrmSetup = class(TForm)
    GroupBox1: TsuiGroupBox;
    ChkJpg: TsuiCheckBox;
    ChkBmp: TsuiCheckBox;
    ChkGif: TsuiCheckBox;
    BtnOK: TsuiButton;
    BtnGet: TsuiButton;
    suiGroupBox1: TsuiGroupBox;
    edt_folder: TSuiBtnEdit;
    suiGroupBox2: TsuiGroupBox;
    Bevel1: TBevel;
    RBtn_TitleDir: TsuiRadioButton;
    Rbtn_FileDir: TsuiRadioButton;
    RBtn_NoDir: TsuiRadioButton;
    suiGroupBox3: TsuiGroupBox;
    Edt_TimeOut: TsuiSpinEdit;
    Label1: TLabel;
    suiGroupBox4: TsuiGroupBox;
    Edt_HisteryDirCount: TsuiSpinEdit;
    suiGroupBox5: TsuiGroupBox;
    Edt_ThreadCount: TsuiSpinEdit;
    procedure BtnOKClick(Sender: TObject);
    procedure edt_folderBtnClick(Sender: TObject);
    procedure BtnGetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSetup: TFrmSetup;

  //打开浏览文件夹对话框

implementation
    uses U_pub;
{$R *.dfm}

procedure TFrmSetup.BtnOKClick(Sender: TObject);
begin
  frmmain.WebFileMan.JpgDown := ChkJpg.Checked;
  frmmain.WebFileMan.BmpDown := ChkBmp.Checked;
  frmmain.WebFileMan.GifDown := ChkGif.Checked;

  if ChkJpg.Checked then
    Form1.JpgDown := 1
  else
    Form1.JpgDown := 0;
  if ChkGif.Checked then
    Form1.GifDown := 1
  else
    Form1.GifDown := 0;
  if ChkBmp.Checked then
    Form1.BmpDown := 1
  else
    Form1.BmpDown := 0;

  form1.DefaultPicDir := edt_folder.Text;

  //  if length(edt_folder.Text) > 3 then
  //  form1.DownPicDir := edt_folder.Text + '\';
  if RBtn_titleDir.Checked then
    form1.SubDirType := 1;
  if RBtn_FileDir.Checked then
    Form1.SubDirType := 2;
  if RBtn_NoDir.Checked then
    Form1.SubDirType := 3;

  form1.TimeOutType := strtoint(Edt_TimeOut.text);
 // frmmain.DownFile.SetTimeOut(strtoint(Edt_TimeOut.text));
  form1.HisteryDirCount := strtoint(Edt_HisteryDirCount.Text );
   form1.ThreadCount  := strtoint(Edt_ThreadCount.Text );
  //  if RBtn_ReNameDir.Checked then Form1.SubDirNameType := 1;
  //  if RBtn_DelDir.Checked    then Form1.SubDirNameType := 2;
  //  if RBtn_UnionDir.Checked  then Form1.SubDirNameType := 3;

  //  if RBtn_ReNameFile.Checked  then Form1.FileSaveType := 1;
  //  if RBtn_DelFile.Checked  then Form1.FileSaveType := 2;
  close;
end;



procedure TFrmSetup.edt_folderBtnClick(Sender: TObject);
begin
  edt_folder.text := GetFolder(0, '选择目录');
end;

procedure TFrmSetup.BtnGetClick(Sender: TObject);
begin
  close;
end;

end.