Discussion :

[tornade69]

Bonjour,

Voici mon problème, j'utilise D7, et je dois réalisé une extration de donnée de type image.
J'ai un table dans laquel est stocké un champs de type image et je dois l'extraire sous un format JPEG dans un fichier . J'ai presque 300 000 lignes dans la table et donc 300 000 images a sauvegarder dans des fichiers.

Mais je n'ai aucune idée par ou prendre le problème et encore moins comment faire. Aussi merci de votre aide. Je dois utilisé un access en mode ODBC

Merci pour votre aide

Tornade

[qi130]

ou encore la

[tornade69]

Bin apres quelques recherche j'ai pondu ce code, mais qui ne marche pas

Code :

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

1
2
3
4
5
6
7
8
  data.sql1.open;
  data.qatt.open;
  data.qAtt.First;
  while not data.qatt.eof do
  begin
    tblobfield(data.qatt.fieldbyname('at_photo')).SaveToFile(floattostr(data.qAtt.fieldbyname('at_id').Value)+'.jpg');
    data.qAtt.Next;
  end;

Je n'ai pas utilisé de data stream, car je pensais ne pas en avoir besoin.

Le code ci dessus fonctionne mais le fichier généré est ilisible

Merci pour votre aide

Tornade

[tornade69]

Donc j'ai essayer une autre piste :

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
var
  ijpg:TJPEGImage;
  ibmp:TBitMap;
  ms:tmemorystream;
begin
  ms:=tmemorystream.Create;
  ijpg:=TJPEGImage.Create;
  data.sql1.open;
  data.qatt.open;
  data.qAtt.First;
  while not data.qatt.eof do
  begin
  // La photo
    tblobfield(data.qatt.fieldbyname('at_photo')).SaveToStream(ms);
    dbimage1.Picture.Bitmap.LoadFromStream(ms);
    dbimage1.Repaint;
    ijpg.LoadFromStream(ms);
    ijpg.SaveToFile('p'+floattostr(data.qAtt.fieldbyname('at_id').Value)+'.jpg');
    data.qAtt.Next;
  end;
  ms.Free;
  ijpg.Free;

Je n'ai pas d'erreur lors de l'execution mais j'obtiens un fichier jpeg vide (taille 0 Ko). Auriez vous une idée d'ou vient l'erreur.

je dois rendre un avis sur la réalisation du projet aujourd'hui, et transmettre quelques images au client.

Merci pour vos réponses

je vais continuer a chercher d'autres alternative

Merci a tous

[Rayek]

Bin apres quelques recherche j'ai pondu ce code, mais qui ne marche pas

Code :

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

1
2
3
4
5
6
7
8
  data.sql1.open;
  data.qatt.open;
  data.qAtt.First;
  while not data.qatt.eof do
  begin
    tblobfield(data.qatt.fieldbyname('at_photo')).SaveToFile(floattostr(data.qAtt.fieldbyname('at_id').Value)+'.jpg');
    data.qAtt.Next;
  end;

Je n'ai pas utilisé de data stream, car je pensais ne pas en avoir besoin.

Le code ci dessus fonctionne mais le fichier généré est ilisible

Merci pour votre aide

Tornade

Es tu sur que ton image est une image Jpg ? et pas un bmp ou un gif ?
Est ce qeu tu arrive a voir l'image avec un DbImage ? si oui, je te conseil de changer l'extension en Bmp.

[tornade69]

Réponse non je ne le vois pas dans le DBImage. Le fichier généré pèse 0 Ko

[Rayek]

Peux tu extraire l'image avec un autre moyen afin de vérifier qu'elle ne soit pas erronée. Car autant tu essais d'ouvrir un fichier non valide.

[tornade69]

J'ai créer une vue pour me permettre de récupéré seulement quelques enregistrements de la base de donnée. J'ai fait un copie coller de la vue sous acces de la base pour en faire une copie local. J'ai créer un formulaire sur la automatique sur la table (copie de la vue), mais impossible de voir ou modifier l'image, lorsque je double click dessus j'obtiens un message d'erreur
un problème est survenu durant la communication entre Acces et le serveur OLE ou le controle ActiveX.

Je ne sais pas si c'est ma copie qui est fausse ou si je n'arrive pas exploiter le format JPEG stocker dans la base SQL. Le type de donnée est image !!

[tornade69]

J'ai créer une table sous SQL Serveur avec 1 champs num, 1 champs image. J'ai insérer 3 lignes avec 3 photos, et la procédure ci dessus ne marche pas. Donc j'ai un bug dans la procédure.

