Discussion :

[audreyb]

Bonjour à tous,
Je bosse sur une appli en delphi avec une base paradox 7. J'ai une table produit et je voudrais créer un champ pour affecter une image.
questions :
- de quel type doit être mon champ dans ma table (OLE pour stocker l'image ou Alpha pour y stocker le Path? quel est le mieux)
- ensuite comment lorsque le client voudra saisir un nouveau produit pourra t il lui attribuer une photo (quels éléments dois je mettre dans ma form?)
Merci pour votre aide

[heid]

je te déconseille fortement de stocker les image dans ta base de donée (surtout paradoxe sic !) , pourquoi n'entregitres tu pas le chemin de l'image au lieu de l'image elle même?

[audreyb]

Je pense que c'est ce que je vais faire mais dans ma forme j'ai un TBEdit et un opendialog comment lui dire que le chemin sélectionner doit aller dans le TBEdit??
Merci

[Fxg]

Bonjour,

Je pense que la procédure suivante pourra te rendre service.

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
{Bouton pour rajouter une image du dessinateur}
procedure TForm9.SpeedButton2Click(Sender: TObject);
var nom_image : string;
    dir_courant : string;
begin
dir_courant:=getcurrentdir;
OpenPictureDialog1.Execute;
nom_image:=OpenPictureDialog1.FileName;
if nom_image<>'' then
  begin
  DataModule2.TDessinateurs.FieldByName('ch_image_dess').AsString:=nom_image;
  jp:=nil;
  Stream:=nil;
  jp:=tjpegimage.Create;
  jp.loadFromFile(nom_image);
  stream:=tmemorystream.Create;
  jp.SaveToStream(stream);
  stream.Position:=0;
  jp.LoadFromStream(Stream);
  Image1.Picture.assign(jp);
  end;
setcurrentdir(dir_courant);
end;

Cette procédure sauvegarde le répertoire courant, ouvre une boite de dialogue, sauvegarde le nom du fichier dans le champ ch_image_dess et enfin affiche l'image .

En espérant que cet exemple puisse t'aider.

[edam]

une petite modification pour le dérnier code

Code :

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

1
2
3
4
5
6
 
 if OpenPictureDialog1.Execute then
    begin
       bedit.text:=OpenPictureDialog1.FileName; 
.......
    end;

[Fxg]

Bonjour,

Pas de quoi.

[smail21]

je te déconseille fortement de stocker les image dans ta base de donée (surtout paradoxe sic !) , pourquoi n'entregitres tu pas le chemin de l'image au lieu de l'image elle même?

salut !tu ne peux pas me dire comment sauvegarder uen image dans une table paradox?