Pas mal mais très cpp.

L'idée de MALALAM de donner un exemple d'utilisation ne serait pas de trop.

Perso, même au niveau config, je ne vois pas trop l'intérêt de passer par une classe pour savoir si une var a été initialisée ou pour changer sa valeur.

Comme il s'agit de chaine de caractères, la condition dans la boucle devrait être
if (strcmp($extension,$mime[$i][0])==0)

SORRY

Pour la valeur de retour, c'est exactement ce principe là.

Il est vrai que la gestion des extensions est limitée mais elle suffit amplement à l'utilisation que j'en fais. De plus, de par son architecture, chaque progammeur peut assez simplement ajouter à cette classe les Mimetypes qui lui sont nécessaires en fonction du projet.
Une autre solution serait de définir un tableau de constantes à deux indices reprenant les extensions et les mimeTypes et de remplacer le switch par une boucle de ce type:

// $mime[][0] : comprend les extensions (.htm, .txt, .html, ...)
// $mime[][1] : comprend les types (application/pdf)

for($i=0;$i<=count($mime);$i++) {
  if ($extension==$mime[$i][0]) {
       array_push($this->types,$mime[$i][1]);
        return true;
      }
  }
return false;

Il suffirait alors d'initialiaser la variable $mime dans le constructeur

$mime=array(array(".zip","application/zip"),array(".pdf","application/pdf"));

avec tous les types qui pourront être télécharger.

En effet, une condition switch est analysée au cas par cas jusqu'à ce qu'elle soit vérifiée et l'exécution poursuit sur toutes les instructions suivantes. Cependant, le mot clé return permettant de fixer la valeur de retour a comme conséquence que l'exécution quitte immédiatement le corps d'une fonction après l'exécution de l'instruction return.

L'omission du break était donc tout à fait volontaire puisqu'inutile mais les instructions return true sous chaque condition switch ne l'était pas. Le but de ce return true ou return flase permet que la fonction renvoit vrai si le Mimetype est existe et que le fichier peut donc être téléchargé. Elle renvoit faux dans tous les autres cas(default: ).

En effet, cette erreur d'inattention est maintenant corrigée. Après beaucoup de temps de programmation en C++ avec surdéfiniton de focntions, je n'ai plus songé que c'était impossible en PHP puisque les variables peuvent prendre des contenus de différents types en exécution.

Merci pour la remarque

Généralement, une erreur comme celle là est une erreur ADO. Je viens d'essayer sur ma config et tout fonctionne sous VB5 et sous VB6.

Voici quelques points à vérifier
---------------------------------------
Existence de la base
Mot de passe.
Driver ODBC MySQL (à tester hors VB6)

Je ne connais pas Windows 2003 mais tu devrais pouvoir trouver où créer une nouvelle connexion ODBC (dans le panneau de configuration dans les versions NT). Le driver MySQL demande alors le nom de la base, le login et le mot de passe. Il permet de tester la connexion.

Dans VB
-----------
Mets un point d'arrêt sur la ligne "Set Connexion =..." en cliquant dans la marge ou <F9> et lance l'exécution pas à pas. Tu pourras de ce fait déterminer quelle instruction déclenche cette erreur.

Vérifie la valeur des variables à chaque instruction en laissant ta souris dessus ou encore mieux via le controle de debugging(valeur des variables locales).

Ah la joie de la programmation.

C'est un peu vague comme explication. Quelle erreur ?,  de quel type?
Est-ce utilisé en vb, vba , vb.Net, ... ?

Poste l'utilisation que tu en fais et ta configuration et je verrai ce que je peux faire

Voir aussi Source n°28043 :
Active X qui à les même fonctionnalités que ADO et MyODBC sans utiliser ces outils mais en utilisant les fonctions API de MySQL.

Voici un exemple :
' ATTENTION : Ajouter la référence Microsoft Active X DataObjects Librairy
'             au projet

Public Sub Main()

Dim Connexion As ADODB.Connection
Dim Rs As ADODB.Recordset

'------------------------------------------------------------------
'Ouverture d'une connexion
Set Connexion = ConnexMySQL("localhost", "test", "root", "admin")

'------------------------------------------------------------------
'Création d'une nouvelle table
ReqSqlTableNew Connexion, "nouvelletable", "id int primary key auto_increment,nom varchar(10)"

'------------------------------------------------------------------
'Insertion de 2 nouveaux enregistrements
Dim NewNom As String

NewNom = "jean"

'Les apostrophes devant limiter une chaine de caractères dans une requête SQL
'Doubler les apostrophes se trouvant dans la chaine
NewNom = "'" + Replace(NewNom, "'", "''") + "'"

ReqInsert Connexion, "nouvelletable", "nom", NewNom
ReqInsert Connexion, "nouvelletable", "nom", "'andre'"

'------------------------------------------------------------------
'Selectionner tous les enregistrements
Set Rs = ReqSelect(Connexion, "*", "nouvelletable", , , "nom")
If Not (Rs.BOF = True And Rs.EOF = True) Then
  'Cette requete a un résultat
  Rs.MoveFirst
  Do Until Rs.EOF = True
    Debug.Print CStr(Rs.Fields("id").Value) + "  -  " + Rs!nom
    Rs.MoveNext
  Loop
Else
  Debug.Print "Aucun enregistrement"
End If

'Fermer le Recordset et détruire l'objet
If Not (Rs Is Nothing) Then
  If Rs.State = 1 Then
    Rs.Close
  End If
  Set Rs = Nothing
End If
  
'------------------------------------------------------------------
'Supprimmer le premier record
ReqDelete Connexion, "nouvelletable", "nom='jean'"

'------------------------------------------------------------------
'Fermer la connexion
If Not (Connexion Is Nothing) Then
  If Connexion.State = 1 Then
    Connexion.Close
  End If
  Set Connexion = Nothing
End If

End Sub