Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
mp3Player
#1
Foruma bir süredir üyeyim ama uzun zamandır bir program paylaşmamıştım. Çünkü öğrenme sürecindeydim.

Kendimce mp3 dosyalarını çalan bir program yaptım. Delphi'de yeni olduğum için hatalarım olacaktır. Belirtirseniz sevinirim.

9Dzr7r.png

Aslında GitHub'a yükleyecektim ama hesabı yeni oluşturduğum için sisteme biraz yabancıyım beceremedim. Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#2
Güzel olmuş en azından ilk uygulamaya göre. Smile
Eski dos'tan windows olmaz.
Cevapla
#3
Merhaba Başlangıç için güzel bir önerim olacak.

Klasör seçimi yaptıracağın zaman OpenDialog Yerine FileOpenDialog kullanırsan daha mantıklı olur.

OpenDialog ile kullanıcıya doğrudan bir dosya seçtiriyorsun ama o dosyanın path'ini alıyorsun. bunun yerine FileOpenDialog kullanırsan kullanıcı doğrudan klasör seçer.
Aradaki fark,

vJG2qz.png


POdWg5.png
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#4
(28-11-2017, Saat: 20:40)Hashshashin Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlForuma bir süredir üyeyim ama uzun zamandır bir program paylaşmamıştım. Çünkü öğrenme sürecindeydim.

Kendimce mp3 dosyalarını çalan bir program yaptım. Delphi'de yeni olduğum için hatalarım olacaktır. Belirtirseniz sevinirim.

9Dzr7r.png

Aslında GitHub'a yükleyecektim ama hesabı yeni oluşturduğum için sisteme biraz yabancıyım beceremedim. Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

Merhaba,
Bilginin azı veya çoğundan ziyade, önemli olan paylaşılmasıdır.
Emeğiniz ve paylaşımınız için teşekkür ederim.

Mobil sürümleri için: Smile

1- Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
2 -Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#5
(29-11-2017, Saat: 09:03)yhackup Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlOpenDialog ile kullanıcıya doğrudan bir dosya seçtiriyorsun ama o dosyanın path'ini alıyorsun. bunun yerine FileOpenDialog kullanırsan kullanıcı doğrudan klasör seçer.

Merhaba
Öneriniz için teşekkürler. Denedim ama TFileOpenDialog olmasına rağmen klasör değil dosya seçmemi istiyor. Acaba yanlış mı kullanıyorum?
begin
 if FileOpenDialog.Execute then
 begin
   path:=FileOpenDialog.filename;
   PathLabel.Caption:='Çalınan Kütüphane: '+path;

   ListBox.Clear;

   if FindFirst(path+'*.mp3', faAnyFile, searchRec) = 0 then
   begin
     repeat
       ListBox.AddItem(path+searchRec.Name, nil);
     until FindNext(searchRec) <> 0;
     FindClose(searchRec);
   end;
 end;
end;
WWW
Cevapla
#6
FileOpenDialog için Options'tan fdoPickFolders'ı seçmelisiniz.
Ayrıca Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol 'i de kullanabilirsiniz.
There's no place like 127.0.0.1
WWW
Cevapla
#7
(29-11-2017, Saat: 17:37)SimaWB Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlFileOpenDialog için Options'tan fdoPickFolders'ı seçmelisiniz.
Ayrıca Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol 'i de kullanabilirsiniz.

Options'dan seçerek hallettim. Teşekkürler...
WWW
Cevapla
#8
Çok özür bu detayı atlamışım
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Kuvvete dayanamayan adalet aciz, 
Adalete dayanamayan kuvvet zalimdir.
WWW
Cevapla
#9
unit Unit7;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs,SHLOBJ, Vcl.StdCtrls;

type
 TForm7 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form7: TForm7;

implementation

{$R *.dfm}

function klasorSec(var Klasor: string; baslik: string='Klasör Seçiniz:'): Boolean;
var
 browseInfo: TBrowseInfo;
 itemIDList: PItemIDList;
 displayName: array[0..MAX_PATH] of Char;
begin
 Result := False;
 FillChar(browseInfo, sizeof(browseInfo), 0);
 with browseInfo do begin
   hwndOwner := Application.Handle;
   pszDisplayName := @displayName;
   lpszTitle := PChar(baslik);
   ulFlags := BIF_NEWDIALOGSTYLE or BIF_RETURNONLYFSDIRS;
 end;
 ItemIDList := SHBrowseForFolder(browseInfo);
 if Assigned(ItemIDList) then
   if SHGetPathFromIDList(itemIDList, displayName) then begin
     klasor := displayName;
     Result := True;
   end;
end;

procedure TForm7.Button1Click(Sender: TObject);
var
klasorYolu:String;
begin

klasorSec(klasorYolu);
ShowMessage(klasorYolu);
end;

end.


Component kullanmadan yukardaki şekilde de klasör seçimi yapılabilir.
Bizi Toprağa Gömdüler Fakat Tohum Olduğumuzu Bilmiyorlardı.
Cevapla
#10
(29-11-2017, Saat: 21:57)savasabd Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlComponent kullanmadan yukardaki şekilde de klasör seçimi yapılabilir.

Biz en iyisi component kullanalım  Blush
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter





Konuyu Okuyanlar: 1 Ziyaretçi