USB-Ports deaktivieren&aktivieren in Delphi 7

[DeddyH]

Moin Kaki,
*räusper* JCL <> JVCL
Meine Vermutung ist, dass die Unit im Laufe der Zeit überarbeitet wurde und mit Deinem Code nicht mehr ohne Weiteres kompatibel ist. Deshalb mein Vorschlag, dass Du ihm Deine Version schicken sollst (oder hier anhängen, Attachments in PMs gehen ja nicht mehr).

[Der.Kaktus]

Zitat von DeddyH:

Moin Kaki,
*räusper* JCL <> JVCL
Meine Vermutung ist, dass die Unit im Laufe der Zeit überarbeitet wurde und mit Deinem Code nicht mehr ohne Weiteres kompatibel ist. Deshalb mein Vorschlag, dass Du ihm Deine Version schicken sollst (oder hier anhängen, Attachments in PMs gehen ja nicht mehr).

OK OK JVCL..Sorry


wollte ich tun..ABER "Dein Seitenaufruf konnte aufgrund eines fehlenden Securitytokens nicht verarbeitet werden.

"

hier die Version (nur Namen) die geht "JVCL333CompleteJCL1101-Build2725"
evtl. mal googeln

[guinnes]

Ich habe ne Übersetzung von Robert Marquart genommen von 1999, 3 Änderungen in Kaki's Quelltext gemacht und bei mir gehts ( Sogar noch mit Delphi 5 )

[Der.Kaktus]

Zitat von guinnes:

Ich habe ne Übersetzung von Robert Marquart genommen von 1999, 3 Änderungen in Kaki's Quelltext gemacht und bei mir gehts ( Sogar noch mit Delphi 5 )

Huii, Danke fuer den Test

[sneumann]

Zitat von guinnes:

Ich habe ne Übersetzung von Robert Marquart genommen von 1999, 3 Änderungen in Kaki's Quelltext gemacht und bei mir gehts ( Sogar noch mit Delphi 5 )

kannste deinen code mal posten?! wäre nett danke!!

[guinnes]

Zitat von sneumann:

kannste deinen code mal posten?! wäre nett danke!!

Wie gesagt, ich habe nur 3 Stellen verändert : Hier 2 Mal das @ rausgeworfen

Delphi-Quellcode:

      if (SetupDiGetDeviceRegistryProperty(hdev,devinfo,SPDRP_DEVICEDESC,
                  DataType,@Buffer[0],sizeof(Buffer),BufferSize)) then

und hier den 1. Unterschrich entfernt :
          ClassInstallParams.Classinstallheader.cbSize:= sizeof(SP_CLASSINSTALL_HEADER);
p.s.: Grade nochmal ein Build gemacht, jetzt hagelt es bei mir auch Fehler ( alle im Bereich WINNT )

[sneumann]

Zitat von guinnes:

Zitat von sneumann:

kannste deinen code mal posten?! wäre nett danke!!

Wie gesagt, ich habe nur 3 Stellen verändert : Hier 2 Mal das @ rausgeworfen

Delphi-Quellcode:

      if (SetupDiGetDeviceRegistryProperty(hdev,devinfo,SPDRP_DEVICEDESC,
                  DataType,@Buffer[0],sizeof(Buffer),BufferSize)) then

und hier den 1. Unterschrich entfernt :
          ClassInstallParams.Classinstallheader.cbSize:= sizeof(SP_CLASSINSTALL_HEADER);
p.s.: Grade nochmal ein Build gemacht, jetzt hagelt es bei mir auch Fehler ( alle im Bereich WINNT )

jetzt hab ich nur noch folgende fehlermeldung popupfenster
"Im Projekt usbtest.exe ist eine Excepton der Klasse EAccess Violation aufgetreten. Meldung: Zugriffverletzung bei Adresse 00000000. Lesen von Adresse 00000000'. Prozess wurde angehalten. Mit einzelne Anweisung oder Start fortsetzen"
bei folgendem Code

Code:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SetupAPI;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure Disable_USB;

var hdev: HDEVINFO;
    devinfo: TSPDevInfoData;
    DriverInfoData: TSPDrvInfoDataA;
    DriverInstallParams: TSPPropChangeParams;
    ClassInstallParams:TSPPropChangeParams;
    ClassInstallParamsSize: DWORD;
    devInfoListDetail: TSPDevInfoListDetailDataA;
    buffer:Array [0..1024] of char;
    buffersize,dataType:DWORD;
    status,problem:DWORD;
    i,z:integer;
    s:string;
    OK:Longbool;
