config.pas

局域网搜索 (LAN Explorer) ver 1.6 最好的局域网搜索软件

    User := BakUser;
    PassWord := BakPass;
  end
  else
  begin
    User := edtDftUser.Text;
    PassWord := edtDftPass.Text;
  end;

  for i := 0 to lvMountList.Items.Count-1 do
  begin
    s := lvMountList.Items[i].Caption;
    if s[1] <> '\' then s := '\\' + s;
    if UpperCase(trim(Host)) =  UpperCase(trim(s)) then
    begin
      User := lvMountList.Items[i].SubItems[0];
      //PassWord := lvMountList.Items[i].SubItems[1];
      PassWord := SharePassList.Strings[i];
    end;
  end;

end;

procedure TConfigForm.GiveFtpUserPassWord(Host: string; var User: string; var PassWord: string);
var
  i: integer;
  s: string;
begin

  if edtFtpUsr.Color = clWhite then
  begin
    User := BakFtpUser;
    PassWord := BakFtpPass;
  end
  else
  begin
    User := edtFtpUsr.Text;
    PassWord := edtFtpPass.Text;
  end;

  for i := 0 to lvFtpMountList.Items.Count-1 do
  begin
    s := lvFtpMountList.Items[i].Caption;
    if UpperCase(trim(Host)) =  UpperCase(trim(s)) then
    begin
      User := lvFtpMountList.Items[i].SubItems[0];
      //PassWord := lvFtpMountList.Items[i].SubItems[1];
      PassWord := FtpPassList.Strings[i];
    end;
  end;

end;

function TConfigForm.CheckDest(s:String):boolean;
var
  i: integer;
begin

  Result:=false;
  for i:=1 to DestListBox.items.Count do
  if pos(lowercase(DestListBox.items[i-1]),lowercase(s))<>0 then Result:=true;

end;

function TConfigForm.CheckMP3(s:String):boolean;
var
  i: integer;
begin

  Result := false;
  for i:=1 to Mp3ListBox.items.Count do
  if pos(lowercase(Mp3ListBox.items[i-1]),lowercase(s))<>0 then Result:=true;

end;

function TConfigForm.CheckMovie(s:String):boolean;
var
  i: integer;
begin

  Result := false;
  for i:=1 to MovieListBox.items.Count do
  if pos(lowercase(MovieListBox.items[i-1]),lowercase(s))<>0 then Result:=true;
  
end;

procedure TConfigForm.BtnAddFilterClick(Sender: TObject);
var
  i,ImageIndex  : integer;
  s             : string;
  CurLV         : TListView;
  LI            : TListItem;
  //SL            : TStringList;
begin

  CurFilterList.Items.Add(EditFilter.text);
  if CheckBox1.Checked then
  begin

    Case FilterPageCtrl.ActivePageIndex of
    //0: begin CurLV:=MainForm.FindListView; SL:=MainForm.StrListSearch; end;
    1: begin CurLV:=MainForm.MP3ListView; {SL:=MainForm.StrListMp3;} end;
    2: begin CurLV:=MainForm.MovieListView; {SL:=MainForm.StrListMovie;} end;
    else begin CurLV:=MainForm.FindListView; {SL:=MainForm.StrListSearch;} end;
    end; //end of case

    with MainForm do
    begin
      for i:= 0 to AllListBox.Items.Count-1 do
      begin
        s:= AllListBox.Items[i];
        if s[length(s)]='\' then
        begin
          ImageIndex:=0;
          delete(s,length(s),1);
        end
        else ImageIndex:=1;
        
        if pos(lowercase(EditFilter.text),lowercase(s))<>0 then
        begin
          LI:=CurLV.Items.Add;
          LI.ImageIndex := ImageIndex;
          LI.Caption := extractfilename(s);
          LI.SubItems.add(ExtractFilePath(s));
          LI.SubItems.add('unknow');
          //SL.Add(' 工作组:'+'unknow'+' 地址:'+ExtractFilePath(s)+'\'+s);
        end;
      end;
    end;

  end;
  EditFilter.Clear;

end;

procedure TConfigForm.FilterPageCtrlChange(Sender: TObject);
begin

  Case FilterPageCtrl.ActivePageIndex of
  0:CurFilterList:=DestListBox;
  1:CurFilterList:=Mp3ListBox;
  2:CurFilterList:=MovieListBox;
  end; //end of case
  
