• Regolamento Macrocategoria DEV
    Prima di aprire un topic nella Macrocategoria DEV, è bene leggerne il suo regolamento. Sei un'azienda o un hosting/provider? Qui sono anche contenute informazioni per collaborare con Sciax2 ed ottenere l'accredito nella nostra community!

Tasto sfoglia deve scrivere quello ke dico!!!

Tkd-Alex

Utente Attivo
Autore del topic
16 Agosto 2008
410
0
Miglior risposta
0
salve a tutti mi potete dire un modo per fare qst cosa???
allora sto cercando di fare un lettore multimediale e ho inserito il tastp sfoglia/apri ora mi kiedevo se era possibile che non appena selezionavo il file, il tasto mi scrive il percorso nel text box per poi schiacciare play
 
Non puoi riprodurre un file che si trova sul computer di colui che visita il tuo sito... Devi prima caricarlo su server...Lo puoi fare tamite un normale form di invio file al server che all'invio esegue uno scipt php che oltre a cricarlo genera anche il codice per la riproduzione audio... questo script è reperibile anche su Google se cerchi bene... Ciao
 
Non puoi riprodurre un file che si trova sul computer di colui che visita il tuo sito... Devi prima caricarlo su server...Lo puoi fare tamite un normale form di invio file al server che all'invio esegue uno scipt php che oltre a cricarlo genera anche il codice per la riproduzione audio... questo script è reperibile anche su Google se cerchi bene... Ciao

Ciao,

ptm alex intende in Visual Basic 6 ::emoji_relieved:
Gli utenti non specificano mai in che linguaggio vogliono le cose.. è un problema molto frequente e io e i Portavoce stiamo cercando di risolvere ;)
 
A dir la verità se leggete il regolamento della sezione è specificato xD Siete voi che non leggete :emoji_relieved:
 
C++, Java e Visual Basic ad ASP e PHP

Si ma chi ci dice che linguaggio sta usando lui? :emoji_smiley:
 
em.. scusate pensavo era sotto inteso
uso il visual basic 6!!!
cmq mi spiego meglio io sono riuscito a fare un lettore multimediale e nel text box invece di scrivere l' url del file ho scritto il percorso del file su mio pc è ha funzionato allora pensavo d fare un tasto sfoglia kegià ho fatto con qst codice

Codice:
Perfavore, Entra oppure Registrati per vedere i codici!

l risultato ke vorrei sarebbe qst uno seleziona il file e il programma in automatico dovrebbe scriver enel text box il percorso del file!!!

spero sia stato kiaro garzie!!!
 
serve la stessa cosa a me sto creando un player grazie ai source di FireFox
(Fire non toi preoccupare dirò che sono i tuoi nel topic che farò :emoji_relieved:) e il tasto sfoglia lo avevo fatto anchio ma non riesco a farci copiare il collegamento (C:// eccc......)
 
ecco come :
crei un modulo e ci inserisci
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Function LaunchCD(strform As Form) As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = strform.hWnd
sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
"mp3 Files (*.mp3)" & Chr(0) & "*.mp3" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "C:\"
OpenFile.lpstrTitle = "Select a file using the Common Dialog DLL"
OpenFile.flags = 0
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
MsgBox "A file was not selected!", vbInformation, _
"Select a file using the Common Dialog DLL"
Else
LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1))
End If
End Function



poi sotto il button "sfoglia" metti :

Me!Text1 = LaunchCD(Me)

text1 varia dal nome che ai mexo tu