Discussion :

[castorcharly]

Bonjour,

J'utilise une DLL dont une fonction me permet d'enregistrer un fichier image.
Cette fonction "saveimage" est paramétrée par un record qui contient l'adresse où est située le flux de l'image et sa longueur,

Pour simplifier le record à l'aspect suivant:

Code :

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

1
2
3
4
5
INFO = record
size: integer;//taille du record
image: int64;//position dans la mémoire
imgsize: integer;//taille de l'image
end;

Pour enregistrer sur disque je fais donc
SaveImage(info, 'c:\...\monimage.bmp');
Qui fonctionne très bien.

Ce record ayant été au préalable remplis par une autre function.

Je cherche à récupérer l'image dont les caractéristiques sont dans INFO, pour les stocker dans un TmemoryStream.

J'ai tenté de faire ceci :

Code :

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

1
2
aStream:= TmemoryStream.create;
aStream.write(info.image, info.imgSize);

Mais j'ai une violation d'accès.

J'ai tenté ceci aussi:

Code :

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

1
2
3
aStream:= TmemoryStream.create;
aStream.size:= info.imgSize;
aStream.write(info.image, info.imgSize);

Même problème.

Avez vous une idée ?

Merci

[Paul TOTH]

soit le champ "image" est un pointeur et dans ce cas il faut utiliser aStream.write(pointer(info.image)^ , info.imgSize);, soit ce n'est pas un pointeur et tu ne connais donc pas l'adresse de l'image en mémoire...ce qui me semble le plus probable vu que "image" est un int64, peut-être un index dans une liste, ou un offset relatif à un block mémoire dont tu ne connais pas l'adresse de base.

[castorcharly]

soit le champ "image" est un pointeur et dans ce cas il faut utiliser aStream.write(pointer(info.image)^ , info.imgSize);, soit ce n'est pas un pointeur et tu ne connais donc pas l'adresse de l'image en mémoire...ce qui me semble le plus probable vu que "image" est un int64, peut-être un index dans une liste, ou un offset relatif à un block mémoire dont tu ne connais pas l'adresse de base.

Merci, c'était effectivement la bonne synthaxe.

Code :

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

aStream.write(pointer(info.image)^ , info.imgSize);

Mais j'avais écris un peu vite ma déclaration, ce n'était qu'un integer et non un int64.

Il ne me reste plus qu'a trouver, comment reconstruire mon image,
car il semblerait que les lignes soient inversées, par rapport à un bitmap dans Delphi.
C'est du propriétaire...l'origine semble commencer en bas à gauche, au lieu de en haut à gauche.

[Paul TOTH]

dans ce cas autant changer la déclaration et mettre un Pointer

ce sont les bitmaps de Windows qui ont la tête en bas mais il est possible de définir une hauteur négative pour redresser l'image.

[castorcharly]

dans ce cas autant changer la déclaration et mettre un Pointer

ce sont les bitmaps de Windows qui ont la tête en bas mais il est possible de définir une hauteur négative pour redresser l'image.

Oui, merci, c'est ce que j'avais fait...c'est un pointer au final.

Pour l'image, quand je compare avec le bitmap d'origine, dans mon test chaque ligne fait 1604 octets. La première ligne du fichier bitmap est la dernière du fichier memoire.

J'ai dans mon memorystream, une image à l'envers. C'est pas trop compliqué à corriger.
Par contre, ce qui m'embête plus, c'est que le memorystream ne contient pas l'entête du fichier, il doit être créé dans la function saveImage.
Mon fichier bitmap fait ~1 ko de plus que mon memorystream.

J'ai donc au final, tous les pixels de mon bitmap dans le stream, qu'il faut que je recopie dans un Canvas pixel/pixel ou y a t il une façon plus rapide ?

Je ne vois pas de méthode me permettant de recopier dans le canevas un buffer, correspondant à une ligne par exemple.

Au final, mon objectif étant de ne pas enregistrer mon image, (qui provient d'un scanner spécial), sur disque, mais de l'enregistrer en BDD, comme je le fais habituellement, sauf que jusqu'ici, je sauvegardais sur disque pour charger mon Stream ensuite, ce qui n'est pas très optimum.


Le graphisme, c'est pas ma tasse de thé

[Paul TOTH]

si tu connais les dimensions de l'image

Code :

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

1
2
3
4
5
6
7
8
 
begin
  bitmap := TBitmap.Create;
  bitmap.PixelFormat := pf32bit; // ou autre
  bitmap.Width := www;
  bitmap.Height := hhh;
  Move(Info.Image^, bitmap.ScanLine[hhh-1], Info.imgSize);
end;

[Montor]

Move(Pointer(Info.Image)^, bitmap.ScanLine[hhh-1]^, Info.imgSize);

Si l'image est copiée correctement
bitmap.Loasfromstream