AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Lazarus (IDE) Erkennen, ob USB-Stick oder SD-Card eingesteckt oder herausgenommen?
Thema durchsuchen
Ansicht
Themen-Optionen

Erkennen, ob USB-Stick oder SD-Card eingesteckt oder herausgenommen?

Ein Thema von AlexII · begonnen am 30. Jun 2015 · letzter Beitrag vom 4. Jul 2015
Antwort Antwort
Benutzerbild von Dalai
Dalai

Registriert seit: 9. Apr 2006
1.684 Beiträge
 
Delphi 5 Professional
 
#1

AW: Erkennen, ob USB-Stick oder SD-Card eingesteckt oder herausgenommen?

  Alt 30. Jun 2015, 21:33
  • Form1.Handle -> ganz schlechte Idee. Besser ist Self.Handle.
  • Was sollen die ShowMessages im Fehlerfall? Warum nicht das machen, was eigentlich jeder macht, und auch von MS empfohlen wird: GetLastError? Oder noch besser: ShowMessage(SysErrorMessage(GetLastError)); bzw. eine Exception raisen.
  • Copy'n'Paste ist ne dumme Sau, schau dir mal die Parameter in den Aufrufen von RegisterDeviceNotification ganz genau an.
Das nur mal beim schnellen Drüberschauen aufgefallen.

MfG Dalai
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Erkennen, ob USB-Stick oder SD-Card eingesteckt oder herausgenommen?

  Alt 1. Jul 2015, 08:44
Danke Dir, so sieht's nun aus:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  dbi: DEV_BROADCAST_DEVICEINTERFACE_W;
  dbv: DEV_BROADCAST_VOLUME;
  Size: Integer;
  RDN: HDEVNOTIFY;
  arr : array[0 .. 0] of word;
begin
  arr[0] := 0;
  Size := SizeOf(DEV_BROADCAST_DEVICEINTERFACE_W);
  ZeroMemory(@dbi, Size);
  dbi.dbcc_size := Size;
  dbi.dbcc_devicetype := DBT_DEVTYP_DEVICEINTERFACE;
  dbi.dbcc_reserved := 0;
  dbi.dbcc_classguid := GUID_DEVINTERFACE_USB_DEVICE;
  dbi.dbcc_name := arr;
  RDN := RegisterDeviceNotificationW(Self.Handle, @dbi, DEVICE_NOTIFY_WINDOW_HANDLE);
  if not Assigned(RDN) then
    ShowMessage('1: ' + SysErrorMessage(GetLastError));

  Size := SizeOf(DEV_BROADCAST_VOLUME);
  ZeroMemory(@dbv, Size);
  dbv.dbcv_size := Size;
  dbv.dbcv_devicetype := DBT_DEVTYP_VOLUME;
  dbv.dbcv_reserved := 0;
  dbv.dbcv_flags := 0;
  RDN := RegisterDeviceNotification(Self.Handle, @dbv, DEVICE_NOTIFY_WINDOW_HANDLE);
  if not Assigned(RDN) then
    ShowMessage('2: ' + SysErrorMessage(GetLastError));

  OldWndProc := TMWndProc(Windows.GetWindowLong(Self.Handle, GWL_WNDPROC));
  Windows.SetWindowLong(Self.Handle, GWL_WNDPROC, LongInt(@MyWndProc));
end;

Die Zeile
Zitat:
ShowMessage('2: ' + SysErrorMessage(GetLastError));
gibt nun folgendes aus:

Zitat:
Der Dienst hat einen dienstspezifischen Fehlercode zurückgegeben
Was heiß das eigentlich? Also ein Fehler ist es nicht, oder?
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#3

AW: Erkennen, ob USB-Stick oder SD-Card eingesteckt oder herausgenommen?

  Alt 1. Jul 2015, 11:28
Man könnte jetzt über die Bedeutung des Wortes Fehlercode philosophieren.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#4

AW: Erkennen, ob USB-Stick oder SD-Card eingesteckt oder herausgenommen?

  Alt 1. Jul 2015, 11:52
Man könnte jetzt über die Bedeutung des Wortes Fehlercode philosophieren.
Aber was kann das heißen, was mache ich falsch?
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Benutzerbild von Dalai
Dalai

Registriert seit: 9. Apr 2006
1.684 Beiträge
 
Delphi 5 Professional
 
#5

AW: Erkennen, ob USB-Stick oder SD-Card eingesteckt oder herausgenommen?

  Alt 1. Jul 2015, 12:34
Nur eine Vermutung: Vielleicht musst du
Code:
dbcv_unitmask

The logical unit mask identifying one or more logical units. Each bit in the mask corresponds to one logical drive. Bit 0 represents drive A, bit 1 represents drive B, and so on.
noch setzen?

Übrigens: bei reserved-Parametern sollte man aufpassen und diese besser gar nicht anfassen. Auch wenn sich durch deine Zuweisung wahrscheinlich nichts ändert, würde ich sie komplett weglassen.

Bist du sicher, dass Lazarus keine WM_DEVICECHANGE Nachrichten verarbeitet? Wenn es das tut, könnte dies helfen: Benachrichtigung bei CD-Wechsel. Oder man nimmt gleich eine Klasse: Delphi 7 unit to control USB devices events.

MfG Dalai
  Mit Zitat antworten Zitat
AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Erkennen, ob USB-Stick oder SD-Card eingesteckt oder herausgenommen?

  Alt 1. Jul 2015, 12:42
Nur eine Vermutung: Vielleicht musst du
Code:
dbcv_unitmask

The logical unit mask identifying one or more logical units. Each bit in the mask corresponds to one logical drive. Bit 0 represents drive A, bit 1 represents drive B, and so on.
noch setzen?
Mit welchem Wert soll ich das belegen?

Übrigens: bei reserved-Parametern sollte man aufpassen und diese besser gar nicht anfassen. Auch wenn sich durch deine Zuweisung wahrscheinlich nichts ändert, würde ich sie komplett weglassen.
Ok, mache ich.

Bist du sicher, dass Lazarus keine WM_DEVICECHANGE Nachrichten verarbeitet?[/URL].
Ja. Kann jetzt nicht genau sagen, was genau und wie, aber ich habe es mehrmals so gelesen.

Ich überlege schon lieber mit nem Timer zu arbeiten, der alle x Sekunden nach Laufwerken Umschau hält, denn alles andere wird so langsam kompliziert und instabil.
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat
Benutzerbild von Dalai
Dalai

Registriert seit: 9. Apr 2006
1.684 Beiträge
 
Delphi 5 Professional
 
#7

AW: Erkennen, ob USB-Stick oder SD-Card eingesteckt oder herausgenommen?

  Alt 1. Jul 2015, 12:52
Mit welchem Wert soll ich das belegen?
Probier's doch mal aus, ob dann RegisterDeviceNotification erfolgreich zurückkommt, wenn du nur irgendein Laufwerk angibst, eben als Bitmaske; das müsste 1, 2, 4, 8, 16 usw. sein.

Zitat:
Ja. Kann jetzt nicht genau sagen, was genau und wie, aber ich habe es mehrmals so gelesen.
Nur gelesen oder auch ausprobiert?

MfG Dalai
  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 03:05 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