Composant détectant l'insertion d'une clé USB

**ero-sennin** · 13/01/2008, 10h28

Envoyé par Jipété

3 remarques :

1 : si je remplace "RechargerInfos" par "USBStorage1USBInsert(Self);" dans FormCreate, ça détecte une clé déjà insérée au lancement de la démo ;

Tu veux dire par USBStorage1USBConnect ? Si c'est ça, oui, ça la détecte, mais c'est cette ligne qui est important dans le FormCreate :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

USBStorage1.ChangeConnectedDeviceLetter(laLettre);

2 :il faut rajouter "ViderInfos;" avant "RechargerInfos;" dans Button2Click sinon l'affichage c'est nawak ;

Oublie involontaire de ma part.

3 :il y a une proc Button4Click qui traîne, inutilisée.

Idem

Merci encore.
Dans l'ensemble, vous êtes plutôt satisfait ?

**Jipété** · 13/01/2008, 10h34

Envoyé par ero-sennin

Tu veux dire par USBStorage1USBConnect ?

Euh, oui, c'est vrai que j'ai changé Connected et Disconnected par Insert et Remove, comme ça j'ai un alignement vertical identique (même nombre de lettres), je trouve ça plus lisible (ah, moi et la typographie,

).

Dans l'ensemble, vous êtes plutôt satisfait ?

Dans l'ensemble ça va.
Merci de ton code, et bon dimanche,
--
jp

**ero-sennin** · 13/01/2008, 11h14

Envoyé par Jipété

Euh, oui, c'est vrai que j'ai changé Connected et Disconnected par Insert et Remove, comme ça j'ai un alignement vertical identique (même nombre de lettres), je trouve ça plus lisible (ah, moi et la typographie,

).

Dans l'ensemble ça va.
Merci de ton code, et bon dimanche,
--
jp

Merci pour tous tes conseils qui m'ont permis de mieux cerner certaines choses. C'a été un plaisir de travailler sur ce type de composant.

Merci et bon dimanche également.
Démo

**Jipété** · 13/01/2008, 17h31

Bon, j'y comprends plus rien :

