Воспроизведение 3gp видео в браузере?

Можете потестить 3GP файлы: baklan.h1n.ru
Ещё автоматом сгружу midi,mdf файлы. Есть ещё избранные jpg разночёсные....
Бесплатно воспользовался хостингом с http и ftp.
Код PureBasic:

FTP_SEND:
If InitNetwork()
If OpenFTP(#ftp,#ftp_name,"olimpkafe","Wrt54gWrt54g",#True,21)
SetFTPDirectory(0, "..")
SetFTPDirectory(#ftp, "..")
If DeleteFTPFile(#ftp,"nice-highres.png")
Debug "файл удалён nice-highres.png"
EndIf
Debug "отправка: nice-highres.png"
If SendFTPFile(#ftp,#html_folber+"nice-highres.png","nice-highres.png")
EndIf


SetFTPDirectory(#ftp, "..")
If DeleteFTPFile(#ftp,"index.html")
Debug "файл удалён index.html"
EndIf

Debug "отправка: index.html"
SetFTPDirectory(#ftp, "..")
If SendFTPFile(#ftp,#html_folber+"index.html","index.html")

For p=1 To cat_html
SetFTPDirectory(#ftp, "..")
If DeleteFTPFile(#ftp,Str(P)+".html")
Debug "файл удалён "+Str(P)+".html"
EndIf
SetFTPDirectory(0, "..")
Debug "отправка: "+Str(p)+".html"
If SendFTPFile(#ftp,#html_folber+Str(p)+".html",Str(P)+".html")
Else
Debug "ERROR: "+Str(p)+".html"
EndIf

SetGadgetState(#FTP_progress,Int(p*(50/cat_html)))
Next p
Else
Debug "ERROR: indec.html"
EndIf

;========= Создание новой директории
SetFTPDirectory(#ftp, "..")

If SetFTPDirectory(#ftp, "IMG")=0
Debug "Нет директории \img"
If CreateFTPDirectory(#ftp,"IMG")
Debug "Директория создана"
EndIf
EndIf
;========= Отправка картинок
For p=0 To db_size
If kafe(p)\tip=2 And kafe(p)\file<>""
SetFTPDirectory(#ftp, "IMG")

If DeleteFTPFile(#ftp,kafe(p)\file)
Debug "файл удалён "+kafe(p)\file
EndIf
SetFTPDirectory(#ftp, "IMG")
If SendFTPFile(#ftp,#IMAGE_FOLBER+kafe(p)\file, kafe(p)\file)
SetGadgetState(#FTP_progress,Int(p*(45/db_size))+50)
Debug "Отпрафлен: "+kafe(p)\file
Else
Debug "ERROR: "+Str(p)+".html"
SetFTPDirectory(#ftp, "IMG")
If SendFTPFile(#ftp,#IMAGE_FOLBER+kafe(p)\file, kafe(p)\file)
Debug "Отправлен со второй попытки"+Str(p)+".html"
EndIf
EndIf
EndIf
Next p

SetGadgetState(#FTP_progress,100)
CloseFTP(#ftp)
EndIf

EndIf