Discussion :

[Peck777]

Bonsoir les Delphistes;

Petite colle du soir

Je lis un peu partout que l'on peut stocker des données binaires dans un champ varbinary, et qu'il suffit d'exécuter une requète 'insert' et de passer en paramètre le flux binaire.
Ce qui donnerait par exemple:

Code :

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

1
2
3
4
5
 
SQL.Add('insert into t_image(serial, image, image_url) ');
SQL.Add('(1, :image, ''1.jpg'')');
Parameters.ParamByName('image').LoadFromFile('1.jpg', ftBlob);
OK := ExecSQL = 1;

La méthode LoadFromFile monte une exception, je cite : Le cast spécifié n'est pas valide.
J'ai bien sur essayer diserves astuces, rien à faire. Alors soit une burne finie ou je suis trop crevé (il est 00h08) mais s'il vou plait, aidez moi

Peck777 à votre écoute

[Cl@udius]

Salut

Regarde cette QR de la FAQ de notre ami Rayek.
Notamment la méthode 2.a: assignation avec une requête.

@+ Claudius

[Peck777]

Merci pour ta réponse.

Cette solution ne me convient pas puisse que je travaille en fichier JPEG et pas en BMP. et je ne peux pas non plus utiliser TJPEGImage car je suis en .NET

Bon, après maintes et maintes recherches, j'ai fini par trouver mon bonheur.
j'utilise le TADOBlobStream avec une TADOTable comme cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        TableDirect := true;
        TableName := 't_image';
        Open;
        Append;
        FieldByName('serial').AsInteger := Serial;
        FieldByName('image_url').AsString := ImageUrl;
        ADOStream := TADOBlobStream.Create(FieldByName('image') as TBlobField, bmWrite);
        ADOStream.LoadFromFile('1.jpeg');
        ADOStream.Free;
        Post;
        Close;

ça fonctionne impeccable.
Bon codage