je récupère ta dernière démo, je fais ma modif pour la création dynamique du compo (j'en ai déjà parlé), je mets une clé, je lance la démo --> clé pas détectée...
J'extrais la clé, je la remets (sans avoir arrêté la démo) --> elle est vue comme un CD-ROM ( Drop-down "Type média") !
Le bouton "Rafraichir les données" me dit "Média connecté : OUI" mais les valeurs sont à zéro...
--
jp

**ero-sennin** · 13/01/2008, 18h05

Envoyé par Jipété

Bon, j'y comprends plus rien :

je récupère ta dernière démo, je fais ma modif pour la création dynamique du compo (j'en ai déjà parlé), je mets une clé, je lance la démo --> clé pas détectée...
J'extrais la clé, je la remets (sans avoir arrêté la démo) --> elle est vue comme un CD-ROM ( Drop-down "Type média") !
Le bouton "Rafraichir les données" me dit "Média connecté : OUI" mais les valeurs sont à zéro...
--
jp

Je viens de la télécharger, afin de voir si je ne me suis pas planté de version et je dois dire que la démo fonctionne chez moi !!! (sans passer par ta création dynamique... je vais tester voir snif).

Erf, je comprends pas le pourquoi de la chose là! Par contre, le bouton rafraichir les données, en effet, il garde les anciennes infos du composant

Merdouille

( c'est ma démo qui est mal foutue

)

Essaie de voir là ... Par contre, je ne comprends pas le soucis de création dynamique ...

(la démo compilée)

**Jipété** · 14/01/2008, 07h42

Yep !

Création dynamique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
type
  TForm1 = class(TForm)
    //USBStorage1: TUSBStorage;
    CbSizeType: TComboBox;
    ...
 
var
  Form1: TForm1;
  USBStorage1: TUSBStorage;
...
 
procedure TForm1.FormCreate(Sender: TObject);
var
LaLettre:char;
LettreSelectionne:string;
begin
  USBStorage1 := TUSBStorage.Create(Self);
  USBStorage1.MediaType := mtAll;
  USBStorage1.ShowSizeType := False;
  USBStorage1.OnUSBConnect := USBStorage1USBConnect;
  USBStorage1.OnUSBDisconnect := USBStorage1USBDisconnect;
  ...
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(USBStorage1) then USBStorage1.Free;
end;

Un bug qui reste dans la démo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.USBStorage1USBDisconnect(Sender: TObject);
begin
  CbMediaDispo.ItemIndex:=-1;
  cbTypeLecteur.ItemIndex:=-1;
  ViderInfos;
  LabVolume.Caption:='Nom du volume :';
  LabSerial.Caption:='Numéro de série du Volume :';
  //LabLetter.Caption:=LabLetter.Caption+' '+USBStorage1.LetterDevice;
  LabLetter.Caption:=LabLetter.Caption; // !
  ...

Valà,
--
jp

**ero-sennin** · 14/01/2008, 08h25

Salut Jipété!

Je modifierai une fois de plus la démo (décidemment, je ne suis pas capable de faire un truc correct du premier coup ces temps ci

)

Pour la création dynamique, ça merde toujours ??

A+ et bonne journée

**Jipété** · 14/01/2008, 11h27

Envoyé par ero-sennin

Pour la création dynamique, ça merde toujours ??

Ben c'est pas la création dynamique qui merde, c'est la démo si je la lance avec une clé en place,

Bonne journée aussi,
--
jp

**goldkey** · 09/05/2008, 14h38

Je me permets de m'incruster dans cette discution...

Tout d'abord un grand merci a toi ero-sennin pour ton composant qui me rend un grand service.
Par contre je suis étonné de ne pas trouver de méthode pour déconnecter un périphérique USB.

J'ai deja regardé ce post pour me donner une idée de la faisabilité

Je me demandais, quand meme, pourquoi n'avais-tu pas intégré cette méthode directement dans ton composant ??
Y-a-t-il une subtilité que je n'aurais pas vu ??

**ero-sennin** · 09/05/2008, 23h37

Salut,

Envoyé par goldkey

Je me permets de m'incruster dans cette discution...

Tout d'abord un grand merci a toi ero-sennin pour ton composant qui me rend un grand service.
Par contre je suis étonné de ne pas trouver de méthode pour déconnecter un périphérique USB.

J'ai deja regardé ce post pour me donner une idée de la faisabilité

Je me demandais, quand meme, pourquoi n'avais-tu pas intégré cette méthode directement dans ton composant ??
Y-a-t-il une subtilité que je n'aurais pas vu ??

Pour tout te dire, j'ai codé la fonction d'éjection d'un média (CD-ROM ou clé USB

) mais je n'ai pas posté le code sur le forum pour le moment ... Je n'ai pas vraiment le temps ces derniers temps vu que j'ai des examens à préparer .... Le code est dispo et fonctionnel mais je n'ai pas vraiment eu le temps de tester mon paquage ... Si tu es partant, je veux bien t'envoyer le tout par MP avant de le publier sur le site

En tout cas, ça fait toujours plaisir le remerciement

A+

**goldkey** · 10/05/2008, 09h58

Salut ero-sennin,

Merci pour ta proposition

Je suis effectivement très intéressé, par la fonction d'éjection des médias.
Si tu veux bien me faire parvenir le tout par MP, je testerai tout cela volontier

**ero-sennin** · 10/05/2008, 21h35

Bon, je mets sur à disposition le paquet bien que je ne suis pas sûr que tout soit fonctionnel ... Je ne suis pas expert pour la création de paquet donc si ça ne fonctionne pas, je ne serai qu'à moitié étonné

(au passage, merci à SergioMaster pour son aide

)

Voici ci dessous le lien (avec l'exe compilé en plus

)

**SergioMaster** · 11/05/2008, 08h41

Helas pauvre Yorrick dirait Hamlet

je n'avais pas testé la fonction d'éjection USB sous vista , et là ..

patatras !!!
j'ai testé ton programme

sur vista idem .....

voir mon post qu'un modérateur Delphi à gentimemnt mis à la bonne place encore merci @Pedro

ici

Je n'ai pas vraiment le temps ces derniers temps vu que j'ai des examens à préparer

je ne sais pas si on doit le dire mais bonne chance pour tes exams ...

**goldkey** · 11/05/2008, 09h20

Merci a vous ero-sennin et SergioMaster pour votre boulot

Effectivement la fonction d'éjection ne fonctionne pas sur Vista.
Cela m'embete grandement car mon projet final devra fonctionné sur Vista, et la fonction d'éjection des périphériques est essentielle.

J'avais déja vu ton post, SergioMaster, ou tu proposais plusieurs pistes (dll hotplug, et GUID_DEVINTERFACE_VOLUME).
Je suis en train de creuser tout ca...en espérant pouvoir amener ma pierre a l'édifice

En tout cas, après quelques recherches, je me suis rendu compte que nous sommes nombreux a bloqué sur ce probleme

Envoyé par SergioMaster

je ne sais pas si on doit le dire mais bonne chance pour tes exams ...

Je dirais plutot : "MERDE pour tes examens ero-sennin"

**ero-sennin** · 11/05/2008, 10h08

Salut,

Envoyé par SergioMaster

Helas pauvre Yorrick dirait Hamlet

je n'avais pas testé la fonction d'éjection USB sous vista , et là ..

patatras !!!

Envoyé par goldkey

Effectivement la fonction d'éjection ne fonctionne pas sur Vista.
Cela m'embete grandement car mon projet final devra fonctionné sur Vista, et la fonction d'éjection des périphériques est essentielle.

Ca c'est un soucis ... et pas des moindres

Envoyé par SergioMaster

j'ai testé ton programme

.....

Envoyé par goldkey

Merci a vous ero-sennin et SergioMaster pour votre boulot

Merci, ça me fait plaisir

Envoyé par SergioMaster

je ne sais pas si on doit le dire mais bonne chance pour tes exams ...

Envoyé par goldkey

Je dirais plutot : "MERDE pour tes examens ero-sennin"

Merci les gars

**goldkey** · 13/05/2008, 10h24

Bonjour tout le monde,

Après quelques heures de recherches, j'ai enfin trouvé quelques choses d'interessant !!!

Ci-dessous un article (in english please) avec un code source en .NET qui fonctionne parfaitement sur Vista.
How to Prepare a USB Drive for Safe Removal

Reste a voir comment l'adapter pour l'intégrer dans le composant d'ero-sennin

Ci-dessous le code compilé accessible en ligne de commande :
http://www.uwe-sieber.de/files/removedrive.zip

Naturellement le tout sous licence open source (CPOL: Code Project Open License)

**SergioMaster** · 13/05/2008, 11h20

Envoyé par goldkey

Bonjour tout le monde,

Après quelques heures de recherches, j'ai enfin trouvé quelques choses d'interessant !!!

Ci-dessous un article (in english please) avec un code source en .NET qui fonctionne parfaitement sur Vista.
How to Prepare a USB Drive for Safe Removal

Reste a voir comment l'adapter pour l'intégrer dans le composant d'ero-sennin

Ci-dessous le code compilé accessible en ligne de commande :
http://www.uwe-sieber.de/files/removedrive.zip

Naturellement le tout sous licence open source (CPOL: Code Project Open License)

c'est ce que je tente de transposer en Delphi depuis hier

par contre je n'avis pas trouvé l'exe

j'ai trouvé une différence de TAILLE

au niveau de la constante (j'avais bien dit que je n'aimais pas ) uwe-sieber utilise
GUID '{53f56307-b6bf-11d0-94f2-00a0c91efb8b}' = à GUID_DEVINTERFACE_DISK;
au lieu de
'{53f5630d-b6bf-11d0-94f2-00a0c91efb8b}'

et CM_Request_Device_EjectW au lieu de CM_Request_Device_Eject

...

la suite au prochain épisode

**goldkey** · 14/05/2008, 09h07

Envoyé par Uwe Sieber

Yes, this has changed in Vista. DRIVE_REMOVABLE drives are now handled as DRIVE_FIXED drives are under XP.

D'ou, sans doute, ce changement de constante

**SergioMaster** · 14/05/2008, 09h13

oui mais ce n'est pas suffisant

toutefois , si j'arrive à traduire le code la partie ejection sera applicable à n'importe quel CD,DVD ou USB (selon Uwe) donc plus interessant pour notre
(H)Ero Sennin