Discussion :

[Montor]

EDIT : Je viens de faire un petit programme en ADO sur MySQL (je n'ai pas SQL Server), cela a fonctionner du 1er Coup !
un TADOQuery
un TDataSource
un TDBGrid
un TDBNavigator
un TDBImage lié avec un DataSource et avec DataField renseigné
J'ai fait Insérer sur le TDBNavigator
J'ai fait DBImage.DblClick
j'ai fait Valider sur le TDBNavigator
J'ai une ligne avec mon Blob rempli

de tout façon la liaison de ces composants sera compliqué pour lui c'est pour quo j'avais envoyé le fichier dfm

[ShaiLeTroll]

Je lui ai fourni un Projet complet, suffit lire l'aide, c'est pas vrai que c'est compliqué, en 1999, mon tuteur d'apprentissage m'a collé devant Delphi 4 (je venais d'avoir mon 1er ordi, 2 semaines avant, je tapais à deux doigts), il m'a dit prend ce bouquin et fait l'exemple FishFactory avec Paradox et BDE, en une petite matinée, c'était fait, cela fonctionnait, faut pas dire que c'est Difficile, faut juste faire un petit effort ...

Tient, version ADO2 avec Gestion du DataSetState

[tleboukaka]

slt à tous

Veuillez excuser le retard avec lequel je réagis !

Comme vous l'avez démandé, j'ai ajouté dans le Uses DB, et par là le TDataSetState et dsEdit sont reconnu - plus d'erreur de syntaxe.
- J'avais dejà renseigné le TDBImage vec un DataSource et DataField
- Je n'ai pas crééer d'autres boutons pour Ajouter(Insert) ou Sauvegarde(Post) un enregistrement,
- Je préfere que nous travaillons avec le TDBNavigator
- En passant mes Photos sont au format Jpeg

voilà comment j'ai adapté le code sur Click de TDBImage ...

Code :

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

1
2
3
4
5
6
7
8
procedure TfrmEleve.ImgElvPhotoClick(Sender: TObject);
Var
  NomFichier : String;
begin
  NomFichier := ChangeFileExt(ExtractFieldName(Application.ExeName), '.JPG');
  if PromptForFileName(NomFichier, 'Fichier FPeg *.jpg|*.JPG', 'JPG', 'Sélectionnez une Image', ExtractFileDir (Application.ExeName), False) then
  if FileExists(NomFichier) then TBlobField (ImgEtuPhoto.Field).LoadFromFile(NomFichier);
end;

PB :
La compilation m'affiche le message ci-dessous (ma version est en Anglais) :

Not Enough Actual Parameters
NomFichier := ChangeFileExt(ExtractFieldName(Application.ExeName), '.JPG');

je ne sais pas si j'ai bien appliqué ce que vous m'avez donné comme orientation

A bientôt

[Montor]

Merci pour cliquer ici

il n y a pas un type Graphic avec ado TDBImage ne marchera pas

Code VB :

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

1
2
3
4
5
6
7
8
9
10
11
Dim ARecordset As ADODB.Recordset
    Dim AStream As ADODB.Stream
    Set ARecordset = New ADODB.Recordset
    Set AStream = New ADODB.Stream
    AStream.Type = adTypeBinary
    ARecordset.Open "Students", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Base.mdb", adOpenStatic, adLockOptimistic, adCmdTable
    AStream.Open
    AStream.LoadFromFile "C:\MonImage.jpg"
    ARecordset.AddNew
    ARecordset!Student_Picture = AStream.Read
    ...

[ShaiLeTroll]

Attention, le TDBImage ne gère pas nativement le JPEG, pour cela tu dois utiliser le converteur TJPEGImage comme l'a monté Montor
Je le teste en D6 ! cela n'a pas changé en D7, seules des Version 2009 ou 2010 ont peut-être eu des innovations dans ce domaine

Commence avec le BMP, une fois ce stade réussi, mets ton code fonctionnel dans un coin, et essaye avec le TJPEGImage

ExtractFieldName ??? ça sort d'où ? j'ai écrit ExtractFileName
Copie-Colle au moins correctement !

Prend le Projet du Zip TestADO2.zip et tester le !
(modifie la chaine de connexion en RunTime pour coller SQL Server)
En plus, j'ai utilisé le TDBNavigator pour justement être au plus pres de ton problème ...
Essaye déjà au moins ce code minimal, etudie le !

Regarde aussi le Projet de Montor, nos deux projets fonctionnent avec chacun notre façon, faut bosser maintenant


@Montor, pourquoi tu parle de type graphic ?
un simple BLOB basique non typé suffit ... c'est ce que je dis depuis le début, utiliser un BLOB générique et non un type IMAGE spécifique à SQL Server !

[tleboukaka]

Slt

je peux me connecter tous les jours que de 8h à 15h 30 (3.30 pm)...
ce qui explique ma réaction tardive.

C'est OK - ouuuff je suis très content, il a fallu aller jusqu'au bout
Merci à vous tous parce que cela a marché avec le minimale de lignes de code.

Cependant, j'ai travaillé avec le fichier image .bmp
Etant donné que ce fichier est plus lourd que le .jpeg; je vais me battre à adapter cette routine de code avec le fichier .jpeg
J'espère que je n'aurai pas de problème ou de complication à propos.
vous êtes sensé sans ignorer que le .jpeg est plus leger que le .bmp

c'est la raison qui me pousse à préferer scanner mes photos au format .jPeg plus leger que le .bmp

ci-dessous la routine qui a marché sur double click de TDBImage

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfrmEleve.ImgEtuPhotoDblClick(Sender: TObject);
Var
  NomFichier : String;
begin
  NomFichier := ChangeFileExt(ExtractFileName(Application.ExeName), '.bmp');
  if PromptForFileName(NomFichier, 'Fichier FBmp *.bmp|*.bmp', 'bmp', 'Sélectionnez une Image', ExtractFileDir (Application.ExeName), False) then
  if FileExists(NomFichier) then
  TBlobField (ImgEtuPhoto.Field).LoadFromFile(NomFichier);
end;

Merci encore

[ShaiLeTroll]

Regarde le Code de Montor, il faut juste utiliser un LoadFromStream (du Field) sur le TJPEGImage ... tu as tout ce qu'il faut !
Oublie le TDBImage qui ne gère pas le JPEG, passe au TImage et gère l'affichage manuellement, tout est dans le code de Montor ...

Tu vois que lorsque l'on travail pas à pas, c'est mieux !