Discussion :

[alexmorel]

8) J'ai changée mes composants ADO par Oracle Access sous Delphi

mais iln'y a pas les même options ?

Avec ADO

Code :

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

1
2
3
4
5
6
7
8
 
With ADO_Query do
Begin
    sql.clear;
    sql.add('Insert into tanle_image values(2, :dw)');
    Parameters.ParaByName('dw').LoadFromFile('c:\test.jpg', ftBlob)
    ExecSql;
End;

Avec Oracle Access

Code :

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

1
2
3
4
5
6
7
8
9
 
With Oracle_query do
Begin
    sql.clear;
    sql.add('Insert into tanle_image values(2, :dw)');
    {Mais ça n'existe pas
        Parameters.ParaByName('dw').LoadFromFile('c:\test.jpg', ftBlob)
     }
end;

Le but est d'envoier des fichiers Blob dans ma base !!

Alors merci d'avance

[Amenofis]

Salut,

dans les propriétés de ton copmposant (que je ne connais pas.... ) tu dois avoir quelque chose comme ParameterDef, ou parameter... quelque chose... non ?

c'est là dessus que tu dois "jouer"...

@+

[alexmorel]

Si c'étais si facile je n'aurais pas poser la question , il n'y a rien qui a comme nom para* .

Donc si vous avez comment merci beaucoup

[Amenofis]

Hum,

Si c'étais si facile je n'aurais pas poser la question...

Désolé de vous avoir froissé Monsieur "Pas si Master que ça" Oracle...

[alexmorel]

Je ne suis pas froissé , c'est sympa de m'aider mais j'en ai marre de cherche ...

Et je connais Bien Oracle et Delphi au fur et a mesure que je l'utilise mais si tu as une proposition pour mon problème !

Merci d'avance

[Nono40]

La syntaxe utilisée n'est pas la pls standard... En général c'est : ( à vérifier )

Code :

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

1
2
3
4
5
6
7
 
With Oracle_query do
Begin
    sql.clear;
    sql.add('Insert into tanle_image values(2, :dw)');
    ParamByName('dw').LoadFromFile('c:\test.jpg', ftBlob);
end;

[alexmorel]

avec les composant Oracle il n'y a pas de

Code :

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

1
2
 
ParamByName('dw').LoadFromFile('c:\test.jpg', ftBlob);

Donc si vous avez une solution !

Merci

[oziller]

si on parle bien de DOA, je pense qu'une visite sur le forum des concepteurs s'impose :

http://www.allroundautomations.nl/doa.html

une recherche sur blob et loadfromfile devrait déjà apporter pas mal de réponses.

[alexmorel]

:o avec une recherche sur le site ..

8) J'ai cree le code suivant :

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
 
var LOB:TLobLocator;
Begin
With OracleQuery do  
  Begin    
     SQL.Clear;    
     SQL.Add('INSERT INTO imagesB VALUES(44, :image)');        
     LOB:=TLobLocator.Create(OracleSession1, otBLOB);    
     DeclareVariable('image', otBLOB); 
     LOB.LoadFromFile(OpenPictureDialog1.FileName);       
     SetComplexVariable('image', LOB);    
     Execute;    
     LOB.Free;    
     OracleSession1.Commit;  
  End;  
End;

Mais sa me fait l'erreur suivante

Code :

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

1
2
 
TLOBLocator: Invalid handle

Et je vois pas ou est l'erreur : :

Merci d'avance

PS :
Ma base

Code :

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

1
2
3
4
 
ImagesB(
id_image number(6),
image BLOB);

[oziller]

peut-être en mettant le loadfromfile avant le setcomplex?

[alexmorel]

J'ai juste recopier faux sur le forum sinon dans mon applic il est avant.


Mais l'erreur est bien là

[alexmorel]

J'ai trouvé la solution ...

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
 
var LOB:TLobLocator; 
Begin 
With OracleQuery do  
  Begin    
     SQL.Clear;    
     SQL.Add('INSERT INTO imagesB VALUES(44, empty_blob()) returning image into :image');        
     LOB:=TLobLocator.Create(OracleSession1, otBLOB);    
     DeclareVariable('image', otBLOB);
     SetComplexVariable('image', LOB);
     Execute;    
     LOB.LoadFromFile(OpenPictureDialog1.FileName);        
     LOB.Free;    
     OracleSession1.Commit;  
  End;  
End;

Eh voilà

[alexmorel]

J'ai trouvé la solution ...

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
 
var LOB:TLobLocator; 
Begin 
With OracleQuery do  
  Begin    
     SQL.Clear;    
     SQL.Add('INSERT INTO imagesB VALUES(44, empty_blob()) returning image into :image');        
     LOB:=TLobLocator.Create(OracleSession1, otBLOB);    
     DeclareVariable('image', otBLOB);
     SetComplexVariable('image', LOB);
     Execute;    
     LOB.LoadFromFile(OpenPictureDialog1.FileName);        
     LOB.Free;    
     OracleSession1.Commit;  
  End;  
End;

Eh voilà