AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Debug Fehler

Ein Thema von MicMic · begonnen am 19. Jul 2018 · letzter Beitrag vom 20. Jul 2018
Antwort Antwort
MicMic

Registriert seit: 26. Mai 2018
296 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#1

AW: Debug Fehler

  Alt 19. Jul 2018, 21:32
Ne, geht doch nicht mit SHGetFileInfoA
Wenn ich jedenfalls diesen Befehl weglasse (ob mit "A" am Ende oder ohne), kommen diese Debug-Fehler nicht.
Nur brauche ich SHGetFileInfo

Hmm, per Google finde ich auch nichts

Michael
  Mit Zitat antworten Zitat
Schokohase
(Gast)

n/a Beiträge
 
#2

AW: Debug Fehler

  Alt 19. Jul 2018, 22:07
Hmm, per Google finde ich auch nichts
Bei Google suchendelphi SHGetFileInfo (ca. 20.000 Ergebnisse)
  Mit Zitat antworten Zitat
MicMic

Registriert seit: 26. Mai 2018
296 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#3

AW: Debug Fehler

  Alt 19. Jul 2018, 22:16
Hmm, per Google finde ich auch nichts
Bei Google suchendelphi SHGetFileInfo (ca. 20.000 Ergebnisse)

Toll aber nicht mit dem Debug-Problem. Vielleicht stimmt ja auch irgendwo ein Pfad von Delphi nicht, denn irgendwo gibt's ja ein Zugriffsproblem. Die Anwendung von SHGetFileinfo geht aber wie gewünscht, trotz Debug-Fehler bzw. Debug-Info.

Michael
  Mit Zitat antworten Zitat
Schokohase
(Gast)

n/a Beiträge
 
#4

AW: Debug Fehler

  Alt 19. Jul 2018, 23:08
Nun, du zeigst uns ja nichts von deinem Code der da Probleme macht, also musst du dich selber auf die Suche machen.
  Mit Zitat antworten Zitat
MicMic

Registriert seit: 26. Mai 2018
296 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#5

AW: Debug Fehler

  Alt 20. Jul 2018, 13:25
Ich glaube nicht das der Code hier weiter hilft aber schön wärs, wenn ich da irgendwo ein Fehler habe.

Erst mal wird die IconListe zugewiesen:
Code:
// SFI ist von Typ TSHFileInfoW;
ZeroMemory(@SFI, SizeOf(SFI));
SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI),SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
If SysIL <> 0 Then
Begin
 IL.Handle := SysIL;
 IL.ShareImages := TRUE;
 IL.DrawingStyle := dsTransparent;
End;
Dies wirft keine Debug-Infos aus, mit diesen "Zugriff verweigert".

Später im Code nutze ich u.a. folgenden Problemcode:
Code:
// Info ist vom Typ TSHFileInfoW;
ZeroMemory(@Info, SizeOf(Info));
SHGetFileInfo(PChar(pa+fn),FILE_ATTRIBUTE_DIRECTORY,Info,SizeOf(Info),SHGFI_SYSICONINDEX Or SHGFI_ATTRIBUTES)
Dies meldet dann den "Zugriff verweigert" im Debug-Fenster. Ich habe auch ein wenig hin und her, sprich statt PChar dieses PWideChar genommen und die Info-Variable z.B. mit "_SHFILEINFOW" anstatt "TSHFileInfoW". Auch gebe ich ein mögliches Icon-Handle wieder frei (DestroyIcon(Info.hIcon). Der "Problemcode" wird mehrmals aufgerufen. Als Beispiel 100x (ist immer anders) aber im Debug-Fenster habe ich dann nicht 100x "Zugriff verweigert", eher nur so ca. 15 Stück solcher Meldungen. Wenn ich nun Delphi mit Admin-Rechten starte, verringert sich die Anzahl dieser Meldungen (ich glaube 4 waren es noch) und wie ich schon sagte, ist die Debug-Meldung weg, wenn ich SHGetFileInfo nicht aufrufe.

Dann hatte ich ja noch eine andere Meldung aufgeschrieben
Code:
onecoreuap\shell\ext\thumbnailcache\lib\thumbcacheobj.cpp(1848)\thumbcache.dll!65072512: (caller: 65072624) ReturnHr(1) tid(324) 80004005 Unbekannter Fehler
    CallContext:[\InitializeCache]
Und eben mal was neues (2 davon) im Debug-Fenster.
Code:
Debug-Ausgabe:
internal\sdk\inc\wil\win32helpers.h(119)\windows.storage.dll!00007FFB00C04978: (caller: 00007FFB00B2E9FF) ReturnHr(1) tid(774) 80070002 Das System kann die angegebene Datei nicht finden.
SHGetFileInfo und alles andere funktioniert ja. Ich habe auch keine Programmabstürze oder ähnliches. Nur die Debug-Infos/Fehler kommen, sobald ich das Programm starte. Da muss irgendwo ein Grundproblem sein. Abgesehen von Delphi findet man per Google zu "windows.storage.dll" einiges. Zum Beispiel "Windows-Explorer stürzt immer ab - windows.storage.dll". Meist immer etwas mit dem Explorer. Mein Windows 10 selbst läuft eigentlich. Ist auch noch eine recht frische Installation. Aber es bezieht sich ja nicht alles auf "windows.storage.dll", da ich z.B. auch einen "Unbekannten Fehler" von "thumbcache.dll" bekomme... alles halt in diesem Debug-Fenster.

Michael
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.629 Beiträge
 
Delphi 12 Athens
 
#6

AW: Debug Fehler

  Alt 20. Jul 2018, 13:46
Ich habe auch keine Programmabstürze oder ähnliches. Nur die Debug-Infos/Fehler kommen, sobald ich das Programm starte. Da muss irgendwo ein Grundproblem sein.
Das ist kein Problem, sondern lediglich eine Debug-Ausgabe der ShellAPI. Ähnliche Meldungen kommen hier auch - die kannst du getrost ignorieren.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
MicMic

Registriert seit: 26. Mai 2018
296 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#7

AW: Debug Fehler

  Alt 20. Jul 2018, 13:56
Ich habe auch keine Programmabstürze oder ähnliches. Nur die Debug-Infos/Fehler kommen, sobald ich das Programm starte. Da muss irgendwo ein Grundproblem sein.
Das ist kein Problem, sondern lediglich eine Debug-Ausgabe der ShellAPI. Ähnliche Meldungen kommen hier auch - die kannst du getrost ignorieren.
Nun ja, aber irgendwas stimmt ja trotzdem nicht aber hört sich trotzdem gut an, wenn ich es ignorieren darf.
Ist aber schon wie ein Pickel auf der Nase... der stört immer, auch wenn man trotzdem noch riechen kann *lach
Michael
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz