| View previous topic :: View next topic |
| Author |
Message |
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
 (Separately) Posted: Tue Dec 26, 2017 18:23 Post subject: |
 |
|
ingerard
Проблема в том, что я не могу идентифицировать нахождение внутри архива кроме как перебором путевой цепочки с проверкой типа. Это может несколько замедлить скорость. Могу добавить, если есть желание протестировать. А пока сделал поддержку файлсистемных плагинов с файловой структурой (BadCopy, Back2life, DiskInternals Reader, NTFS - streams). Выход из глубины архивов также должен работать.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
 |
ingerard
Joined: 04 Dec 2016
Posts: 128
|
| (Separately) Posted: Tue Dec 26, 2017 18:26 Post subject: |
|
|
Flasher
Не, думаю не стоит, замедление очень критично, и так полсекундный отклик уже присутствует.
| Quote: | | А пока сделал поддержку файлсистемных плагинов с файловой структурой (BadCopy, Back2life, DiskInternals Reader, NTFS - streams). Выход из глубины архивов также должен работать. |
Испробую, а это дополнение на скорость не влияет? |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Dec 26, 2017 18:33 Post subject: |
|
|
ingerard
Полсекунды?  Это много. У меня 0.12-0.14 сек в среднем.
| ingerard wrote: | | Испробую, а это дополнение на скорость не влияет? |
Любая проверка влияет. Но несущественно.
Добавил ещё открытие файлов (Как мы вообще это упустили? ) и, соответственно, несихронный вход в архив.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
ingerard
Joined: 04 Dec 2016
Posts: 128
|
| (Separately) Posted: Tue Dec 26, 2017 21:38 Post subject: |
|
|
| Flasher wrote: | | Полсекунды? Shocked Это много. |
Может конечно и меньше  Точных замеров не делал. | Flasher wrote: | | Добавил ещё открытие файлов (Как мы вообще это упустили? Shocked) |
Я думал это фича такая  Типа с каталогами только работает та и ладно. Но думаю пригодится открытие. Ща буду тестить.
Что-то поломалось, с левой панели нажимаю на папку, справа заходит, а слева нет, нажимаю еще раз, заходит и в эту. С правой панели нормально. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Dec 26, 2017 22:22 Post subject: |
|
|
| ingerard wrote: | | Может конечно и меньше |
Да скорее всего.
| ingerard wrote: | | Я думал это фича такая |
А как работать-то? После синхронизации наверняка что-то запускать понадобится для сравнения.
Что-то какая-то странная история с левой/правой панелью. Добавил задержку после входа в противоположной. Как с ней?
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
ingerard
Joined: 04 Dec 2016
Posts: 128
|
| (Separately) Posted: Tue Dec 26, 2017 22:36 Post subject: |
|
|
| Flasher wrote: | | Добавил задержку после входа в противоположной. Как с ней? |
Теперь нормально. Как-то сложно код оброс 
Нет, не нормально, бывает проскакивает глюк. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Dec 26, 2017 22:46 Post subject: |
|
|
ingerard
В 26 строке можно наращивать 20: 25, 30, 40, ...
Принципильно в этой части он и не изменился. По логике и ранее должна была возникать такая ситуация.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
ingerard
Joined: 04 Dec 2016
Posts: 128
|
| (Separately) Posted: Tue Dec 26, 2017 23:00 Post subject: |
|
|
Flasher
Поставил 40, пока вроде достаточно, завтра усерднее протестирую. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Dec 28, 2017 01:52 Post subject: |
|
|
ingerard
Ещё немного калибровки. Сделал вход в корни распаковываемых файлов
и установку курсора в другой панели на одноимённик при запуске файла.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
ingerard
Joined: 04 Dec 2016
Posts: 128
|
| (Separately) Posted: Thu Dec 28, 2017 11:16 Post subject: |
|
|
Flasher
Испробовал, норм.
p.s. Тут обнаружил альтернативу - FreeCommander, в ней реализован синхронный просмотр на отлично, там даже курсор двигается по одинаковым элементам. Почему Гислер сделал такой обрубок не понятно. Я пытался ему донести мысль, а от него никакой реакции. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Dec 28, 2017 12:10 Post subject: |
|
|
ingerard
Давно не щупал FreeCommander. Может, он и не единственный, который так умеет. Ссылка на донесённую мысль не помешала бы.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
ingerard
Joined: 04 Dec 2016
Posts: 128
|
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Dec 28, 2017 15:57 Post subject: |
|
|
ingerard
Да вроде нормально. Гифки есть — уже хорошо.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Jan 04, 2018 23:34 Post subject: |
|
|
ingerard
Более костыльный вариант (+ 1 дс), но беспроблемный для архивов:
| Code: | '••••••••••••••••••••••••••••• VBS •••••••••••••••••••••••••••••
' Синхронное открытие одноимённых каталогов/архивов в панелях ТС
' Условие: требуется TCScript.dll
' Ключ запрета несинхронного открытия: /n
' Ключ перехода в родительский каталог: /b
'•••••••••••••••••••••••••••••••••••••••••• Автор: Flasher © •••
Option Explicit : Dim FSO, TCS, Key, SP, TP, N, Ln
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
Set Key = WSH.Arguments.Named
With TCS .Pause = 0 : .Wait = True : SP = .GetSrcPath
TP = .GetInfo("TP") : N = .GetInfo("SN") : .LockTC True
If N = ".." Or Key.Exists("b") Then
If StrComp(FN(SP), FN(TP), 1) = 0 Then _
Call Cm(2002)(4006)(2002)(4006) Else If Not Key.Exists("n") Then Cm(2002)
Else Cm(2003)
If Len(.GetSrcPath) - Len(SP) > 0 Then
If .INIRead(.TCPath & "\usercmd.ini", "em_cd", "param") <> "%Z%A" Then _
.INIWriteSection .TCPath & "\usercmd.ini", "em_cd", "cmd=cd" & vbCrLf & "param=%Z%A"
Cm(4006) : .UserCmd "em_cd " & FN(N) : Ln = Len(.GetSrcPath) - Len(TP)
Select Case True
Case Ln > 0 Cm(4006)
Case Ln < 0 Call Cm(570)(4006)(570)
Case Ln = 0 Cm(4006) : If Key.Exists("n") Then Cm(570)
End Select
Else Cm(1001) End If
End If : .LockTC False
End With : Set FSO = Nothing : Set TCS = Nothing
Function FN(x) FN = FSO.GetFileName(Replace(x, "\\\", "")) End Function
Function Cm(y) TCS.SendCommand y,1 : Set Cm = GetRef("Cm") End Function |
В нижней рекомендации send({ESC}) заменил на tcm(4005).
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
| Back to top |
|
|
JKT
Joined: 22 Sep 2009
Posts: 116
Location: Харьков
|
| (Separately) Posted: Mon Jun 04, 2018 10:09 Post subject: |
|
|
| Quote: | | Условие: требуется TCScript.dll |
Т.е. его достаточно кинуть в системные папки и зарегить в с-ме, или еще какие телодвижения надо производить? |
|
| Back to top |
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