end;

procedure TConfigForm.BtnDelFilterClick(Sender: TObject);
begin
  CurFilterList.Items.Delete(CurFilterList.ItemIndex);
end;

procedure TConfigForm.FormCreate(Sender: TObject);
begin

   CurFilterList:=DestListBox;
   RadioGroup1.ItemIndex := 0;
   if bk<>nil then Brush.Bitmap :=  bk;
   //ConfigPageCtrl.Brush.Bitmap :=  MainForm.coolbar1.Bitmap;
   //FilterPageCtrl.Brush.Bitmap :=  MainForm.coolbar1.Bitmap;
   ConfigPageCtrl.ActivePageIndex := 0;

   SharePassList := TStringList.Create;
   FtpPassList := TStringList.Create;

   LoadFilter;

end;

procedure TConfigForm.RadioGroup1Click(Sender: TObject);
begin

  case RadioGroup1.ItemIndex of
  0:begin
    recursive:=false;
    bAutoSearch:=true;
    end;
  1:begin
    recursive:=false;
    bAutoSearch:=false;
    end;
  2:begin
    recursive:=true;
    bAutoSearch:=true;
    end;
  end;   //end of case

end;

procedure TConfigForm.SpinEdit1Change(Sender: TObject);
begin
  ThreadNum:=SpinEdit1.Value;
end;

procedure TConfigForm.SpeedButton1Click(Sender: TObject);
begin
  Close;
end;

procedure TConfigForm.btnChangeDftClick(Sender: TObject);
begin
  BakUser := edtDftUser.Text;
  BakPass := edtDftPass.Text;

  edtDftUser.Enabled := true;
  edtDftUser.Color := clWhite;
  edtDftPass.Enabled := true;
  edtDftPass.Color := clWhite;
  edtDftUser.SetFocus;
end;

procedure TConfigForm.btnSaveDftClick(Sender: TObject);
begin
  edtDftUser.Text := trim(edtDftUser.Text);
  edtDftPass.Text := trim(edtDftPass.Text);
  edtDftUser.Enabled := false;
  edtDftUser.Color := color;
  edtDftPass.Enabled := false;
  edtDftPass.Color := color;
end;

procedure TConfigForm.btnAddClick(Sender: TObject);
var
  item: TListItem;
begin

  if (trim(edtHost.Text) = '')or(trim(edtUser.Text) = '') then
  begin
    ShowMessage('主机名和用户名不能为空！');
    edtHost.SetFocus;
  end
  else
  begin
    item := lvMountList.Items.Add;
    item.Caption := edtHost.Text;
    item.SubItems.Add(edtUser.Text);
    item.SubItems.Add(Pass2Star(edtPass.Text));
    SharePassList.Add(edtPass.Text);

    edtHost.Text := '';
    edtUser.Text := '';
    edtPass.Text := '';
  end;

end;

procedure TConfigForm.btnDeleteClick(Sender: TObject);
begin
  if lvMountList.Selected <> nil then
  begin
    SharePassList.Delete(lvMountList.Selected.Index);
    lvMountList.Selected.Delete;
  end
  else ShowMessage('请选择要删除的项。');
end;

procedure TConfigForm.btnChangeClick(Sender: TObject);
begin

  if lvMountList.Selected <> nil then
  begin
    edtHost.Text := lvMountList.Selected.Caption;
    edtUser.Text := lvMountList.Selected.SubItems[0];
    //edtPass.Text := lvMountList.Selected.SubItems[1];
    edtPass.Text := SharePassList.Strings[lvMountList.Selected.Index];
  end
  else ShowMessage('请选择要修改的项。');

end;

procedure TConfigForm.btnSaveClick(Sender: TObject);
begin

  if lvMountList.Selected <> nil then
  begin
    if (trim(edtHost.Text) = '')or(trim(edtUser.Text) = '') then
    begin
      ShowMessage('主机名和用户名不能为空！');
      exit;
    end;
    lvMountList.Selected.Caption := edtHost.Text;
    lvMountList.Selected.SubItems[0] := edtUser.Text;
    lvMountList.Selected.SubItems[1] := Pass2Star(edtPass.Text);
    SharePassList.Strings[lvMountList.Selected.Index] := edtPass.Text;
  end
  else
  ShowMessage('请选择要修改的项。');
  
