Discussion :

[jakol]

Bonjour,
je souhaiterais savoir s'il est possible,dans Delphi, de faire un upload d'un avatar,
lorsqu'une personne se connecte à la base de données.
Si oui, auriez-vous des scripts ou des liens à faire partager, SVP?

Merci d'avance pour vos futures réponses

[Linkin]

Il faudrait plus de précisions, mais en général, on peut faire en Delphi se que l'on fait dans les autres langages.

- Sur quel type de serveur doit se faire l'upload?
- Comment détectes-tu la connexion à la base de données?

[Paul TOTH]

Bonjour,
je souhaiterais savoir s'il est possible,dans Delphi, de faire un upload d'un avatar,
lorsqu'une personne se connecte à la base de données.
Si oui, auriez-vous des scripts ou des liens à faire partager, SVP?

Merci d'avance pour vos futures réponses

upload, avater, bdd, script...tu as oublié de mettre quelques termes comme trigger, blob ou multithread dans ta question, elle fait pas pro comme ça

et sinon c'est quoi le problème ?

[jakol]

upload, avater, bdd, script...tu as oublié de mettre quelques termes comme trigger, blob ou multithread dans ta question, elle fait pas pro comme ça

et sinon c'est quoi le problème ?

Ben en fait
j'ai déjà créé un formulaire d'inscription, sous DELPHI 5 qui envoie les données dans un table d'une base de données fonctionnant avec PARADOX.
Une fois les données fournies, l'utilisateur peut se connecter pour consulter des informations.
Ce que je souhaiterais, ce serait de récupérer un code qui permettrait à un utilisateur d'y insérer une image,un avatar...Lorsque ce dernier se connecterais, il y aurait l'affichage de son avatar dans chaque form...
Je regarderai les notions de trigger,blob...
Ma question ne fait pas pro comme je ne suis pas un pro

Merci pour les réponses

[Paul TOTH]

je te taquine, mais ta question n'étant pas très claire il était difficile d'y répondre.

pour une base Paradox j'imagine que tu travailles en local sur le poste.

tu places un TImage et un bouton "Changer d'avatar" qui utilise un TOpenPictureDialog pour choisir un fichier image.

Lors de la validation, tu utilise TImage.Picture.SaveToFile pour enregistrer l'image dans un répertoire dédié aux Avatars sous un nom réservé (genre ID de l'utilisateur)

du coup tu sais où regarder pour afficher l'avatar de l'utilisateur qui se connecte ^^

[jakol]

je te taquine, mais ta question n'étant pas très claire il était difficile d'y répondre.

pour une base Paradox j'imagine que tu travailles en local sur le poste.

tu places un TImage et un bouton "Changer d'avatar" qui utilise un TOpenPictureDialog pour choisir un fichier image.

Lors de la validation, tu utilise TImage.Picture.SaveToFile pour enregistrer l'image dans un répertoire dédié aux Avatars sous un nom réservé (genre ID de l'utilisateur)

du coup tu sais où regarder pour afficher l'avatar de l'utilisateur qui se connecte ^^

Salut
merci pour ta réponse

Dans le form, j'ai effectivement mis un TImage et Bouton .
En double cliquant sur le bouton, j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
 
end;
 
end.

et j'ai lancé l'exécution avec F9

La fenêtre s'est ouverte

mais je ne vois pas comment faire avec
la validation:
SavePictureDialog1.Execute;

Faut-il le mettre dans un autre bouton??
Merci pour les réponses

[Paul TOTH]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  if Dialog.Execute then
    Image.Picture.LoadFromFile(Dialog.FileName);

[jakol]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  if Dialog.Execute then
    Image.Picture.LoadFromFile(Dialog.FileName);

Désolé je ne capte pas...

[jakol]

j'ai trouvé un lien sympa...

http://delphipage.free.fr/boitedialog.html

[jakol]

En fait le principe technique d'introduire une image d'un formulaire et la sauvegarder dans un dossier est effectué mais ...

