HiAsm
HiAsm
Вверх ↑
ФорумыМежду делом(:Мелкие вопросы от RinniX:) ← Ctrl12345678910...1213141516Ctrl →
Этот топик читают: Гость
Ответов: 1061
Рейтинг: 22
#76: 2012-08-06 17:14:00 ЛС | профиль | цитата
1nd1g0 писал(а):
Некоторые вообще ничего не отображают до отпускания мыши и сразу рисуют всех на новых местах.

ааа... точно... понял, спасибо! Я что-то начал думать об этом, но мысля ушла в сторону!
------------ Дoбавленo в 17.13:

Ошибка в ссылочном компоненте или среде?

Add(ChildPanelEx,14534726,105,112)
{
 @IsLib=True
}
BEGIN_SDK
  Add(EditMultiEx,16675575,21,21)
  {
  }
  Add(Panel,3116081,35,105)
  {
   Left=35
   Top=105
  }
  Add(ChildPanelEx,7502453,147,105)
  {
   elink(14534726)
  }
END_SDK
зайдите в компонент, потом ещё раз, уже в ссылочный компонент ссылающийся на родителя и попробуйте возвратиться в ROOT! У меня не получается! )))
карма: 0

0
Разработчик
Ответов: 26066
Рейтинг: 2120
#77: 2012-08-06 17:17:36 ЛС | профиль | цитата
RinniX писал(а):
Ошибка в ссылочном компоненте или среде?

Все бы ссылки на себя в себя же и пихали -- это же бесконечная вложенность
карма: 22

0
Ответов: 1061
Рейтинг: 22
#78: 2012-08-06 18:32:05 ЛС | профиль | цитата
nesco писал(а):
Все бы ссылки на себя в себя же и пихали -- это же бесконечная вложенность

Понятно! ))) Это я так, поэкспериментировал! )))

А как сделать вложенность такого компонента как ChildPanelEx в самого себя (ну или образца) столько сколько нужно, т.е. чтобы вложенность создавалась автоматически, а не вручную, как допустим ветки компонента TreeViev, только вместо веток панельки
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#79: 2012-08-07 17:11:23 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2017-06-14 22:04:55
карма: 0

0
Ответов: 1061
Рейтинг: 22
#80: 2012-08-07 17:18:45 ЛС | профиль | цитата
г. Andy, та нет, не про это! ))) Я про вложенность одной панельки в другую, т.е. вот так это будет выглядеть в ручном исполнении:

code_28713.txt
карма: 0

0
файлы: 1code_28713.txt [783B] [188]
Ответов: 1061
Рейтинг: 22
#81: 2013-03-29 00:33:01 ЛС | профиль | цитата
Всем привет! Помогите с компиляцией IC. Вот схема:

code_30709.txt

В чём причина многочисленных ошибок? )))
------------ Дoбавленo в 00.20:
Исправил некоторые строки, но всё также не может идентифицировать длл:

Add(MainForm,2953706,119,266)
{
 Width=407
 Height=296
}
Add(Button,745319,203,266)
{
 Left=35
 Top=25
 link(onClick,10869016:doFindName,[])
}
Add(Label,2213985,259,196)
{
 Left=180
 Top=95
 Caption="notepad.exe"
}
Add(EnumProcess,10869016,252,245)
{
 Point(Name)
 Point(doFindName)
 Point(onFind)
 Point(onNotFind)
 link(Name,2213985:Caption,[])
 link(onFind,14371488:doWork,[(296,258)(296,304)(240,304)(240,349)])
}
Add(InlineCode,14371488,252,343)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 DataPoints=#9:ProcessID|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses kol,Share,Debug,TlHelp32;|0:|4:type|0:|27: THIFrzProc = class(TDebug)|3:   |10:   private|0:|9:   public|3:   |24:   ProcessID: THI_Event;|23:   onEvent: THI_Event; |3:   |49:   procedure doWork(var _Data:TData; Index:Word);|3:   |5: end;|5:     |129:     function OpenThread(dwDesiredAccess: DWORD; bInheritHandle: BOOL; dwThreadId: DWORD): THandle; stdcall; external 'kernel32';|5:     |48:     function FreezProcess(ProcessID: Cardinal);|11:        var|30:           hSnapshot: THandle;|30:           te: TThreadEntry32;|23:           Th: THandle;|13:        begin|78:           hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD,ProcessID);|43:        if Thread32First(hSnapshot,te) then|14:        repeat|72:           Th:=OpenThread(THREAD_PRIORITY_NORMAL,false,te.th32ThreadID);|29:           SuspendThread(Th);|27:           CloseHandle(Th);|45:        until not Thread32Next(hSnapshot,te);|31:        CloseHandle(hSnapshot);|9:     end;|0:|14:implementation|0:|32:    procedure THIFrzProc.doWork;|12:       begin|34:          FreezProcess(ProcessID);|35:          _hi_OnEvent(onEvent,'1');|11:       end;|0:|4:end.|
 link(ProcessID,10869016:CurrentID,[])
}
------------ Дoбавленo в 00.33:
ещё немного исправил, уже меньше ошибок, но длл по прежнему не определяет:

