Usb yolunu timer ile kontrol etme

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
haydarxxx
Üye
Mesajlar: 668
Kayıt: 09 May 2005 11:31
Konum: izmir

Usb yolunu timer ile kontrol etme

Mesaj gönderen haydarxxx »

Usb ye taktığımız flash sürücü isimlerini bir checklistboxa alıyorum
F:\
G:\
H:\
.... gibi

timer nesnesine checklistbox döngüsü ekleyerek checklistboxtaki sürücü harfini kullanarak hangi flashda .....\Data.ini .... yerinne döngü ile F,G,H sürücüleri taranacak örneğin
F:\Data.ini
G:\Data.ini
H:\Data.ini sürücüler değişken

Kod: Tümünü seç

procedure TForm2.Timer5Timer(Sender: TObject);
  const
  GB: Int64 = 1024*1024*1024;
Var
Sifreoku: String;
kapanmaoku:string;
okuladı,sınıfadı ,il,ogretmen,brans:string;
INIDosya      : TIniFile;


  I: Integer;
  FreeSpace: Int64;
  Available: Int64;
  Volume: string;
  FS: string;
begin
 GetUsbDrives(CheckListBox1.Items);

  for I := 0 to Pred(CheckListBox1.Items.Count) do
  begin
    CheckListBox1.Items[I] := CheckListBox1.Items[I].ToUpper() + ':\';

  INIDosya :=TIniFile.Create('F:\UsbAnahtar\Data\Database.ini');
  il:= INIDosya.ReadString('USB','İl İlçe','');
  okuladı  := INIDosya.ReadString('USB','okul adı','');
  sınıfadı := INIDosya.ReadString('USB','sınıf','');
  Sifreoku := INIDosya.ReadString('USB','Şifre','');
  kapanmaoku  := INIDosya.ReadString('USB','Kapanma Süresi','');
  ogretmen := INIDosya.ReadString('USB','ogretmenadı','');
  brans  := INIDosya.ReadString('USB','brans','');


   INIDosya.Free;
   edit4.Text:=il;
    edit5.Text:=okuladı;
     edit6.Text:=sınıfadı;
    edit11.Text:=Sifreoku;
      edit12.Text:=kapanmaoku;
      edit13.Text:=ogretmen;
    edit14.Text:=brans;

    end;
   end;
şeklinde bir kod ilave ettim

1.sorum TIniFile.Create('F:\UsbAnahtar\Data\Database.ini'); de F:\ değişkeni döngüde sürekli değişmeli

Kod: Tümünü seç

  INIDosya :=TIniFile.Create CheckListBox1.Items[I]+(\UsbAnahtar\Data\Database.ini');
yaptım olmadı

2.sorum döngüde zaman kontrollü olduğu için CheckListBox1 temizlenip tekrar döngüye girmesi gerekir bende ise sürekli CheckListBox1 doluyor cler denedim ama beceremedim.

3.Sorum Döngü sağlılı çalıştığında flasdan okuduğu ini dosyasındaki şifre başka bir editteki ile uygun ise try ikona geçsin.
örneğin if edit10.text=edit11.text then ise button3.click; // button içide try kodları var böyle çalıştırdım ama döngünün içine yazamadım
else durumunda ise şifre uyumlu değil desin gösterilen yolu kontrol edip.

4.sorum diyelim döngü tmm ama flash çıkartıldığında şifresi uyumlu olan flash tabi tryicon durummundaki proje tekrar aktif hale gelsin.yani flash anahtar gibi olacak

5.sorum flashı taktığında doğruysa tryicon olarak çalış flas çıktığında devreye gir durumu timer la kontrol ettirmek doğrumu.Kodların bir çok bölümünü yaptım ama hepsi bir arada istediğim sonucu vermiyor.

amacım Döngü le usb flashı sorgulatmak ve sorgu sonucu işlem yaptırmak istiyorum.şifre uyum kontrolü,uyumlu flashı çıkardınız kontrolü,şifre uyumsuz kontrolü
Cevapla