Конференция "Начинающим" » сетевая папка [D7, WinXP]
 
  • tombender © (31.10.11 19:36) [0]
    Привет
    Ест такая задача надо сделать программу которая при открытии спросит имя и порол. Патом открывается окно с несколькими кнопками и при нажатии 1 кнопки должно открыться сетевая папка (на пример    \\192.168.1.2\chenj\  )  а при нажатии 2 кнопки ( \\192.168.1.3\chenj\ ) и.т.
    Можно адрес папки повесит на кнопку но мне надо именно в окне программы открыт эту папку Я прочитал что надо как то использовать ShellListView объект но не знаю как.
    Пожалуйста помогите.
  • Rouse_ © (31.10.11 19:42) [1]
    Ну так и делаешь, на главной форме кладешь два едита под имя и парол и кнопку, на обработчике которой проверяешь, твой парол или нет.
    Если твой, то создаешь еще одну форму, с двумя кнопками и ShellListView которому по нажатии кнопок выставляешь путь...
  • Dennis I. Komarov © (31.10.11 19:52) [2]
    Пардон, а если софт обращается с сетевому ресурсу, разве ось не потребует сама юзер\пароль при необходимости? Т.е. в чем разница UNC путь или локальный (с точки зрения софта)?
  • tombender © (31.10.11 20:58) [3]
    Привет всем
    Уважаемые программисты Я начинающий так что не судите строга вот набросал что то но не как не получается может кто не будь поколдует с исходником. Буду очень признателен.


    unit Unit1;

    interface

    uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, StdCtrls;

    type
     TForm1 = class(TForm)
       Edit1: TEdit;
       Edit2: TEdit;
       ok: TButton;
       cancel: TButton;
     private
       { Private declarations }
     public
       { Public declarations }
     end;

    var
     Form1: TForm1;

    implementation

    {$R *.dfm}

    end.

  • Dennis I. Komarov © (31.10.11 21:09) [4]
    Самую сложную работу сделал... :)
  • Германн © (31.10.11 21:10) [5]

    > может кто не будь поколдует с исходником

    А исходник то где? :)
  • Ega23 © (31.10.11 21:11) [6]
    тОлсто.
  • Труп Васи Доброго © (01.11.11 07:32) [7]
    Афтар, пиши исчё!!! Только ты заранее предупреждай, что код давать будешь! Я минут 20 из под стола вылезти не мог!!! Тут очень сильное колдунство надо!
  • йцук (01.11.11 12:48) [8]
    имхо делать прогу аля "сервачек" глядящий в порт. И к нему клиента.
  • Dennis I. Komarov © (01.11.11 21:31) [9]

    > йцук   (01.11.11 12:48) [8]
    > имхо делать прогу аля "сервачек" глядящий в порт. И к нему
    > клиента.

    не надо бредить...
  • brother © (02.11.11 09:10) [10]
    > Я начинающий так что не судите строга вот набросал

    батонокидатель? ;)
  • brother © (02.11.11 09:11) [11]
    еще так и подмывает спросить:

    > и порол

    кого? и за что?)
  • Очень злой (02.11.11 22:23) [12]

    > brother ©   (02.11.11 09:11) [11]
    >
    > еще так и подмывает спросить:
    >
    > > и порол
    >
    > кого? и за что?)


    Чье имя спросит, того и порол..


    > спросит имя и порол
  • Dennis I. Komarov © (02.11.11 22:54) [13]

    > Очень злой   (02.11.11 22:23) [12]

    Эт девайс соответствующий тре-ся, ввел login и на тебе... :)
  • И. Павел © (02.11.11 23:26) [14]
    Что-то tombender ©  на бота смахивает (два раза поздоровался и странные посты), вот в 2003 году с этого email (pwl2004@mail.ru) явно орудовал бот: http://liveder.icqhackers.ru/viewlog/15.11.2003 .
  • tombender © (04.11.11 10:09) [15]
    Привет всем
    Я не хачу кого-то обманут или подшутит. Просто Я и вправду не знаю, как это сделать. Вот по этому подумал, может, остались добрые люди, которые помогут с примером. Прошу прошения если кого-то обидел. (И. Павел © Я не помню в 2003 году на каких форумах писал но уверяю Вас Я не бот и ).
  • И. Павел © (04.11.11 15:07) [16]

    > tombender ©   (04.11.11 10:09) [15]

    Вот набросал пример программы: http://www.fayloobmennik.net/1136819
    Логин и пароль: admin
    Сделал максимально просто, чтобы не отвлекать внимание на детали.

    Если под паролем подразумевается не пароль к программе а пароль пользователя к сетевой папке, то напишите, и можно будет порекомендовать варианты.

    И еще одно: в ShelllistView есть проблема с запуском файлов из него. Не знаю, исправили ли проблему в новых версиях Delphi, но лечится она так: http://pblog.ru/lab/?p=194
  • tombender © (06.11.11 18:41) [17]
    Привет И. Павел ©

    Большое спасибо за ответ и пример.

    У меня установлен Embarcadero RAD Studio XE и он пишет  “ class TShellListView not fond ” Я не знаю что делать.

    Я запустил Project1.exe и всё правильно, но при открытии программы окно ShellListView должно бит пустой, а при нажатии первой кнопки должно показать содержимое папки по адресу \\192.168.1.2\chenj\ и если нет связи выдавала соответственную информационное окно.
  • Германн © (06.11.11 23:29) [18]

    > tombender ©   (06.11.11 18:41) [17]

    Ну а сам-то ничего "не хочешь" сделать?
    То что сам "не можешь" понятно.
  • Dennis I. Komarov © (07.11.11 09:11) [19]
  • tombender © (07.11.11 12:45) [20]
    Добрый день
    Уважаеми Германн © да Я не знаю как сделать эту программу и потому прошу а не требую Ви не поймите плохо если Я научусь с Вашей помаши патом помогу другим вот так поступают хорошие люди и Вам когда-то кто-то помог при изучении программирования.
    С уважением ТОМ
  • И. Павел © (07.11.11 22:13) [21]

    > У меня установлен Embarcadero RAD Studio XE и он пишет  
    > “ class TShellListView not fond ” Я не знаю что делать.

    Видимо, эмбаркодеро удалили этот компонент. ShellListView  располагался на вкладке Samples (образцы), т.е. был в vcl неофициальным, так сказать. Но странно, что разработчики наплевали на совместимость. Могли бы переписать или хотя бы оставить компонент с глюками.

    В таком случае вам нужно либо перейти на более раннюю версию Delphi, либо использовать другие компоненты: вкладка Win3.1 содержит довольно устаревшие компоненты. Поэтому могу порекомендовать пакет AlphaControls, там есть свой компонент sShellTreeView, но гораздо более продвинутый.  Для жителей СНГ пакет AlphaControls бесплатный даже для коммерческих целей. http://alphaskins.com/index_rus.php
 
Конференция "Начинающим" » сетевая папка [D7, WinXP]
Есть новые Нет новых   [134436   +23][b:0][p:0.001]