Delphi-PRAXiS - Delphi Programm startet nicht nicht

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Programm startet nicht nicht (https://www.delphipraxis.net/18362-programm-startet-nicht-nicht.html)

Programm startet nicht nicht

Hallo ich hab ein programm geschrieben

hier anzuschauen
wenn man das programm starten will, meldet er das ein fehler vorliegt und windows den fehler senden will
das macht er auch nicht immer wenn man 2-3 mal auf starten drückt startet das programm und läuft ganz normal
da passiert auch nicht auf allen rechnern ????!!!

ich hatte erst ein fehler drauf gleitkommadivision durch null
der kam von einer jedi function
cpu_speed := CPUID.FrequencyInfo;
aber nur bei intel rechner grösser 3 gh ????
hab ne andere function genommen und dann ging es
aber bei allen die die fehler hatten , kommt die meldung habe ein fehler festgestellt und will senden - nach ein paarmal klicken startet aber das programm ohne probleme

ich hab so das gefühl der fehler tritt nur bei intel rechnern mit ner grossen cpu auf
das programm läuft nur unter xp
auf allen anderen rechner amd, centrino 1gb bis schlag mich tot läuft alles
es ist bei 3 rechnern aufgetretten - alles waren intel und über 3 gh

helft bitte

Re: Programm startet nicht nicht

Hallo Homer,
zeig uns ein bisserl was von Deinem Code, damit wir helfen können.

BTW: Benutzt Du TRY/FINALLY Blöcke, ist der Fehler in der JEDI-Function, kann man die vielleicht Patchen...

Re: Programm startet nicht nicht

Wenn das Image (Demo auf dem Server) seit dem Zeitpunkt nicht geändert wurde, dann passiert die Zugriffsverletzung in TObject.Free().
Das kann alles mögliche sein und/oder ein Folgefehler sein...

Code:

			TObject.Free

004039FC        test    eax, eax

004039FE        jz      short @@ret

00403A00        mov     dl, 1

00403A02        mov     ecx, [eax]

00403A04        call    dword ptr [ecx-4]

00403A07 @@ret: retn

Rubrik Nützliches:

http://help.madshi.net/madExcept.htm

Re: Programm startet nicht nicht

@APP welchen teil des codes willst du sehen
den mit den Gleitkommafehler ? der ist weg benutze jetzt
so sieht der neue code aus

Code:

			//##############################################################################

//##############################################################################

//System Kurz Info CPU Info

//##############################################################################

//##############################################################################

//******************************************************************************

//Global

//System Kurz Info Anzeigen

Procedure System_KurzInfo_CPU_Auslesen_SYKU();

var

cpu_info : TCpuInfo;

begin

    //CPU

    try

        cpu_info := CPUID;

        Haupt_Form.System_KurzInfo_Label14.Caption := cpu_info.Manufacturer;

        Haupt_Form.System_KurzInfo_Label15.Caption := cpu_info.CpuName;

        Haupt_Form.System_KurzInfo_Label16.Caption := Format('%f Mhz',[dwCPUClock]);

    except

        Haupt_Form.System_KurzInfo_Label14.Caption := Element_Lesen_GU('SKI111');;

        Haupt_Form.System_KurzInfo_Label15.Caption := Element_Lesen_GU('SKI121');;

        Haupt_Form.System_KurzInfo_Label16.Caption := Element_Lesen_GU('SKI131');;

    end;

    //Prozessor Bild laden

    if (Pos('AMD', cpu_info.Manufacturer) <> 0) then

    begin

        //AMD

        Haupt_Form.System_KurzInfo_Image1.Picture.Icon := ImageShell_Icon_Lesen_GU('KurzInfo_AMD');

    end

    else if (Pos('Intel', cpu_info.Manufacturer) <> 0) then

    begin

        //Intel

        Haupt_Form.System_KurzInfo_Image1.Picture.Icon := ImageShell_Icon_Lesen_GU('KurzInfo_Intel');

    end; 

    //Speicher

    Haupt_Form.System_KurzInfo_Label24.Caption := Format('%f MB',[(GetTotalPhysicalMemory / 1048576)]);

    Haupt_Form.System_KurzInfo_Label25.Caption := Format('%f MB',[((GetTotalPhysicalMemory / 1048576) - (GetFreePhysicalMemory / 1048576))]);

    Haupt_Form.System_KurzInfo_Label26.Caption := Format('%f MB',[(GetFreePhysicalMemory / 1048576)]);

    //Win

    Haupt_Form.System_KurzInfo_Label34.Caption := g_win_version_s;

    //DirectX

    Haupt_Form.System_KurzInfo_Label44.Caption := dwGetDirectXName;

    Haupt_Form.System_KurzInfo_Label45.Caption := dwReadFullDirectXVersion;

end;

das war der alte code

Code:

			//##############################################################################

//##############################################################################

//System Kurz Info CPU Info

//##############################################################################

//##############################################################################

//******************************************************************************

//Global

//System Kurz Info Anzeigen

Procedure System_KurzInfo_CPU_Auslesen_SYKU();

var

cpu_info : TCpuInfo;

cpu_speed : TFreqInfo;

begin

    //CPU Info auslesen

    cpu_info := CPUID;

    //CPU Speed auslesen

    cpu_speed := CPUID.FrequencyInfo;

    GetCpuSpeed(cpu_speed);

    //CPU

    Haupt_Form.System_KurzInfo_Label14.Caption := cpu_info.Manufacturer;

    Haupt_Form.System_KurzInfo_Label15.Caption := cpu_info.CpuName;

    Haupt_Form.System_KurzInfo_Label16.Caption := Format('%d Mhz',[cpu_speed.RawFreq]);

    //Prozessor Bild laden

    if (Pos('AMD', cpu_info.Manufacturer) <> 0) then

    begin

        //AMD

        Haupt_Form.System_KurzInfo_Image1.Picture.Icon := ImageShell_Icon_Lesen_GU('KurzInfo_AMD');

    end

    else if (Pos('Intel', cpu_info.Manufacturer) <> 0) then

    begin

        //Intel

        Haupt_Form.System_KurzInfo_Image1.Picture.Icon := ImageShell_Icon_Lesen_GU('KurzInfo_Intel');

    end;

    //Speicher

    Haupt_Form.System_KurzInfo_Label24.Caption := Format('%f MB',[(GetTotalPhysicalMemory / 1048576)]);

    Haupt_Form.System_KurzInfo_Label25.Caption := Format('%f MB',[((GetTotalPhysicalMemory / 1048576) - (GetFreePhysicalMemory / 1048576))]);

    Haupt_Form.System_KurzInfo_Label26.Caption := Format('%f MB',[(GetFreePhysicalMemory / 1048576)]);

    //Win

    Haupt_Form.System_KurzInfo_Label34.Caption := g_win_version_s;

    //DirectX

    Haupt_Form.System_KurzInfo_Label44.Caption := dwGetDirectXName;

    Haupt_Form.System_KurzInfo_Label45.Caption := dwReadFullDirectXVersion;

end;

@ NicoDE
kannst du genauer werden ?
die fehlermeldung mit den "fehler senden" kommen noch vor der oncreate

könnte das programm jemand mal testen der ein intel cpu mit über 3 gh hat ?

Re: Programm startet nicht nicht

Zitat:

Zitat von HomerGER

kannst du genauer werden?

Mein Beitrag bezog sich auf die Fehlermeldung 'Runtime error 216 at 00403A02'. Wenn der Fehler bei der Demo-Version auftrat, die ich heute heruntergeladen habe, dann wurde in TObject.Free() versucht TObject.FreeInstance() aufzurufen, obwohl Self (eax) kein TObject (mehr) war.
Sprich es wurde versucht ein nicht (mehr) vorhandenes Objekt freizugeben. Dies kann tausende Gründe haben und ist möglicherweise nur ein Folgefehler beim Versuch das Programm zu beenden.

Deswegen wären mehr Informationen nötig um das Problem auf einen bestimmten Bereich einzuschränken (am besten wäre ein Callstack, obwohl das bei der Aufrufkonvention register nicht gerade einfach ist...).

Ansonsten wirst Du nur mit den langwierigen Methoden vorwärts kommen (Remote-Debugging, 'kreatives' Auskommentieren, ...)
madExcept ist für nicht-kommerzielle Zwecke Lizenzkosten-frei und könnte wertvolle Hinweise bei einem Kunden mit dem Problem liefern.

Re: Programm startet nicht nicht

@NicoDE
das hab ich schon gemacht - sprich
alles was ich in der oncreate mache
nur soweit komme ich nicht
der fehler "Fehler senden" kommt vorher - also in den augenblick wo man das programm start
was ich nur nicht verstehe - bisr jetzt - nur bei intel und rosser cpu
und ich weiß nicht wo ich da suchen soll

Re: Programm startet nicht nicht

Zitat:

Zitat von HomerGER

der fehler "Fehler senden" kommt vorher - also in den augenblick wo man das programm start

Möglicherweise ein Problem in einem initialization-Abschnitt einer Unit/Komponente...
(von einem Fehler im RTL-Init-Code gehe ich erstmal nicht aus, obwohl es nicht ausgeschlossen ist)

Re: Programm startet nicht nicht

aber warum nur bei bestimmten system - kann ich das irgendwie überprüfen?
habe fremdkomponenten benutzt
jedi jcl/jvcl
mxstatusbar
mxoutlookpro
delphiwoks
benutze d7 pro
das ist eigentlich alles

bei der JclSysInfo
Haupt_Form.System_KurzInfo_Label16.Caption := Format('%d Mhz',[cpu_speed.RawFreq]);
kamm der gleitkommafehler
hab ich durch Format('%f Mhz', [dwCPUClock] getauscht, dann war der fehler weg

Re: Programm startet nicht nicht

Zitat:

Zitat von HomerGER

kann ich das irgendwie überprüfen?

Ich kann Dir nur madExcept empfehlen (wird unmittelbar nach System/SysInit/SysUtils initialisiert - sodass eine reale Chance besteht, an einen vernünftigen Call-Stack zu kommen).
Warum es nur bei Intel-Prozessoren auftritt, ist eine gute Frage... (synchrones Multithreading durch HTT?)

Re: Programm startet nicht nicht

hab mir madExcept runtergeladen - leider ist mein englisch schlecht
weiß nicht wie ich es einbinden soll
kannst du da helfen - so das ich damit was anfangen kann ?

Re: Programm startet nicht nicht

habe es hin bekommen das mad läuft
hab mal ein fehler simuliert
der bugreport kommt - nur wie lese ich ihn

habe ein gleitkommafehler eingebaut
nur wie komm ich mit den bugreport dahin :roll:

Code:

			date/time         : 2004-03-18 15:01

computer name     : HAL9001

user name         : Homer

operating system  : Windows XP Service Pack 1 build 2600

system language   : German

system up time    : 17 minutes 17 seconds 

program up time   : 891 milliseconds

physical memory   : 227/511 MB (free/total)

free disk space   : (C:) 13,94 GB (L:) 7,93 GB

process id        : $ec0

executable        : homersxptuningtool.exe

exec. date/time   : 2004-03-18 15:00

version           : 3.0.0.48

madExcept version : 2.7

exception class   : EConvertError

exception message : Format '%f' ungültig oder nicht kompatibel mit Argument.

main thread ($ec8):

0042bba1 homersxptuningtool.exe SysUtils                 ConvertErrorFmt

0042ccd0 homersxptuningtool.exe SysUtils                 FormatError

0042cd9c homersxptuningtool.exe SysUtils                 FormatBuf

0042d162 homersxptuningtool.exe SysUtils                 FmtStr

77f42010 ntdll.dll                                       RtlAcquirePebLock

77f42029 ntdll.dll                                       RtlReleasePebLock

77d15f82 user32.dll                                      CallWindowProcA

0047e9e3 homersxptuningtool.exe Controls                 TWinControl.DefaultHandler

00495a7a homersxptuningtool.exe Forms                    TCustomForm.DefaultHandler

00496bc2 homersxptuningtool.exe Forms                    TCustomForm.WMGetMinMaxInfo

0047b894 homersxptuningtool.exe Controls                 TControl.WndProc

0047e8ff homersxptuningtool.exe Controls                 TWinControl.WndProc

004945fd homersxptuningtool.exe Forms                    TCustomForm.WndProc

0047e57c homersxptuningtool.exe Controls                 TWinControl.MainWndProc

00446318 homersxptuningtool.exe Classes                  StdWndProc

77fa4da3 ntdll.dll                                       KiUserCallbackDispatcher

77c431d8 GDI32.dll                                       GetTextExtentPointW

0047bf80 homersxptuningtool.exe Controls                 TControl.WMWindowPosChanged

0047b894 homersxptuningtool.exe Controls                 TControl.WndProc

0047b5e0 homersxptuningtool.exe Controls                 TControl.DoConstrainedResize

0047b4d0 homersxptuningtool.exe Controls                 TControl.DoCanResize

00479a72 homersxptuningtool.exe Controls                 TControl.SetBounds

0046e10c homersxptuningtool.exe StdCtrls                 TCustomLabel.AdjustBounds

0046e259 homersxptuningtool.exe StdCtrls                 TCustomLabel.CMTextChanged

0047b894 homersxptuningtool.exe Controls                 TControl.WndProc

0040436c homersxptuningtool.exe System                   @TryFinallyExit

0040226d homersxptuningtool.exe System                   SysGetMem

0049605b homersxptuningtool.exe Forms                    TCustomForm.Activate

00496cc0 homersxptuningtool.exe Forms                    TCustomForm.CMActivate

0047b894 homersxptuningtool.exe Controls                 TControl.WndProc

0047e8ff homersxptuningtool.exe Controls                 TWinControl.WndProc

004945fd homersxptuningtool.exe Forms                    TCustomForm.WndProc

0047e57c homersxptuningtool.exe Controls                 TWinControl.MainWndProc

00446318 homersxptuningtool.exe Classes                  StdWndProc

77fa4da3 ntdll.dll                                       KiUserCallbackDispatcher

77d15f64 user32.dll                                      SendMessageA

00491bb4 homersxptuningtool.exe Forms                    SendFocusMessage

00495cd2 homersxptuningtool.exe Forms                    TCustomForm.SetFocusedControl

0047e80b homersxptuningtool.exe Controls                 TWinControl.WndProc

004e66c0 homersxptuningtool.exe mxOutlookBarPro    13388 TmxOutlookBarPro.WndProc

0047e57c homersxptuningtool.exe Controls                 TWinControl.MainWndProc

00446318 homersxptuningtool.exe Classes                  StdWndProc

77fa4da3 ntdll.dll                                       KiUserCallbackDispatcher

0047b894 homersxptuningtool.exe Controls                 TControl.WndProc

0047e8ff homersxptuningtool.exe Controls                 TWinControl.WndProc

004945fd homersxptuningtool.exe Forms                    TCustomForm.WndProc

0047b664 homersxptuningtool.exe Controls                 TControl.Perform

0047e453 homersxptuningtool.exe Controls                 TWinControl.UpdateShowing

0047e4be homersxptuningtool.exe Controls                 TWinControl.UpdateControlState

0048024e homersxptuningtool.exe Controls                 TWinControl.CMVisibleChanged

0047b894 homersxptuningtool.exe Controls                 TControl.WndProc

0047e8ff homersxptuningtool.exe Controls                 TWinControl.WndProc

004945fd homersxptuningtool.exe Forms                    TCustomForm.WndProc

0047b664 homersxptuningtool.exe Controls                 TControl.Perform

0047a39b homersxptuningtool.exe Controls                 TControl.SetVisible

004940f2 homersxptuningtool.exe Forms                    TCustomForm.SetVisible

0049ac88 homersxptuningtool.exe Forms                    TApplication.Run

005143bb homersxptuningtool.exe homersxptuningtool    17 EntryPoint

modules:

00400000 homersxptuningtool.exe 3.0.0.48      L:\1_Programm\Homers XP Tuning Tool

5b0f0000 uxtheme.dll            6.0.2800.1106 C:\WINDOWS\System32

61220000 MSH_ZWF.dll            4.10.851.0    C:\Programme\Microsoft Hardware\Mouse

71a00000 WS2HELP.dll            5.1.2600.0    C:\WINDOWS\System32

71a10000 WS2_32.dll             5.1.2600.0    C:\WINDOWS\System32

71a30000 wsock32.dll            5.1.2600.0    C:\WINDOWS\System32

72f70000 winspool.drv           5.1.2600.1106 C:\WINDOWS\System32

73250000 RICHED32.DLL           5.1.2600.0    C:\WINDOWS\System32

746a0000 MSCTF.dll              5.1.2600.1106 C:\WINDOWS\System32

74db0000 RICHED20.dll           5.30.23.1211  C:\WINDOWS\System32

76300000 WINSTA.dll             5.1.2600.1106 C:\WINDOWS\System32

76350000 comdlg32.dll           6.0.2800.1106 C:\WINDOWS\system32

76af0000 winmm.dll              5.1.2600.1106 C:\WINDOWS\System32

76f50000 Secur32.dll            5.1.2600.1106 C:\WINDOWS\System32

770f0000 oleaut32.dll           3.50.5016.0   C:\WINDOWS\system32

77180000 OLE32.DLL              5.1.2600.1243 C:\WINDOWS\system32

772a0000 SHLWAPI.dll            6.0.2800.1106 C:\WINDOWS\system32

773a0000 shell32.dll            6.0.2800.1106 C:\WINDOWS\system32

77bd0000 version.dll            5.1.2600.0    C:\WINDOWS\system32

77be0000 MSVCRT.DLL             7.0.2600.1106 C:\WINDOWS\system32

77c40000 GDI32.dll              5.1.2600.1106 C:\WINDOWS\system32

77d10000 user32.dll             5.1.2600.1106 C:\WINDOWS\system32

77da0000 ADVAPI32.dll           5.1.2600.1106 C:\WINDOWS\system32

77e40000 kernel32.dll           5.1.2600.1106 C:\WINDOWS\system32

77f40000 ntdll.dll              5.1.2600.1106 C:\WINDOWS\System32

78000000 RPCRT4.dll             5.1.2600.1230 C:\WINDOWS\system32

78090000 comctl32.dll           6.0.2800.1106 C:\WINDOWS\WinSxS\X86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.10.0_x-ww_f7fb5805

disassembling:

[...]

0042bb92   push    edi

0042bb93   mov     ecx, ebx

0042bb95   mov     dl, 1

0042bb97   mov     eax, [$42b5bc]

0042bb9c   call    +$416f ($42fd10)       ; Exception.CreateResFmt

0042bba1 > call    -$278f6 ($4042b0)      ; @RaiseExcept

0042bba6   pop     edi

0042bba7   pop     esi

0042bba8   pop     ebx

0042bba9   ret

Re: Programm startet nicht nicht

Zitat:

Zitat von HomerGER

@APP welchen teil des codes willst du sehen
den mit den Gleitkommafehler ? der ist weg benutze jetzt
so sieht der neue code aus
[...]

Kannst du mir nochmal sagen, welche Jedi Kompo du dazu nutzt?!

PS: Habe Jedi 2.10 Installiert....... aber die Unit "JclSysInfo" findet er nicht......