Soit je fait pas la copie dans le Stream
Soit je n'ai rien a sauvegarder.

Quelqu'un a un idée

Merci pour votre aide

Tornade

[tornade69]

Bon, j'ai fait de progres, mais il me reste encore une erreur.

Par contre pour le problèmes des images j'ai trouvé une solution (non pas moi, trouvé sur le web). L'explication est simple lorsque Access ou SQL sauvegarde un blobimage, il concerve dans le champs le chemin d'accès qui a permis de générer le document.
Pour les explications en VO il suffit de ce rendre sur le site : http://delphi.about.com/od/database/l/aa030601d.htm

L'info est géniale et a résolue mon problème d'image.

Donc voici mon nouveau code (a optimiser pour peut etre la la FAQ (moi pas assez fort))

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  ijpg:TJPEGImage;
  ibmp:TBitMap;
  stre:TADOBlobStream;
begin
  data.sql1.open;
  data.qatt.open;
  data.qAtt.First;
  while not data.qatt.eof do
  begin
  // La photo
    try
      stre:=tadoblobstream.Create(tblobfield(data.qatt.fieldbyname('at_photo')),bmRead);
      stre.Seek(jpegstartsinblob(tblobfield(data.qatt.fieldbyname('at_photo'))),soFromBeginning);
      ijpg:=TJPEGImage.Create;
 
        ijpg.LoadFromStream(stre);
     ijpg.SaveToFile('p'+floattostr(data.qAtt.fieldbyname('at_id').Value)+'.jpg');
 
      image1.Picture.Bitmap.LoadFromStream(stre); // Marche pas domage 
      image1.Repaint;
    finally
      stre.Free;
      ijpg.Free;
    end;
    data.qAtt.Next;
 
  end;
//  ijpg.Free;
 
end;
function tform1.JpegStartsInBlob (PicField:TBlobField):integer;
var
 bS     : TADOBlobStream;
 buffer : Word;
 hx     : string;
begin
 Result := -1;
 bS := TADOBlobStream.Create(PicField, bmRead);
 try
  while (Result = -1) and (bS.Position + 1 < bS.Size) do
  begin
   bS.ReadBuffer(buffer, 1);
   hx:=IntToHex(buffer, 2);
   if hx = 'FF' then begin
     bS.ReadBuffer(buffer, 1);
     hx:=IntToHex(buffer, 2);
     if hx = 'D8' then Result := bS.Position - 2
     else if hx = 'FF' then bS.Position := bS.Position-1;
   end; //if
  end; //while
 finally
  bS.Free
 end;  //try
end;

La lecture ne pose plus de problème, mais j'ai une erreur au bout de la 16 eme image
EreadError : erreur de lecture de flux sur la ligne

Code :

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

       ijpg.LoadFromStream(stre);

Je cherche un moyen pour ne pas gérer cette erreur et passé a l'enregistrement suivant.

Mais comment faire

Merci pour votre aide

Tornade

[Rayek]

Arrange toi pour que la construction et la destruction dynamiques de tes composants se fassent qu'une fois, car la tu le fais pour chaque images et c'est fortement déconseillé.

[tornade69]

Oui je suis d'accord, mais il semble que "tadoblobstream" doit etre détruit a chaque fois (c'est ce que j'ai compris de l'aide).
Mais pour le l'autre de l'image, je vais faire la modif

Par contre pas d'idee pour intercepté l'erreur et poursuivre le code ??

Merci

Tornade

[Rayek]

Rajoute un try ... Except

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
27
 
 while not data.qatt.eof do
  begin
  // La photo
  try  
    try
      stre:=tadoblobstream.Create(tblobfield(data.qatt.fieldbyname('at_photo')),bmRead);
      stre.Seek(jpegstartsinblob(tblobfield(data.qatt.fieldbyname('at_photo'))),soFromBeginning);
      ijpg:=TJPEGImage.Create;
 
        ijpg.LoadFromStream(stre);
     ijpg.SaveToFile('p'+floattostr(data.qAtt.fieldbyname('at_id').Value)+'.jpg');
 
      image1.Picture.Bitmap.LoadFromStream(stre); // Marche pas domage 
      image1.Repaint;
    finally
      stre.Free;
      ijpg.Free;
    end;
  Except on E:Exception do
    begin
      // tu traites ce que tu veux ici
    end;
  end;
    data.qAtt.Next;
 
  end;