powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / логин и пароль. как залезть на другой комп по сети?
25 сообщений из 82, страница 1 из 4
логин и пароль. как залезть на другой комп по сети?
    #34569245
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго всем времени суток! Итак у меня такая ситуация:
я запускаю программу на локальном компьютере. На сервере крутится база mysql. Программа берет из нее данные и происходит работа с документами которые находятся на сервере. (win2k3) Теперь вопрос:
я хочу разрешить доступ файлам только с помощью программы. т.е. программа ломится на сервер, вводит логин и пароль, и пока она открыта - работа с документами возможна. при закрытии - доступа на сервер нет.

или я вижу еще один вариант: (как по мне - более простой.) Как каждые N-ое колличество минут удалять все вордовские файлы из истории. т.е. чтобы в ворде при нажатии на файл -> открыть -> мои последние документы - не отображался путь, откуда они были взяты.

Заранее благодарна за помощь.
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34569457
JaneDoe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вроде за recent files в вроде отвечает какой то ключ в реестре, но не помню
можешь попробовать потискать гугл на в этом направлении, но не гарантирую что моя версия верна
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34571407
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я бы на вашем месте хранил документы в БД, а при необходимости редактирования документа сохранял его во временную папку, оттуда открывал вордом, после сохранения и закрытия файла загружал его обратно в БД, а временный файл удалял. Имхо, в БД документы хранить надежнее, чем на диске.
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34571549
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а каким образом в базе данных хранить вордовские документы?
можно привести код? он в таком случае хранится в ячейке таблицы?
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34571586
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ЕленаMCа каким образом в базе данных хранить вордовские документы?
можно привести код?
Примеры кода для MySql смотрите в соответсвующем форуме, а для VB - в поиске.
ЕленаMCон в таком случае хранится в ячейке таблицы?
Да, вы правы, в столбце типа BLOB (image, varbinary... зависит от СУБД).
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34571648
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Еще один вопрос в догонку...
Порылась в поиске, там только на примере изображений показано... т.е. добавлять, читать, удалять.
я вот не понимаю как мне быть, когда идет изменение файла. Каким образом отслеживать когда сохраняется или закрывается файл?
Т.е. Сохранить файл в базе - не проблема (примеров достаточно что-нибудь найду). Далее...
поиском нахожу запись. открываю файл (копируя его во временную папку) при нажатии на "сохранить" надо чтобы файл изменился и в БД. аналогично при закрытии... я не понимаю как это отслеживать...
Подскажите.
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34571904
JaneDoe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хмм, может по времени изменения файла?
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34571976
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно открывать документ вордом непосредственно из программы, сохраняя ссылку на его объект в переменной допустим по имени doc. А по событию doc_Сlose(), писать его обратно в базу. Только нужно учитывать, что doc_Сlose происходит до того, как документ сохраняется по запросу "Документ не сохранен". Поэтому в doc_Сlose нужно самостоятельно задавать вопрос про то, что документ изменен и нужно ли его сохранять в базе.
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34572040
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
по времени изменения? это как?
1. в базе данных файл сохраняется с сохранением данных о файле? т.е. дата изменения, размер...
2. если это так, то допустим: я открываю файл... он сохраняется во временную папку... я его изменяю и закрываю... это что, каждые N секунд проверять изменилась ли дата?
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34572071
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все... я поняла... надо отслеживать файлы типа ~$MyDoc.doc :)
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574010
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ЕленаMCВсе... я поняла... надо отслеживать файлы типа ~$MyDoc.doc :)
Так у меня не получается... тогда много счетчиков надо будет, если открыто много файлов....
AntonariyМожно открывать документ вордом непосредственно из программы, сохраняя ссылку на его объект в переменной допустим по имени doc. А по событию doc_Сlose(), писать его обратно в базу. Только нужно учитывать, что doc_Сlose происходит до того, как документ сохраняется по запросу "Документ не сохранен". Поэтому в doc_Сlose нужно самостоятельно задавать вопрос про то, что документ изменен и нужно ли его сохранять в базе.
А как это сделать? что-то сам принцип я не поняла. :(
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574098
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В референсах нужно поставить галочку Microsoft Word.
авторDim WithEvents doc As Word.Document

Private Sub OpenFile()
Dim file As String
Dim wrd As New Word.Application
file = CreateFileFromDB 'это мы уже умеем))
wrd.Visible = True
Set doc = wrd.Documents.Open(file)
End Sub

Private Sub doc_Close()
doc.Save
SaveFileToDB file
Set doc = Nothing
End SubУ этого способа есть один минус - он будет работать только с той версией ворда, которая стояла на компьютере разработчика.
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574099
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не ту кнопку ткнул...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim WithEvents doc As Word.Document

Private Sub OpenFile()
Dim file As String
Dim wrd As New Word.Application
    file = CreateFileFromDB 'это мы уже умеем))
    wrd.Visible = True
    Set doc = wrd.Documents.Open(file)
End Sub

Private Sub doc_Close()
    'здесь можно спросить пользователя, нужно ли сохранять в базу
    doc.Save
    SaveFileToDB file
    Set doc = Nothing
End Sub
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574111
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот эту строчку - Dim wrd As New Word.Application - лучше переделать так:
авторDim wrd As Word.Application
On Error Resume Next
Set wrd = GetObject( , "Word.Application")
On Error Goto 0
If wrd Is Nothing Then Set wrd = New Word.Application
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574113
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Бл*
Код: plaintext
1.
2.
3.
4.
Dim wrd As Word.Application
On Error Resume Next
Set wrd = GetObject( , "Word.Application")
On Error Goto  0 
If wrd Is Nothing Then Set wrd = New Word.Application
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574121
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AntonariyНе ту кнопку ткнул...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim WithEvents doc As Word.Document

Private Sub OpenFile()
Dim file As String
Dim wrd As New Word.Application
    file = CreateFileFromDB 'это мы уже умеем))
    wrd.Visible = True
    Set doc = wrd.Documents.Open(file)
End Sub

Private Sub doc_Close()
    'здесь можно спросить пользователя, нужно ли сохранять в базу
    doc.Save
    SaveFileToDB file
    Set doc = Nothing
End Sub


У меня есть форма с поиском из которой и открывается файл... Судя по этому коду - надо делать кнопку "закрыть/сохранить"... а если надо будет с помощью поиска 2 или более файлов открыть? тогда предыдущие сохранить не смогу, т.к. кнопка "сохранить" поменяет путь... или я не права?
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574156
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пыталась написать цикл проверки существования файла тапа ~$MyDoc.doc... если он есть - то пропустить, иначе -записать файл MyDoc.doc в базу... но я не заню как в этот цикл добавлять др. файлы... и соответственно убирать (если они были закрыты) Может это будет легче сделать?
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574162
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AntonariyУ этого способа есть один минус - он будет работать только с той версией ворда, которая стояла на компьютере разработчика.
Вот здесь вы неправы. Если кинуть референс на файлик msword9.olb (от 97-го офиса, насколько я помню), то работать будет со всеми, включая 2007-й офис. У меня, по крайней мере, так работает.
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574173
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если использовать этот код, кнопка "сохранить" вообще не нужна. Сохранение будет происходить при закрытии документа. Чтобы была возможность "держать" таким способом более одного документа, нужно этот код оформить в класс, создавать экземпляр этого класса для каждого документа и хранить экземпляры в коллекции.
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574178
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AntonariyЕсли использовать этот код, кнопка "сохранить" вообще не нужна. Сохранение будет происходить при закрытии документа. Чтобы была возможность "держать" таким способом более одного документа, нужно этот код оформить в класс, создавать экземпляр этого класса для каждого документа и хранить экземпляры в коллекции.
Вот это ты матюкнулся.... :)
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574186
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Учи олбанский)) без него - никак.
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574204
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
было бы время... я эту прогу написать должна была до выходных... дали отсрочку до завтрашнего вечера... :) после этого - четвертуют... Ладно, и на этом спасибо... пошла погуглю... на счет этих матюкофф.... :)
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574242
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не стоит. Нагуглишь кучу академической инфы мало пригодной для прикладного использования. Лучше дождись примера, который дострогаешь напильником.
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574452
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пример.
...
Рейтинг: 0 / 0
логин и пароль. как залезть на другой комп по сети?
    #34574666
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
спасибо тебе ОГРОМНЕЙШЕЕ!!! пошла за напильником....
...
Рейтинг: 0 / 0
25 сообщений из 82, страница 1 из 4
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / логин и пароль. как залезть на другой комп по сети?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]