Pour ma part,
j'ai crée un login et un mot de passe pour accéder à une base....
l'idéal serait qu'un utilisateur toto (qui s'est inscrit précédemment et qui a "uploadé" son avatar ) puisse se connecter sur la base et qu'il y ait son avatar affiché sur le formulaire...Qu'un autre utilisateur tutu se connecte et que son avatar soit affiché aussi....Si vous avez des idées...Merci de les faire partager...

[Rayek]

Est ce que les autres utilisateurs pourront voir l'avatar des autres quand ils sont connectés eux aussi à la base de données ?

Si non, Quel est l'intérêt d'avoir un avatar sur ce type de programme ?

[jakol]

Est ce que les autres utilisateurs pourront voir l'avatar des autres quand ils sont connectés eux aussi à la base de données ?

Si non, Quel est l'intérêt d'avoir un avatar sur ce type de programme ?

Non les autres ne vont pas voir l'avatar des autres...

Si on part de ce principe; il n'y a effectivement aucun intérêt
Même si le gars se connecte et qu'il a son avatar ...c'est quelque chose en plus...
Pouvoir coder ça, pourrait être sympa surtout si on essaye de se former en Delphi et qu'on puisse montrer son projet à un prof qui puisse apprécier ce type "d'effort"...dans le développement.

C'est vrai, ça n'a aucun intérêt...A part le mien

[Coussati]

il suffit de rajouter dans la table, un type pour stocker le nom de l'avatar et / ou son chemin sur le disque ou sur un serveur distant

pense déjà aux étapes, et ensuite essais de les réaliser une à une, vu que tu n'as pas l'air de maitriser convenablement delphi

bonne chance

[Rayek]

Non les autres ne vont pas voir l'avatar des autres...

Si on part de ce principe; il n'y a effectivement aucun intérêt
Même si le gars se connecte et qu'il a son avatar ...c'est quelque chose en plus...
Pouvoir coder ça, pourrait être sympa surtout si on essaye de se former en Delphi et qu'on puisse montrer son projet à un prof qui puisse apprécier ce type "d'effort"...dans le développement.

C'est vrai, ça n'a aucun intérêt...A part le mien

Regarde çà dans la

[jakol]

Salut
merci pour vos réponses

[jakol]

Resalut

j'ai récupéré un code dans un faq,
j'ai mis dans dans un formulaire

un dbgrid contenant un table avec les champs Nom et Fichier,
un bouton où j'y ai mis du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TFReviz.Button1Click(Sender: TObject);
var Img : TBitmap;
begin
  if DataModuleReviz.OpenDialog1.execute then
  try
     img := TBitmap.Create;
     img.LoadFromFile(DataModuleReviz.OpenDialog1.FileName);
 
     begin
    DataModuleReviz.TReviz.append;
 
 // enregistrement du nom de fichier dans la base de données
    DataModuleReviz.TReviz.fieldByName('Nom').asString := ExtractFileName(DataModuleReviz.OpenDialog1.Filename);
    DataModuleReviz.TReviz.FieldByName('Fichier').Assign(Img);
 
    DataModuleReviz.TReviz.post;
    end;
 
  finally
    img.free;
  end;
end;

A l'execution, le nom de l'image est inséré dans le champ Nom...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    DataModuleReviz.TReviz.FieldByName('Fichier').Assign(Img);

n'est pas accepté...
J'ai un message"....classe d'exception EConvertError...Impossible d'affecter Tbitmap à TstringField"...
Je ne vois pas comment résoudre ce problème...

Merci de m'éclairer

[jakol]

Bonjour,
j'ai réussi à installer une image dans une table en déclarant un champ comme "graphique"
A partir d'un formulaire, je crée un compte et je peux attribuer un avatar au nouvel utilisateur...
Le problème se corse lorsque je me logue et que j'accède à un formulaire...
Y aurait-il une possibilité d'affichage de mon avatar dans chaque formulaire?
j'ai mis un dbimage dans un formulaire mais je ne vois pas le truc qui pourrait reconnaître que je me suis connecté en tant que toto et que les formulaires affiche mon avatar.

Je vous transmets ci-dessous le code que j'ai fait jusqu'ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm2.Button1Click(Sender: TObject);
begin
begin
 
//module où se trouve la table1 et la datasource
with Datamodule1 do
 
begin
if ((Edit1.text='admin')and (Edit2.text='admin')) then
   form4.showmodal
 
else
 
if ( (table1.Locate('Login',Edit1.text,[locaseInsensitive]))and (table1.Locate('password',Edit2.text,[locaseInsensitive])) )then
   begin
 
  form6.showmodal;
  form2.close; 
   end
else
  ShowMessage('essaye encore!!');
 
end;
 
end;
end;

Ce serait sympa de me répondre afin de m'aider, de donner vos impressions, de me guider

[Paul TOTH]

j'aime bien les accès admin/admin

sinon ton code cherche un utilisateur Edit1 et un mot de passe Edit2...ne devrais-tu pas plutôt vérifier que le mot de passe de l'utilisateur Edit1 est Edit2 ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
if ( (table1.Locate('Login',Edit1.text,[locaseInsensitive]))and (table1.FieldByName('password').AsString = ,Edit2.text) )then
   begin
 
  form6.showmodal;
  form2.close; 
   end
else
  ShowMessage('essaye encore!!');
 
end;

si ton image est dans cette table le DBImage l'affichera automatiquement.

[jakol]

Salut
merci pour la réponse
j'ai effectivement mis un dbimage dans les formulaires et ça marche

l'accès admin renvoie à des formulaires où on peut ajouter, supprimer, mettre à jour des données.

Un utilisateur classique pourra juste consulter les données sans rien modifier...

Dans le script, il y a juste un petit hic..c'est qu'on peut juste mettre des images de type bitmap...
Je vais encore voir le FAQ proposé ci-dessous...Ce serait bien que le prog pouvait accepter des jpeg, des png....
Mais si vous avez des idées de modification de code...N'hésitez pas

Merci