indexer des composants

bonjours à tous

voila, j'ai 6 Tblobfields Je voudrais les lire avec un boucle du style for ...

for CmpTBoucle:= 0 to 1 do
begin

Monblobfield.Name:= montblobfield+IntToStr(2) ;

MonBlob := Tblobstream.create(monblobfield, bmRead);
BuFMaPhrase.Position:= Sauvpos;

le probleme est que lorsque je crée monblob il y une erreur.
si je ne precise pas monblobfield.name =>incompatibilité .
comment arriver à copier mes 6 blob dans "monblobfield" en faisant une boucle.


Merci ......

Voilà une solution générique :

var i, ii: integer; IbDataSet: TIbDataSet; BlobField: TBlobField; Stream: TStream; begin for i := 0 to ComponentCount - 1 do //repérer les composants TIbTable ou TIbQuery if Components[i] is TIbDataSet then begin IbDataSet := TIbDataSet(Components[i]); //inspection des champs de l'ensemble de données for ii := 0 to IbDataSet.FieldCount - 1 do //à la recherche des champs blobs if IbDataSet.Fields[ii] is TBlobField then begin //on en tient un ! BlobField := IbDataSet.Fields[ii]; //Création d'un flux en lecture Stream := IbDataSet.CreateBlobStream(BlobField, bmRead); try {....là, tu peux utiliser ton stream....} finally Stream.Free; end; end;{if IbDataSet.Fields[ii] is TBlobField} end; {for ii := 0 to IbDataSet.FieldCount - 1} end;

C'est plus clair ?

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
May Delphi be with you

Erratum :
une erreur s'est glissée dans la ligne:

//on en tient un ! BlobField := IbDataSet.Fields[ii];

Il faut écrire à la place :

//on en tient un ! BlobField := IbDataSet.Fields[ii] as TBlobField;

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
May Delphi be with you

Bonjour, Je n'ai pas de dataset, mais suis directement connecté a l'ADOQuery, je procède comme suit: monFlux := adoqTemplate.CreateBlobStream(TBlobField(adoqTemplate.FieldByName('impimg')), bmRead); Seulement, ce n'est pas un tStream mais un tMemoryStrem, il me fair une erreur. Comment faire ?

J'ai essayé de le caster: monFlux := TMemoryStream(adoqTemplate.CreateBlobStream(TBlobField(adoqTemplate.FieldByName('impimg')), bmRead)); Mais lors du chargement, il me met: Erreur de lecture de flux. :-( Je pense qu'il est bon de repartir depuis le début. En fait, j'essaye de sauvegarder un tImage32 dans un champ "mémo" (equivalent de blob je pense) d'une table Access. Voici comment je procède pour l'enregistrement: imgTmp := TBitmap32.Create(); imgTmp.LoadFromFile(opdMain.FileName); monFlux := TMemoryStream.Create(); imgTmp.SaveToStream(monFlux); monFlux.Position := 0; TBlobField(adoqTemplate.FieldByName('impImg')).LoadFromStream(monFlux); imgTmp.Free; monFlux.free; Ca a l'air de marcher (même si je m'étonne que dans mon champ, il n'y ai que: "BM|?" pour une image, mais je me dis qu'il doit y avoir des caractères invisibles ou cachés). Seulement, je ne sais pas comment recharger mon flux.

Je pense que le problème vient du type de ton champs.
Si tu crée dans une table de base de données "Access" un champs de type Mémo on peux y stoquer du text sans problème; par contre on ne peut y stoquer une valeures binaire car il y a de fortes chances que notre flux qu l'on veut stocker contient des caractère spécieaux dont celui de fin de chaîne de caractère. donc votre flux sera tranqué lors de son enregistrement donc vous perdez vous données.
Vous pouvez modifier le type de votre champs "Mémo" en "Binaire" en spécifiant la taille de ce champs. et utiliser le même code que vous a proposé Delphiprog.
Remarque : Le type "Binaire" ne figure pas dans la liste des types d'Access il faut le saisir à la main.

Driss