Results 1 to 6 of 6

Thread: Ringtones

  1. #1
    Delphi & OO in Vlaanderen SamWitse's Avatar
    Join Date
    Sep 2007
    Location
    Brussel
    Posts
    833

    Question Ringtones

    Beste Delphinauten,

    Het is weer een tijdje geleden dat ik mij hier vertoonde. Maar niemand had mij verteld dat er nu een gratis versie van Delphi bestaat!?

    Goed, en dan nu de vraag:
    Ik wil in Firemonkey een lijstje maken met de beschikbare ringtones.
    TPath.GetSharedRingtones geeft mij wel een geldig path, maar daar zit niets in?!

    Delphi Code:
    1. Edit1.text := TPath.GetSharedRingtones;
    2. Lijst := TDirectory.GetFiles (Edit1.Text) ;
    3. Memo1.Lines.Add (inttostr(Length(Lijst)) );
    4. for i:=0 to Length(Lijst)-1 do
    5.  memo1.lines.Add(Lijst[i])

    geeft op mijn phone in Edit1 de folder
    /storage/emulated/0/Ringtones
    en in Memo1 enkel het getal 0.

    Wat mis ik?
    Ik vermoed dat ik 'ergens' nog moet aangeven dat ik niet met een testfolder maar met de échte ringtonesfolder wil werken?

    Alle hulp is welkom voor deze Firemonkey-newbie, want Google laat mij in de steek.

    Sam.
    Should array indices start at 0 or 1? My compromise of 0.5 was rejected without, I thought, proper consideration.

    Sam Witse.
    Delphi & OO in Vlaanderen

  2. #2
    Waarschijnlijk moet je het via TJRingtoneManager doen.

    zie bijvoorbeeld hier en hier.
    Niemand houdt meer van hard werken dan diegene die ervoor betaalt.

  3. #3
    Delphi & OO in Vlaanderen SamWitse's Avatar
    Join Date
    Sep 2007
    Location
    Brussel
    Posts
    833

    Question

    Dat kan niet de bedoeling zijn!
    Er zijn verschillende interessante TPath-constanten. Een testje leverde mij volgende resultaten:

    Delphi Code:
    1. Memo1.lines.Clear ;
    2. memo1.lines.add(Tpath.GetSharedRingtonesPath);
    3. memo1.lines.add(Tpath.GetSharedDownloadsPath);
    4. memo1.lines.add(Tpath.GetSharedMusicPath);
    5. memo1.lines.add(Tpath.GetSharedPicturesPath);
    6. {lijst := TDirectory.GetFiles(Tpath.GetSharedRingtonesPath) ;
    7. memo1.Lines.Add('Ringtones: '+inttostr(length(Lijst)));
    8. for I := 0 to length(Lijst)-1 do
    9.   Memo1.Lines.Add(Lijst[i]) ; }
    10. lijst := TDirectory.GetFiles(Tpath.GetSharedDownloadsPath) ;
    11. memo1.Lines.Add('Donwloads: '+inttostr(length(Lijst)));
    12. for I := 0 to length(Lijst)-1 do
    13.   Memo1.Lines.Add(Lijst[i]) ;
    14. lijst := TDirectory.GetFiles(Tpath.GetSharedMusicPath) ;
    15. memo1.Lines.Add('Music: '+inttostr(length(Lijst)));
    16. for I := 0 to length(Lijst)-1 do
    17.   Memo1.Lines.Add(Lijst[i]);
    18. lijst := TDirectory.GetFiles(Tpath.GetSharedPicturesPath) ;
    19. memo1.Lines.Add('Pictures: '+inttostr(length(Lijst)));
    20. for I := 0 to length(Lijst)-1 do
    21.   Memo1.Lines.Add(Lijst[i])
    Alle paths verwijzen naar een subfolder van /storage/emulated/0/
    Alle folders zijn leeg?!?!
    Ringtones levert een Edirectorynotfoundexception: The specified path was not found, vandaar dat ik de code in commentaar gezet heb.

    Ik heb een donkerbruin vermoeden dat er ergens nog een instelling veranderd moet worden om de juiste paths te verkrijgen.


    Note voor AppY: er staat een dt-fout in je signature
    Should array indices start at 0 or 1? My compromise of 0.5 was rejected without, I thought, proper consideration.

    Sam Witse.
    Delphi & OO in Vlaanderen

  4. #4
    Leuk hé dat android

    TPath.GetRingtonesPath komt uit in een subfolder van je programma. Daar kan alleen je programma naar schrijven (is de bedoeling).

    TPath.GetSharedRingtonesPath Komt uit in een Shared folder. Dat is een algemeen pad. Daar kan elk programma bij komen.
    (Ik heb een ringtone van een oude Nokia meegenomen naar m'n Samsung telefoon, en die ringtone staat dus in deze folder.)

    Jij wil de directory vinden waar alle originele ringtones staan. Dat gaat dus niet via TPath.
    Niemand houdt meer van hard werken dan diegene die ervoor betaalt.

  5. #5
    Delphi & OO in Vlaanderen SamWitse's Avatar
    Join Date
    Sep 2007
    Location
    Brussel
    Posts
    833
    Aaaaaaaaaaaaaaarrrrrrgggggghhhh!!!
    Ik wou gewoon een timer met een belletje maken....

    Maar dat GetSharedMusicPath niet bij /sdcard/music uitkomt, snap ik ook niet.

    Is er ergens uitleg te vinden hoe je die TJRingtoneManager moet vinden/downloaden/installeren/gebruiken ?
    Should array indices start at 0 or 1? My compromise of 0.5 was rejected without, I thought, proper consideration.

    Sam Witse.
    Delphi & OO in Vlaanderen

  6. #6
    Quote Originally Posted by SamWitse View Post
    Maar dat GetSharedMusicPath niet bij /sdcard/music uitkomt, snap ik ook niet.

    Is er ergens uitleg te vinden hoe je die TJRingtoneManager moet vinden/downloaden/installeren/gebruiken ?
    Als je directories op de Externe SD-Card wil bereiken, dan ben je een hulpje nodig.

    En over de TJRingtoneManager + Delphi kan ik ook niet heel veel vinden.

    Succes!
    Niemand houdt meer van hard werken dan diegene die ervoor betaalt.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •