Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093754 Sun, 11 Mar 2012 06:06:53 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093754 0day Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093709 Sun, 11 Mar 2012 04:32:37 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093709
PS: Интересно, для чего ты FindTypeInfoObject юзаешь - для инжекта в сторонний процесс или exe? Малварь изобретаешь или свою навесную защиту и т.п.?]]> leo Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093608 Sat, 10 Mar 2012 17:21:15 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093608 0day Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093427 Sat, 10 Mar 2012 08:55:04 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093427 Цитата 0day @
В целом AfterConstruction вроде как можно и не вызывать даже, там все равно ret.

У TObject - да, а у той же TCustomForm и ее наследниках - во-первых, не пустой, во-вторых, не вызывает inherited, поэтому твой код для TForm и не работает. А если бы был вызов inherited, то твой OnAfterConstruction мог бы "наломать дров" из-за повторногом вызова obj.AfterConstruction]]> leo Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093348 Fri, 09 Mar 2012 20:54:06 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093348 ViktorXP
В целом AfterConstruction вроде как можно и не вызывать даже, там все равно ret.
Тоесть AfterConstruction у TObject все равно пустой метод.
я не прав?

А не подскажите почему TForm не вызывает AfterConstruction ?]]> 0day Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093284 Fri, 09 Mar 2012 17:33:46 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093284 Цитата 0day @
var
 Ref:integer = 0;
 
function OnAfterConstruction(obj:TObject): TObject;
begin
 
  if ( Ref = 0 ) then
  begin
   Inc(Ref);
    obj.AfterConstruction;
    ShowMessage(obj.ClassName);
   Dec(Ref);
  end;
 
  result:=obj;
end;

после инкремента Ref, уловие не будет срабатывать и соответственно все объекты которые будут порождены в период от инкремента до декремента будут отрабатывать мимо этого куска кода. соответственно obj.AfterConstruction для их не вывозется]]> ViktorXP Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093047 Fri, 09 Mar 2012 08:53:26 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3093047 ViktorXP
Цитата ViktorXP @
это получается что если я создам объект в AfterConstruction то его же собственный AfterConstruction не вызовется.

Почему? покажи пример.

Там перехват у TObject.AfterConstruction который сам по себе пустой метод.
Так как твой объект будет наследоваться от TObject то AfterConstruction твоего обьекта должна быть вызвана.]]> 0day Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3092956 Thu, 08 Mar 2012 21:03:04 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3092956 ViktorXP Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3092730 Thu, 08 Mar 2012 12:18:53 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3092730
Кому интересно накидал код, выводит имена создаваемых классов.

    type
      PEXCEPTION_POINTERS = ^EXCEPTION_POINTERS;
      EXCEPTION_POINTERS = packed record
         ExceptionRecord :^EXCEPTION_RECORD;
         ContextRecord   :PCONTEXT;
    end;
     
    function AddVectoredExceptionHandler(FirstHandler:ULONG; VectoredHandler:Pointer):pointer;stdcall; external 'kernel32.dll';
    var
     Ref:integer = 0;
     
    function OnAfterConstruction(obj:TObject): TObject;
    begin
     
      if ( Ref = 0 ) then
      begin
       Inc(Ref);
        obj.AfterConstruction;
        ShowMessage(obj.ClassName);
       Dec(Ref);
      end;
     
      result:=obj;
    end;
     
     
    FUNCTION VectoredHandler( ExceptionInfo:PEXCEPTION_POINTERS):ULONG;stdcall;
    var
     p:Pointer;
    begin
      Result:=0;
      if ( ExceptionInfo^.ExceptionRecord^.ExceptionCode = EXCEPTION_SINGLE_STEP ) then
      begin
        p :=PWORD( ExceptionInfo^.ContextRecord^.Eip);
        if ( PBYTE(PChar(p)-1)^ = $F1) and ( PBYTE(PChar(p))^ = $C3) then
        begin
         ExceptionInfo^.ContextRecord^.Eip := Cardinal(@OnAfterConstruction);
         result:=$ffffffff;
        end;
      end;
     
    end;
     
     
    var
      ptr:pointer;
      Attr:Cardinal;
      ObjRef:TObjectRef;
    begin
     
      FindTypeInfoObject( pointer(1000),ObjRef );
      ptr:= GetVMTItem(ObjRef.VMT,MetodAfterConstruction);
      AddVectoredExceptionHandler(1,@VectoredHandler);
      VirtualProtect(ptr,sizeof(ptr),PAGE_EXECUTE_READWRITE,@Attr);
        PWord(ptr)^ := $C3F1;
      VirtualProtect(ptr,sizeof(ptr),Attr,@Attr);
     
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    end.

Projects.rar (, : 304)

Добавлено
Версия однопоточная, для нескольких потоков нужно юзать TLS для переменной Ref.
Работает для 7 версии дельфи.
При запущенном отладчике дельфи работать не будет.]]> 0day Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3092723 Thu, 08 Mar 2012 12:05:56 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3092723 пс. Если более правильно выразится то эта функция взывает метод AfterConstruction у объекта. компилятор просто "расставляет" ее в нужном месте. (точно также как и неявное выделение/освобождение памяти строк/динамических массивов)]]> ViktorXP Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3092718 Thu, 08 Mar 2012 11:54:22 +0000 Вызов _AfterConstruction https://forum.sources.ru/index.php?showtopic=352737&view=findpost&p=3092718 0day Delphi: Разработка компонентов