Discussion :

[psidonio]

J'aimerais sauvegarder une image dans un champ Graphic d'une table Paradox et ensuite l'afficher dans un TImage sans utiliser le DBImage.

En gros:

Code :

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

Image1.xxx := Table1image.xxx   ???

ou alors:

Code :

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

Image1.xxx.Assign(Table1image.xxx)

Merci

[sfpx]

Normalement ils disent qu'il faut utiliser tblobstream mais j'ai eu des problos avec cette méthode. Il semble que ça ne marche pas si l'image dépasse 32K ou qqchose du genre.

Voici tout de même la méthode en question

Code :

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

1
2
3
4
5
6
7
8
 
var bs:tblobstream;
begin
 bs:=tblobstream.create(tongraphicfield,bmread);
 bs.position:=0;
 tonimage.picture.bitmap.loadfromstream(bs);
 bs.free;
end;

Voici un code que je viens de créer et qui fonctionne. C'est pas élégant mais bon..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var MemS:tmemorystream;
s:string;
i:integer;
begin
MemS:=tmemorystream.create;
s:= table1graphic.value;
for i:=9 to length(s) do MemS.Write(s[i],1);
MemS.Position:=0;
image1.Picture.Bitmap.LoadFromStream(MemS);
MemS.Free;
end;

[psidonio]

La méthode blobstream fonctionne. Je vais quand même garder l'autre au cas ou .

Merci Sfpx