Wie patcht man die classes.pas unter XE2?

[himitsu]

Zitat von jaenicke:

Also in XE und XE2 ist der verlinkte Bug aus der QC bei mir gar nicht mehr enthalten.
Und auch die Schritte zum Reproduzieren machen bei mir keinerlei Probleme mehr.

Soll heißen: Kauf die das Bugfix und gut ist.

[Lemmy]

Nein, da er ja schon XE2 hat, braucht er es auch nicht mehr zu kaufen

[Sherlock]

Ich habe XE2 mit den letzten Patches, und der Fehler tritt immer noch auf, wobei man andere Schritte gehen muss, um ihn zu reproduzieren. Der QC-Eintrag ist ja nur eines der Probleme...und bezieht sich eigentlich auf .net

Sherlock

[himitsu]

das 2007 hatte mich abgelekt.

Nja, dann poste dort doch mal deine Schritte.
Eventuell wird das dann auch irgendwann mal repariert.

Was genau machst du denn nun, bzw. kommst du nicht ohne genau diese Funktion aus?

[Sherlock]

Tja, was ich genau mache, kann ich nicht wirklich sagen. Eigentlich habe ich nur eine handvoll OCX, die unter XP (wohlgemerkt nur da, alles darüber macht keine Probleme) beim Beenden des ladenden Moduls eine Schutzverletzung rauswerfen. Nach mühsamen Debugstunden (!!) fand sich schließlich an dieser Stelle der Übeltäter. Der Quellcode der classes.pas hat sich gegenüber 2007 hier im Übrigen nicht geändert...

Sherlock

[Stevie]

Für 32-bit sähe das ungefähr so aus (Unit als erstes ins Project einbinden)

Delphi-Quellcode:

unit AllocateHWndPatch;

interface

implementation

uses
  Classes,
  SysUtils,
  Windows;

function PatchedAllocateHWnd(AMethod: TWndMethod): HWND;
begin
  {...}
end;

procedure RedirectFunction(OrgProc, NewProc: Pointer);
type
  TJmpOp = packed record
    Jmp: Byte;
    Offset: Integer;
  end;
var
  JmpOp: TJmpOp;
  n: {$IF COMPILERVERSION < 23}Cardinal{$ELSE}NativeUInt{$IFEND};
begin
  JmpOp.Jmp := $E9;
  JmpOp.Offset := PByte(NewProc) - (PByte(OrgProc) + SizeOf(TJmpOp));
  if not WriteProcessMemory(GetCurrentProcess, OrgProc, @JmpOp, SizeOf(TJmpOp), n) then
    RaiseLastOSError;
end;

initialization
  RedirectFunction(@Classes.AllocateHWnd, @PatchedAllocateHWnd);

end.

[Sherlock]

Ooh! Das sieth ja genial aus, danke Stevie. Gebe das mal an den Kollegen weiter, der sich gerade beide Ohren dabei gebrochen hat, die classes.pas neu zu kompilieren.

Sherlock