end;

procedure TConfigForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin

  if edtDftUser.Color = clWhite then
  begin
    edtDftUser.Text := BakUser;
    edtDftPass.Text := BakPass;
    btnSaveDftClick(Self);
  end;

  if edtFtpUsr.Color = clWhite then
  begin
    edtFtpUsr.Text := BakFtpUser;
    edtFtpPass.Text := BakFtpPass;
    btnSaveFtpClick(Self);
  end;

  SaveFilter;

end;

procedure TConfigForm.btnChangeFtpClick(Sender: TObject);
begin
  BakFtpUser := edtFtpUsr.Text;
  BakFtpPass := edtFtpPass.Text;

  edtFtpUsr.Enabled := true;
  edtFtpUsr.Color := clWhite;
  edtFtpPass.Enabled := true;
  edtFtpPass.Color := clWhite;
  edtFtpUsr.SetFocus;
end;

procedure TConfigForm.btnSaveFtpClick(Sender: TObject);
begin
  edtFtpUsr.Text := trim(edtFtpUsr.Text);
  edtFtpPass.Text := trim(edtFtpPass.Text);
  edtFtpUsr.Enabled := false;
  edtFtpUsr.Color := color;
  edtFtpPass.Enabled := false;
  edtFtpPass.Color := color;
end;

procedure TConfigForm.btnFtpAddClick(Sender: TObject);
var
  item: TListItem;
begin

  if (trim(edtFtpHost.Text) = '')or(trim(edtFtpUser.Text) = '') then
  begin
    ShowMessage('主机名和用户名不能为空！');
    edtFtpHost.SetFocus;
  end
  else if not (IsLegalIp(edtFtpHost.Text) or (edtFtpHost.Text = '*')) then
  begin
    ShowMessage('请输入IP地址。');
    edtFtpHost.SetFocus;
  end
  else
  begin
    item := lvFtpMountList.Items.Add;
    item.Caption := edtFtpHost.Text;
    item.SubItems.Add(edtFtpUser.Text);
    item.SubItems.Add(Pass2Star(edtPassFtp.Text));
    FtpPassList.Add(edtPassFtp.Text);

    edtFtpHost.Text := '';
    edtFtpUser.Text := '';
    edtPassFtp.Text := '';
  end;
  
end;

procedure TConfigForm.btnFtpDeleteClick(Sender: TObject);
begin
  if lvFtpMountList.Selected <> nil then
  begin
    FtpPassList.Delete(lvFtpMountList.Selected.Index);
    lvFtpMountList.Selected.Delete;
  end
  else ShowMessage('请选择要删除的项。');
end;

procedure TConfigForm.btnFtpChangeClick(Sender: TObject);
begin
  if lvFtpMountList.Selected <> nil then
  begin
    edtFtpHost.Text := lvFtpMountList.Selected.Caption;
    edtFtpUser.Text := lvFtpMountList.Selected.SubItems[0];
    //edtPassFtp.Text := lvFtpMountList.Selected.SubItems[1];
    edtPassFtp.Text := FtpPassList.Strings[lvFtpMountList.Selected.Index];
  end
  else ShowMessage('请选择要修改的项。');
end;

procedure TConfigForm.btnFtpSaveClick(Sender: TObject);
begin
  if lvFtpMountList.Selected <> nil then
  begin
    if (trim(edtFtpHost.Text) = '')or(trim(edtFtpUser.Text) = '') then
    begin
      ShowMessage('主机名和用户名不能为空！');
      exit;
    end;
    if not (IsLegalIp(edtFtpHost.Text)or(edtFtpHost.Text = '*')) then
    begin
      ShowMessage('请输入IP地址。');
      edtFtpHost.SetFocus;
      exit;
    end;
    lvFtpMountList.Selected.Caption := edtFtpHost.Text;
    lvFtpMountList.Selected.SubItems[0] := edtFtpUser.Text;
    lvFtpMountList.Selected.SubItems[1] := Pass2Star(edtPassFtp.Text);
    FtpPassList.Strings[lvFtpMountList.Selected.Index] := edtPassFtp.Text;
  end
  else
  ShowMessage('请选择要修改的项。');
end;

procedure TConfigForm.FormDestroy(Sender: TObject);
begin
  SharePassList.Free;
  FtpPassList.Free;
end;

end.