نمایش نتایج 1 تا 1 از 1

نام تاپیک: بدست آوردن لیست پورتهای USB در Oxygene

  1. #1

    بدست آوردن لیست پورتهای USB در Oxygene

    با سلام،
    پایه کد قرار داده شده در زیر، کدی مبتنی بر C#‎‎‎‎ است که در اینجا قرار گرفته است. در پروژه ای نیاز بود تا کدی معادل را به زبان Oxygene داشته باشم و با تبدیل کد مربوطه به Oxygene با کمک ابزار Oxidizer و کمی اصلاحات موفق به اینکار شدم. این هم از کد:
    namespace GetUsbPorts_Oxygene;

    interface


    uses
    System,
    System.Collections.Generic,
    System.Linq,
    System.Text ,
    System.Collections.Generic,
    System.Management; // need to add System.Management to your project references.


    type
    ConsoleApp = class
    public
    class method Main(args: array of String);
    class method GetUSBDevices: List<USBDeviceInfo>;
    end;


    USBDeviceInfo = assembly class
    public
    constructor(deviceID: System.String);
    property DeviceID: System.String;
    end;


    implementation


    constructor USBDeviceInfo(deviceID: System.String);
    begin
    self.DeviceID := deviceID
    end;


    class method ConsoleApp.GetUSBDevices: List<USBDeviceInfo>;
    begin
    var devices: List<USBDeviceInfo> := new List<USBDeviceInfo>();


    var collection: ManagementObjectCollection;
    using searcher := new ManagementObjectSearcher('Select * From Win32_USBHub') do
    collection := searcher.Get();


    for each device in collection do begin
    devices.Add(new USBDeviceInfo(System.String(device.GetPropertyValu e('DeviceID'))))
    end;


    collection.Dispose();
    exit devices
    end;


    class method ConsoleApp.Main(args: array of System.String);
    begin
    var usbDevices := GetUSBDevices();


    for each usbDevice in usbDevices do begin
    Console.WriteLine('Device ID: {0}', usbDevice.DeviceID)
    end;


    Console.Read()
    end;


    end.



    موفق باشید...
    آخرین ویرایش به وسیله BORHAN TEC : چهارشنبه 18 تیر 1393 در 12:22 عصر

تاپیک های مشابه

  1. سوال: بدست آوردن لیست تمامی پورت های usb
    نوشته شده توسط gilas1368 در بخش C#‎‎
    پاسخ: 4
    آخرین پست: جمعه 15 فروردین 1393, 11:05 صبح
  2. بدست آوردن لیست سرور های موجود در شبکه
    نوشته شده توسط محسن بابائی در بخش برنامه نویسی در 6 VB
    پاسخ: 3
    آخرین پست: سه شنبه 04 اردیبهشت 1386, 14:57 عصر
  3. بدست آوردن لیست فیلدهای یک جدول
    نوشته شده توسط Future در بخش SQL Server
    پاسخ: 8
    آخرین پست: دوشنبه 20 شهریور 1385, 01:12 صبح
  4. بدست آوردن لیست کامپیوترهای فعال در شبکه
    نوشته شده توسط Morteza Manafpour در بخش برنامه نویسی در 6 VB
    پاسخ: 0
    آخرین پست: جمعه 08 مهر 1384, 11:21 صبح
  5. بدست آوردن لیست دیتابیس های sql
    نوشته شده توسط ama55555 در بخش بانک های اطلاعاتی در Delphi
    پاسخ: 4
    آخرین پست: شنبه 12 شهریور 1384, 23:42 عصر

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •