Не могу понять в чем дело

Форумы "Игра в слова"Не могу понять в чем дело ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 327

Рейтинг: 5

#1: 2013-07-02 02:10:28 ЛС | профиль | цитата

code_31387.txt
1. "Подвисает" при попытке найти флоппи диск(он просто первым выдается).
2. Начинает поиск только если двигать мышкой в окне программы.
В честь чего и как решить эти проблемы?

P.S
Win 7(x32)

карма: 0

файлы: 1

code_31387.txt [6.8KB] [123]

Разработчик

Ответов: 26170

Рейтинг: 2127

#2: 2013-07-02 02:41:30 ЛС | профиль | цитата

knoot0279 писал(а):

Начинает поиск только если двигать мышкой в окне программы

Поставь в Application Waite=false

карма: 22

Ответов: 327

Рейтинг: 5

#3: 2013-07-02 02:47:42 ЛС | профиль | цитата

nesco писал(а):

Поставь в Application Waite=false

Спасибо, остается:

knoot0279 писал(а):

1. "Подвисает" при попытке найти флоппи диск(он просто первым выдается).

DeviceID, первым всегда находит флоппи, причем делает он это довольно долго(ну относительно долго), почему?

карма: 0

Разработчик

Ответов: 26170

Рейтинг: 2127

#4: 2013-07-02 02:53:22 ЛС | профиль | цитата

knoot0279 писал(а):

первым всегда находит флоппи, причем делает он это довольно долго(ну относительно долго), почему?

Потому, наверное, что диск имеет букву A:. Почему долго -- все вопросы к системе. DiskInfo использует системный WMI

карма: 22

Ответов: 327

Рейтинг: 5

#5: 2013-07-02 03:15:56 ЛС | профиль | цитата

А можно как нибудь получить диски с Description=Local Fixed Disk?
Минуя всякие там флоппи и дисководы?

P.S
Не отсекать ненужные, а сразу получить диски только с Description=Local Fixed Disk.

карма: 0

Разработчик

Ответов: 26170

Рейтинг: 2127

#6: 2013-07-02 03:52:09 ЛС | профиль | цитата

knoot0279 писал(а):

Не отсекать ненужные, а сразу получить диски только с Description=Local Fixed Disk

Ну и как ты это сделаешь при помощи этого компонента, когда он перебирает все логические диски начиная с первого и до последнего

Можно, я так думаю, на VB скрипте сделать, но я в них не силен

карма: 22

Ответов: 327

Рейтинг: 5

#7: 2013-07-02 08:35:43 ЛС | профиль | цитата

nesco писал(а):

Можно, я так думаю, на VB скрипте сделать, но я в них не силен

я сделал(почти сделал) на делфи
code_31388.txt
Но он меня достал сообщением : C:\Program Files\HiAsm_AltBuild\Elements\delphi\code\hiInlineCode_22DEEB0.pas(22) Error: Undeclared identifier: 'Dword'
Смотрел компонент DiskInfo, там используется и ничего...
Где ошибка?
------------ Дoбавленo в 07.55:
и еще ему не нравится "GetLogicalDrives"
------------ Дoбавленo в 08.35:
скрин из королевства делфи

карма: 0

файлы: 1

code_31388.txt [892B] [122]

Ответов: 16884

Рейтинг: 1239

#8: 2013-07-02 08:47:11 ЛС | профиль | цитата

knoot0279 писал(а):

я сделал(почти сделал) на делфи

В HiAsm на IC это решается одной строкой кода:
code_31389.txt

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1

code_31389.txt [854B] [155]

Ответов: 327

Рейтинг: 5

#9: 2013-07-02 09:06:57 ЛС | профиль | цитата

Tad, спаситель ты наш... Где ты раньше был

До того как я лишние 100 раз успел убедиться что я идиот

карма: 0

Ответов: 16884

Рейтинг: 1239

#10: 2013-07-02 09:15:23 ЛС | профиль | цитата

В моей IC замени (лишних begin-ов наставил

Видно спросонья

)


PROCEDURE THiAsmClass.GetDiscs;
  var
    i: Char;
  begin
    for i:= 'A' to 'Z' do if (GetDriveType(PChar(i+':\'))=3) then _hi_onEvent(Res,i+':\');
  end;

и т.к. буквы А и В зарезервированы для флопи, то вполне нормально : for i:= 'C' to 'Z'

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 327

Рейтинг: 5

#11: 2013-07-02 09:27:49 ЛС | профиль | цитата

Tad писал(а):

и т.к. буквы А и В зарезервированы для флопи, то вполне нормально : for i:= 'C' to 'Z'

Это поправил, но т.к он на этом не тормозил, то можно было и не убирать

карма: 0

Ответов: 16884

Рейтинг: 1239

#12: 2013-07-02 09:56:48 ЛС | профиль | цитата

Значит всё. "З богом,Парасю"(с)

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 327

Рейтинг: 5

#13: 2013-07-02 13:13:48 ЛС | профиль | цитата

Tad, помнишь разговаривали на тему что долго ищет файлы?
Ну так вот... 80 000 файлов/сек.

Визуализация была только чтобы посмотреть

убрав ее сразу все летать начало, а так же процесс сильно тормозило то, что пути записывались в список (собрал дополнение и посмотрел что если стартовал он на скорости ~300файлов/сек. , то заканчикал ~150файлов/сек.)

[flood]Ну плюс еще теперь не уходит 5-10сек на флоппи.[/flood]

карма: 0

Ответов: 5446

Рейтинг: 323

#14: 2013-07-02 13:23:21 ЛС | профиль | цитата

knoot0279, что и требовалось доказать. Два основных тормоза: перерисовка окна и выделение памяти под разрастающийся список строк.

карма: 1

Ответов: 327

Рейтинг: 5

#15: 2013-07-02 13:45:45 ЛС | профиль | цитата

iarspider писал(а):

Два основных тормоза: перерисовка окна и выделение памяти под разрастающийся список строк

карма: 0

Форумы "Игра в слова"Не могу понять в чем дело ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)