Springen naar inhoud


- - - - -
VB6

Een Mp3 Saven



  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 181 berichten
    Laatst bezocht 02 apr 2024 15:55

Geplaatst op 08 oktober 2015 - 19:10

Dag

Ik zeg direct dat ik aan probeer ben, Het is de eerste keer dat ik werk in deze manier met mp3
Ik heb hier een hele simpel voorbeeld gemaakt om mijn vraag duidelijk te maken.

Met commondialog en windowsMediaPlayer laad ik een mp3

Code:
Private Sub loadmp3_Click()
WindowsMediaPlayer1.URL = CommonDialog1.FileName
CommonDialog1.ShowOpen
End Sub

en dit werkt goed.

als ik nu de mp3 terug wil  saven (op een ander plaats)  heb ik geprobeert met
Code:
Private Sub savemp3_Click()

WindowsMediaPlayer1.URL = CommonDialog1.FileName
'............... ?
CommonDialog1.ShowSave
End Sub

ik krijg geen error of fout maar de mp3 wordt ...niet gesaved, en ik zie daarna daar geen mp3 file staan.

Welke is de juiste sintax om te saven?
dank u
houthalen

#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 896 berichten
    Laatst bezocht 31 jan 2025 21:58
  • LocatieMechelen (BE)

Geplaatst op 09 oktober 2015 - 18:09

Word het niet tijd om over te stappen naar iets beter en volgens mij kun je geen bestanden opslaan met wmp.

Je kan beter dan een filecopy doen met een delete achteraf ;)

#3 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 181 berichten
    Laatst bezocht 02 apr 2024 15:55

Geplaatst op 11 oktober 2015 - 12:36

ik heb anders opgelost
ik laad een mp3
lees de dir-locatie  op hardisc van die mp3
save dat locatie in een textbox/textfile of database
(samen met eventuele andere gegevens)

Bij load laad ik textfile/textbox van de dir/ locatie en laat ik lezen van wmp
Enige voorwaard is dat de mp3 moet daar altijd aanwezig zijn en maak
niet verwijderd worden.


Toch bedankt
houthalen





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)