CreateWindowEx stack overrun?

[EWeiss]

Blicke durch deinen Code nicht durch..
Aber die Meldung sagt ja schon das ein Stack Überlauf aufgetreten ist.

Also ruft sich irgend etwas bei deiner Window erstellung immer wieder selbst auf.
So das du in einer Endlosschleife hängst.

Aber die Namensgebung ist sowas außerhalb der norm das ich mich in deinem Code nicht wirklich
zurechtfinde .. Zu Anstrengend das zu lesen.

gruss

[sansimarkus]

mal den code abgespeckt (und createwindowex durch createwindow ersetzt)

Delphi-Quellcode:

unit CoreWndObj;

interface

uses
  System.SysUtils,
  System.Classes,
  system.Types,

  Winapi.Windows,
  Winapi.Messages;


type
 TCoreWnd = class(TObject)
   private
     myhWnd:      HWND;
   public
      constructor    create();
 end;




implementation

function WndProc(i_hWnd:HWND;i_Message:LongWord;i_wParam:WPARAM;i_lParam:LPARAM):LResult;
begin
  result := DefWindowProc(i_hWnd, i_Message, i_wParam, i_lParam);
end;


constructor TCoreWnd.create();
var
 wcex:       TWndClassEx;
 dwStyle:    dword;
 x,y: string;
begin

 inherited create;

 x := 'blablub';
 y := 'blblbl';

 ZeroMemory(@wcex,sizeof(wcex));
 with wcex do
  begin
   cbSize        :=  SizeOf(wcex);
   style         :=  CS_HREDRAW or CS_VREDRAW or CS_OWNDC;
   lpfnWndProc   :=  @wndproc;
   hInstance     :=  SysInit.HInstance;
   hCursor       :=  LoadCursor(0,IDC_ARROW);
   lpszClassName :=  PChar(x);
   hbrBackground :=  1;
  end;

 if RegisterClassEx(wcex) = 0 then
  writeln('error');

 dwStyle   := WS_OVERLAPPEDWINDOW or WS_CLIPSIBLINGS or WS_CLIPCHILDREN;


 myhWnd := CreateWindow( PChar(x),
                         PChar(y),
                         dwStyle,
                         120,
                         120,
                         1280,
                         768,
                         0,0,SysInit.HInstance,nil);
 if myhWnd = 0 then
  Writeln('error');

 ShowWindow(myhWnd, SW_SHOW);
 SetForegroundWindow(myhWnd);

end;

end.

gleicher Fehler, und trotzdem funktionierts einwandfrei als 64bit version.

[p80286]

Ich hab da etwas gefunden, was vielleicht weiterhilft:
http://msdn.microsoft.com/de-de/magazine/cc163311.aspx
Vor allem den Hinweis auf den int3 fand ich interessant, könnte aber sein, daß ich vollkommen falsch liege.

Gruß
K-H

[sansimarkus]

Was hat denn die Analyse angreifbarer Abstürze mit meinem stack buffer overrun zu tun?

Also die Windowsapi scheint von außerhalb der Delphiunits unendlich oft WndProc zu callen, wenn ich da mit dem debugger reinsteppe hängt sich allerdings wie gesagt mein XE2 auf (100% cpu auslastung im debugger thread). Warum er das nun als 64Bit Version nicht macht ist mir genauso ein Rätsel.



Edit: eigentlich erster Schritt bei solchen Fehlern, aber ich hab grade das ganze mal in einem neuen projekt ausprobiert, gleicher Fehler.

[sansimarkus]

Ok. Erschlag mich wer.

stdcall bei der wndproc vergessen.

[EWeiss]

Zitat von sansimarkus:

Ok. Erschlag mich wer.

stdcall bei der wndproc vergessen.

Warum ?
Du solltest eher mich erschlagen hätte das eigentlich sehen müssen
Aber wie gesagt die ganzen i_ vor jeden Namen vielleicht hat das mich abgelenkt.

Aber jeder wie er will.

gruss

[himitsu]

Unter Win64 wurde auch so Einiges an den Aufrufkonventionen geändert.

[sansimarkus]

Zitat:

Unter Win64 wurde auch so Einiges an den Aufrufkonventionen geändert.

Mir stellt sich nun die Frage, ob ich für Win64 das stdcall weglassen sollte - geht mit und ohne gleichermaßen.

[Luckie]

Zitat von himitsu:

Unter Win64 wurde auch so Einiges an den Aufrufkonventionen geändert.

Auch bei den dokumentierten API Funktionen? Die haben, soweit ich weiß, immer stdcall als Aufrufkonvention.

[jaenicke]

Unter 64-Bit gibt es nur noch eine Aufrufkonvention. Du kannst also dort auch cdecl oder pascal dahinter schreiben, es wird ohnehin ignoriert.