Add(MainForm,2953706,119,266)
{
 Width=407
 Height=296
}
Add(Button,745319,203,266)
{
 Left=35
 Top=25
 link(onClick,10869016:doFindName,[])
}
Add(Label,2213985,259,196)
{
 Left=180
 Top=95
 Caption="notepad.exe"
}
Add(EnumProcess,10869016,252,245)
{
 Point(Name)
 Point(doFindName)
 Point(onFind)
 Point(onNotFind)
 link(Name,2213985:Caption,[])
 link(onFind,14371488:doWork,[(296,258)(296,304)(240,304)(240,349)])
}
Add(InlineCode,14371488,252,343)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 DataPoints=#9:ProcessID|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses kol,Share,Debug,TlHelp32;|0:|4:type|0:|27: THIFrzProc = class(TDebug)|3:   |10:   private|0:|9:   public|3:   |24:   ProcessID: THI_Event;|23:   onEvent: THI_Event; |3:   |49:   procedure doWork(var _Data:TData; Index:Word);|3:   |5: end;|5:     |129:     function OpenThread(dwDesiredAccess: DWORD; bInheritHandle: BOOL; dwThreadId: DWORD): THandle; stdcall; external 'kernel32';|5:     |0:|14:implementation|0:|32:    procedure THIFrzProc.doWork;|12:       begin|34:          FreezProcess(ProcessID);|35:          _hi_OnEvent(onEvent,'1');|11:       end;|0:|47:   procedure FreezProcess(ProcessID: Cardinal);|11:        var|30:           hSnapshot: THandle;|30:           te: TThreadEntry32;|23:           Th: THandle;|13:        begin|78:           hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD,ProcessID);|43:        if Thread32First(hSnapshot,te) then|14:        repeat|72:           Th:=OpenThread(THREAD_PRIORITY_NORMAL,false,te.th32ThreadID);|29:           SuspendThread(Th);|27:           CloseHandle(Th);|45:        until not Thread32Next(hSnapshot,te);|31:        CloseHandle(hSnapshot);|7:   end;|4:end.|
 link(ProcessID,10869016:CurrentID,[])
}
карма: 0

0
файлы: 1code_30709.txt [1.7KB] [336]
Разработчик
Ответов: 26066
Рейтинг: 2120
#82: 2013-03-29 00:37:35 ЛС | профиль | цитата
RinniX писал(а):
Исправил некоторые строки

Нефига там не исправлено, куча ошибок висела.

Add(MainForm,536979,280,259)
{
 Width=407
 Height=296
}
Add(Button,745319,364,259)
{
 Left=35
 Top=25
 link(onClick,10869016:doFindName,[])
}
Add(Label,2213985,420,189)
{
 Left=180
 Top=95
 Caption="notepad.exe"
}
Add(EnumProcess,10869016,413,238)
{
 Point(Name)
 Point(doFindName)
 Point(onFind)
 Point(onNotFind)
 link(Name,2213985:Caption,[])
 link(onFind,14371488:doWork,[(457,251)(457,297)(401,297)(401,342)])
}
Add(InlineCode,14371488,413,336)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 DataPoints=#9:ProcessID|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses Windows,kol,Share,Debug,TlHelp32;|0:|4:type|0:|27: THiAsmUnit = class(TDebug)|3:   |10:   private|0:|9:   public|3:   |24:   ProcessID: THI_Event;|23:   onEvent: THI_Event; |3:   |49:   procedure doWork(var _Data:TData; Index:Word);|3:   |5: end;|5:     |129:     function OpenThread(dwDesiredAccess: DWORD; bInheritHandle: BOOL; dwThreadId: DWORD): THandle; stdcall; external 'kernel32';|5:     |14:implementation|0:|49:     procedure FreezProcess(ProcessID: Cardinal);|11:        var|30:           hSnapshot: THandle;|30:           te: TThreadEntry32;|23:           Th: THandle;|13:        begin|78:           hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD,ProcessID);|43:        if Thread32First(hSnapshot,te) then|14:        repeat|72:           Th:=OpenThread(THREAD_PRIORITY_NORMAL,false,te.th32ThreadID);|29:           SuspendThread(Th);|27:           CloseHandle(Th);|45:        until not Thread32Next(hSnapshot,te);|31:        CloseHandle(hSnapshot);|9:     end;|0:|0:|32:    procedure THiAsmUnit.doWork;|12:       begin|50:          FreezProcess(ToIntegerEvent(ProcessID));|35:          _hi_OnEvent(onEvent,'1');|11:       end;|0:|4:end.|
 link(ProcessID,10869016:CurrentID,[])
}
карма: 22

