Ecriture d'une image dans un fichier

Version imprimable

Salut

J'ai cherché dans le forum mais je n'ai pas trouvé de réponse satisfaisante. Je voudrais écrire une image, stockée en base, dans un fichier. Pour lire l'image, j'utilise la fonction READTEXT qui me renvoie le code binaire de l'image, de la forme 0x1245.... etc. A présent, je souhaiterais écrire tout ça dans un fichier. J'avais pensé à utiliser qque chose du genre :
Code:

1 2 3 4 5 6 7 8 9 DECLARE @fs int DECLARE @fileid int EXEC sp_OACreate 'Scripting.FileSystemObject', @fs OUT EXEC sp_OAMethod @fs, 'OpenTextFile', @FileID OUT, @filename, 8, 1 EXEC sp_OAMethod @fileid, 'WriteLine', Null, @text EXEC sp_OADestroy @fileid EXEC sp_OADestroy @fs
Le problème est que le contenu est interprêté comme du texte. Logique : j'ai utilisé la méthode : 'OpenTextFile'
Je pense que le problème se situe ici. Il faudrait peut être le remplacer par qque chose du genre 'OpenBinaryFile'. Je ne trouve pas de listes des valeurs possibles pour ce paramètre...

Si qqu'un a un idée ou à déjà eu le problème, merci de m'en faire part...

29/06/2007, 13h55
SQLpro

SQL Server n'est pas fait pour faire ce genre de choses. Prévoyez de le faire au niveau du client à l'aide de readtext ou bien changez votre stratégie en stockant vos images dans des fichiers plutôt que dans la base.

A +
29/06/2007, 14h34
davidou2001

Le problème, c'est que je n'ai pas de client justement... ce travail doit être effectué par une stored proc... Sans te manquer de respect, je reste sceptique. Je pense que c'est faisable. Je vais continuer à chercher

:yaisse2: J'AI TROUVÉ !!!

On peut donc écrire des fichiers en mode 'binaire' directement à partir de SQL Server. Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
  -- Chemin du fichier a ecrire
  DECLARE @baseDir varchar(800)
  EXEC tsu__private_getBaseDir @baseDir OUTPUT
  SELECT @baseDir = 'chemin de mon fichier'
 
  -- Le fichier binaire
  DECLARE @s varbinary(2048)
  SET @s = 0x47494...code hexa du fichier
 
  DECLARE @o int
  DECLARE @r int
  EXEC sp_oacreate 'adodb.stream', @o output
  EXEC sp_oasetproperty @o, 'type', 2
  EXEC sp_oamethod @o, 'open'
  EXEC sp_oamethod @o, 'writetext', null, @s
 
  EXEC sp_oacreate 'adodb.stream', @r output
  EXEC sp_oasetproperty @r, 'type', 1
  EXEC sp_oamethod @r, 'open'
  EXEC sp_oasetproperty @o, 'position', 2
  EXEC sp_oamethod @o, 'copyto', null, @r
  EXEC sp_oamethod @r, 'savetofile', null, @basedir, 2

Voilà, il fallait y penser :P J'espère que ça pourra aider quelqu'un !
Merci !