begin
 devinfo.cbSize:= sizeof(devinfo);
 hdev:= SetupDiGetClassDevs(0,0,0,DIGCF_ALLCLASSES);
 if (hdev = NIL ) then
 begin
   Showmessage('Unable to enumerate device');
   exit;
 end;
 i:=0;
//Devices listen
 repeat
   Buffer[0]:=#0;
   if not (SetupDiEnumDeviceInfo(hdev,i,devinfo)) then break;
   if (GetLastError() = ERROR_NO_MORE_ITEMS) then break;
    if (SetupDiGetDeviceRegistryProperty(hdev,devinfo,SPDRP_DEVICEDESC,
                  DataType,@Buffer[0],sizeof(Buffer),BufferSize)) then
     begin
      s:=strpas(Buffer);
   //suchen des speziellen Device
      if pos('USB Universal Host Controller',s)>0 then
      begin
        devInfoListDetail.cbSize:= sizeof(devInfoListDetail);
        ClassInstallParams.Classinstallheader.cbSize:= sizeof(SP_CLASSINSTALL_HEADER);
        ClassInstallParams.Classinstallheader.Installfunction:=DIF_Propertychange;
// state disable setzen
        ClassInstallParams.statechange:=DICS_Disable;
        ClassInstallParams.Scope:=DICS_FLAG_CONFIGSPECIFIC;
        ClassInstallParams.HWProfile:=0;
        if SetupDiSetClassInstallParams(HDEV,@DevInfo,@ClassInstallParams.Classinstallheader,sizeof(ClassInstallParams)) then
        begin
         SetupDICallClassInstaller(DIF_PropertyChange,HDEV,@devinfo);
        end else z:=Getlasterror;
      end;
      Buffer[0]:=#0;
     end;
     i:=i+1;
 until false;
   SetupDiDestroyDeviceInfoList(hdev);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Disable_USB();
ShowMessage('deaktiviert');
end;

end.

dann klcike ich ok und garnix passiert

[DeddyH]

Dann setz mal einen Haltepunkt, steppe zeilenweise durch und teile uns mit, in welcher Zeile der Fehler auftritt.

[guinnes]

Ins Formcreate gehört noch ein LoadSetupAPI und ins FormDestroy ein UnloadSetUpAPI. Sorry, hatt ich noch vergessen

Du bist aber recht mutig, einfach irgendwelche Treiber abzuschalten. Wäre es nicht besser, erst mal sich alles nur anzeigen zu lassen ?

[sneumann]

Zitat von Der.Kaktus:

Zitat von DeddyH:

Moin Kaki,
*räusper* JCL <> JVCL
Meine Vermutung ist, dass die Unit im Laufe der Zeit überarbeitet wurde und mit Deinem Code nicht mehr ohne Weiteres kompatibel ist. Deshalb mein Vorschlag, dass Du ihm Deine Version schicken sollst (oder hier anhängen, Attachments in PMs gehen ja nicht mehr).

OK OK JVCL..Sorry


wollte ich tun..ABER "Dein Seitenaufruf konnte aufgrund eines fehlenden Securitytokens nicht verarbeitet werden.

"

hier die Version (nur Namen) die geht "JVCL333CompleteJCL1101-Build2725"
evtl. mal googeln

Habs installiert aber weiter geholfen hats mir noch nicht so richtig ich lese mich nochmal ein bisschen durch :
Um nochmal mein Problem zu verdeutlichen:

Ich möchte die Serielle Schnittstelle ansprechen den COM5. habe da ein Messgerät über SERIAL-to-USB angeschlossen dem ich Befehle übergeben möchte: Anweisungen aus dem Handbuch des Geräts über Delphi an das Gerät senden über COM5:

Beispielbefehle aus dem Handbuch des Geräts:
CONFigure:TEMPerature:TCOuple<parameter> Temperatur configurieren
DISPlay:BACKlight? Abfragen ob Hintergrundbeleuchtung an ist rückgabe 1 oder 0

solche befehle möchte ich über Delphi realisieren und an die Schnittstelle senden und auslesen

Code:

http://www.delphi-forum.de/viewtopic.php?t=107280&highlight=serielle+schnittstelle

link zu gleichem problem anderer Code