1
Голосовали:RinniX
Ответов: 1061
Рейтинг: 22
#83: 2013-03-29 00:46:36 ЛС | профиль | цитата
nesco писал(а):
Нефига там не исправлено, куча ошибок висела.

Блин... и всего-то! Кстати про такое в справке не написано! )) Спасибо!
------------ Дoбавленo в 00.46:
А я уже начал идентификаторы прописывать! )))
карма: 0

0
Ответов: 9906
Рейтинг: 351
#84: 2013-03-29 09:36:21 ЛС | профиль | цитата
RinniX писал(а):
Кстати про такое в справке не написано!

А бестолковка то на что

Вот если бы ты был кодогенератором, откуда ТЫ лично узнал БЫ про магическое слово THIFrzProc
Что надо создать объект этого класса, и что именно у него есть метод doWork.

А ни откуда не узнал бы.
Прекрасно понимаю - вообще не думал об этом. Утверждение такое: должен был думать
Потому что компилятор Дельфи ты не заменяешь, и парсингом (изучением под микроскопом каждого слова) какого-то там языка не занимаешься

ИМХО, справка не должна представлять собой учебник по элементарной логике.
Взялся за IC - должен понимать, чего происходит.
Понимание отличается от набора инструкций "куды чего подсунуть".
Невозможно сделать инструкцию на все возможные варианты "подсовываний"
карма: 9

0
Ответов: 1061
Рейтинг: 22
#85: 2013-03-30 16:57:37 ЛС | профиль | цитата
Я никак не пойму, почему поток программы не приостанавливается! Помогите пожалуйста разобраться с этой загадкой (для меня загадкой)! ))

code_30720.txt
карма: 0

0
файлы: 1code_30720.txt [2.1KB] [329]
Ответов: 1061
Рейтинг: 22
#86: 2013-03-31 22:46:31 ЛС | профиль | цитата
RinniX писал(а):
Я никак не пойму, почему поток программы не приостанавливается! Помогите пожалуйста разобраться с этой загадкой! ))

Какова цена вопроса (разгадки)? ))
карма: 0

0
Разработчик
Ответов: 26066
Рейтинг: 2120
#87: 2013-04-01 00:03:17 ЛС | профиль | цитата
RinniX писал(а):
Какова цена вопроса (разгадки)?

А сколько не жалко
------------ Дoбавленo в 00.03:
Ответ готов, только осталось выяснить цену вопроса и способ оплаты. Стучи в личку, если интересно
карма: 22

0
Ответов: 1061
Рейтинг: 22
#88: 2013-04-01 00:07:18 ЛС | профиль | цитата
----
карма: 0

0
Ответов: 1061
Рейтинг: 22
#89: 2013-04-04 20:40:09 ЛС | профиль | цитата
Компонент VerifySignature может проверять цифровые подписи файлов (exe, dll, прочие)?
карма: 0

0
Разработчик
Ответов: 26066
Рейтинг: 2120
#90: 2013-04-05 02:26:41 ЛС | профиль | цитата
RinniX писал(а):
проверять цифровые подписи файлов

Смотря, что у них подписано, и есть ли ключ и сертификат Я без понятия, что подписывают у этих файлов, никогда этим не занимался
карма: 22

0
ФорумыМежду делом(:Мелкие вопросы от RinniX:) ← Ctrl12345678910...1213141516Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2020
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика