Passer Adresse memoryStream

**castorcharly** · 08/03/2013, 22h11

Bonjour,

J'utilise un activeX auquel je veux passer un flux image contenu dans un TmemoryStream.
L'activeX dispose d'une méthode où on doit lui passer l'adresse du buffer où est stockée l'image. Cette adresse est exprimé en integer;

la déclaration est du genre:
ActX.SetImage(addBuffer: integer);

Comment lui passer l'adresse du buffer TMemoryStream ?

Merci pour votre aide...en sachant que je suis sous XE2.

**tourlourou** · 09/03/2013, 10h31

essaye de lui passer comme ceci

Code :

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

ActX.SetImage( Integer(AMemoryStream.Memory) );

**castorcharly** · 09/03/2013, 11h03

Envoyé par tourlourou

essaye de lui passer comme ceci

Code :

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

ActX.SetImage( Integer(AMemoryStream.Memory) );

Merci, si effectivement je lui passe un integer, je ne récupère pas l'image pour autant.
Je vais essayer en copiant le contenu du TmemoryStream dans un buffer et ensuite de passer à l'activeX l'adresse de ce buffer.

C'est pas top, car je fais une copie pour rien, mais au moins j'aurais un modèle du contenu de la mémoire. Ca me permettra peut être de trouver ensuite le bon moyen en direct.

**tourlourou** · 09/03/2013, 15h09

Attend-il vraiment un pointeur passé comme un entier, ou un handle entier identifiant un buffer/flux créé dans l'Active X ?

Quel est l'Active X ou les déclarations utiles ?

**castorcharly** · 09/03/2013, 17h21

Envoyé par tourlourou

Attend-il vraiment un pointeur passé comme un entier, ou un handle entier identifiant un buffer/flux créé dans l'Active X ?

Quel est l'Active X ou les déclarations utiles ?

Il attend un integer representant l'adresse du buffer[0].
Pour les déclarations c'est celle que j'ai écris dans mon premier post, que j'ai épuré des params inutiles pour la simplicité.
En fait voici la déclaration complète:
procedure SetImage(Width: integer; Height: integer; Buffer: integer);

Où Width et Height détermine la largeur et la hauteur du canvas qui va dessiner l'image que je lui passe.

Il n'y a pas d'autre procedure à exécuter avant.

Jusqu'a présent, j'utilisais une procedure LoadFromFile et sa marchait très bien, là j'ai juste remplacé le loadFromFile par le SetImage.
Sauf que je suis obligé d'enregistrer mon stream sur Disque, puis de le recharger du disque. Vu que j'ai des millions d'images à traiter, gagner qq. millieme de seconde est tout de suite rentable.

J'ai fait un test en copiant le Stream dans un buffer de Tbytes et j'ai ensuite passé l'adresse zéro de ce buffer. J'obtiens le même résultat qu'avec ton exemple, c'est à dire une image de point qui ne ressemble à rien.
Je vais faire d'autres essai en prenant autre chose que du TBytes.
Mais c'est un début

**tourlourou** · 09/03/2013, 18h41

Il est étonnant qu'il réclame un buffer dont il ne connaît pas la taille !
A moins que la longueur des données ne figure dans le flux...
Quel est le type des images qu'il peut charger ?

**castorcharly** · 09/03/2013, 19h06

Envoyé par tourlourou

Il est étonnant qu'il réclame un buffer dont il ne connaît pas la taille !
A moins que la longueur des données ne figure dans le flux...
Quel est le type des images qu'il peut charger ?

Tu as raison, je ne vois pas comment il fait pour déterminer la fin du buffer...d'autant plus qu'il est susceptible de prendre du BMP, du Tif du jpeg du png !!!

A moins qu'il se base sur les dimmensions du canevas, en fait dans le peu d'aide que j'ai dessus, ils indiquent de passer les dimensions (W et H) de l'image et non du canevas que l'on souhaite obtenir.

Ca veux donc dire qu'il doit y avoir l'entête du fichier dans le buffer pour qu'il puisse faire sa salade de bits en fonction du format, non ?

**Cl@udius** · 09/03/2013, 19h16

Salut

Envoyé par castorcharly

Jusqu'a présent, j'utilisais une procedure LoadFromFile et sa marchait très bien, là j'ai juste remplacé le loadFromFile par le SetImage.

Tu fais un LoadQQChose pour alimenter ton stream avant de le transmettre à l'activeX, non ?
Sinon ton TMemoryStream est à nil et sa longueur à 0.

**castorcharly** · 09/03/2013, 19h28

Envoyé par Cl@udius

Salut

Tu fais un LoadQQChose pour alimenter ton stream avant de le transmettre à l'activeX, non ?
Sinon ton TMemoryStream est à nil et sa longueur à 0.

Ce fut une bonne idée, mais juste avant de le passer à mon activeX je fais pendant mes tests un
stream.savetofile('C:\temp\stream.jpg'),;
puisque mon fichier est un Jpeg et je fait juste après un
stream.seek(0,0);
soit juste avant de le passer à l'activeX.

Je suis en test, donc tout est dans la même proc, je ne peux pas trop me tromper sur ce coup là, le stream.loadfromfile('D:\Images\2r.jpg') pour alimenter mon stream est aussi dans la même proc !

**Cl@udius** · 09/03/2013, 19h43

Code :

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

procedure SetImage(Width: integer; Height: integer; Buffer: integer);

Avec ton jpeg exemple, dont tu connais les dimensions, a priori comme suggéré par tourlourou:

Code :

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

ActX.SetImage(W, H, Integer(Stream.Memory));

Ca devrait le faire.
Tu n'as une doc précise de cet ActiveX ?

**castorcharly** · 09/03/2013, 20h12

Envoyé par Cl@udius

Code :

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

procedure SetImage(Width: integer; Height: integer; Buffer: integer);

Avec ton jpeg exemple, dont tu connais les dimensions, a priori comme suggéré par tourlourou:

Code :

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

ActX.SetImage(W, H, Integer(Stream.Memory));

Ca devrait le faire.
Tu n'as une doc précise de cet ActiveX ?

C'est ce que je fais pour les params, je lui passe les dimmensions du jpeg.

Pour la doc, non elle n'est pas précise, je peux faire un copier coller mais y a pas plus sur cette proc. Aucun exemple, nada, queue dale

J'ai un bout de code en C qui m'en dit pas plus, à part peut être la déclaration de la variable buffer.
Je cherche et je vous la post.

**Andnotor** · 09/03/2013, 21h31

D'après ce que je comprends, le stream est chargé avec des données brutes telles que dans un fichier. Il devrait y avoir alors un paramètre d'encodage.
Pour moi, ce buffer corresponds à un Scanline[Height -1] dans une profondeur de couleur imposée (24 bits ?).

**castorcharly** · 09/03/2013, 22h09

Envoyé par Andnotor

D'après ce que je comprends, le stream est chargé avec des données brutes telles que dans un fichier. Il devrait y avoir alors un paramètre d'encodage.
Pour moi, ce buffer corresponds à un Scanline[Height -1] dans une profondeur de couleur imposée (24 bits ?).

Oui c'est là dessus que je suis en train de réflechir, le stream charge tout, en tête et binaire constituant le fichier image, alors que l'activeX s'attend
à recevoir le binaires d'un canevas, enfin c'est là où j'en suis.

Donc je pense que si je lui passe l'adresse qui convient il devrait me restituer l'image.

Dans la proc, il y a un param facultatif BitPerRow: integer qui est par défaut à zéro. La doc dit là-dessus que les valeurs sont des multiples

je continue de chercher, mais vos idées me sont bien utile, merci à tous.

**Andnotor** · 09/03/2013, 22h28

Envoyé par castorcharly

Dans la proc, il y a un param facultatif BitPerRow...

A chaque post tu rajoutes des paramètres

Oublie ton stream pour l'instant. Charge un TBitmap et passe le Scanline à ta fonction. Si l'image apparaît mais décalée, stretchée ou écrasée et en simili-niveau de gris, ajuste BitPerRow en 16/24/32 bits.

**castorcharly** · 09/03/2013, 22h48

Envoyé par Andnotor

A chaque post tu rajoutes des paramètres

Oublie ton stream pour l'instant. Charge un TBitmap et passe le Scanline à ta fonction. Si l'image apparaît mais décalée, stretchée ou écrasée et en simili-niveau de gris, ajuste BitPerRow en 16/24/32 bits.

Non non je ne les inventes pas je cherche...
Cet activeX est livré aussi avec les Lib pour le C. Il y a des différences notables entre l'import avec Delphi qui construit un TLB et les déclarations pour le C.

Jusqu'a présent, je n'avais été cherché dans les exemples en C étant une bille dans ce langage.

Par contre, je ne vois pas ce que tu me demandes de faire avec scanline ?

**Andnotor** · 10/03/2013, 12h44

Envoyé par castorcharly

Par contre, je ne vois pas ce que tu me demandes de faire avec scanline ?

Un test ainsi :

Code :

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

1
2
3
4
5
6
7
8
with TBitmap.Create do
try
  LoadFromFile('fichier.bmp');
  PixelFormat := pf24bit;
  ActX.SetImage(Width, Height, integer(ScanLine[Height -1]), 24);
finally
  Free;
end;

**castorcharly** · 10/03/2013, 15h07

Envoyé par Andnotor

Un test ainsi :

Code :

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

1
2
3
4
5
6
7
8
with TBitmap.Create do
try
  LoadFromFile('fichier.bmp');
  PixelFormat := pf24bit;
  ActX.SetImage(Width, Height, integer(ScanLine[Height -1]), 24);
finally
  Free;
end;

J'ai exécuté ton exemple et après avoir vérifié que mon bitmap était bien un 24 bits dans les props, j'ai obtenu un canevas tout blanc comme quand je passe integer(Stream.memory).
J'ai quand même testé avec les différentes valeurs pour bitsperRow et seulement, lorsque c'est à zéro j'obtiens un "moirré" sur le canevas.

J'ai aussi vérifié que les params de Width et de Height du bitmap étaient conformes aux dimensons du canevas original.

Si tu connais le C, à quoi correspond un buffer passé comme ça :
(char*)image_lecture->imageData

**castorcharly** · 10/03/2013, 15h38

AndNotOr,

regarde ça, je viens de le trouver:
http://zip.nvp.com.tw/forum.php?mod=viewthread&tid=2127

Moi je suis dans le cas EBW8Image1.SetImagePointer(mwidth, mheight, pBuffer, 0);

Mes images sont en Jpeg 256 niveaux de gris.

Sauf que moi mon flux provient d'un scanner et non d'une caméra.
J'en dispose sous forme d'un buffer déclaré comme ceci:

lpImage: pbyte;
iSizeImg: integer; //est la taille de l'image, mais tu l'auras compris, que je récupère dans les valeurs en retour du scanner.

Ensuite, pour plus de facilité dans Delphi je le stocke sous un MemoryStream de cette manière:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure ImgToStreamEx(LpImg: Pbyte; iSizeImg: integer; var ImgMem: TmemoryStream);
begin
     try
        ImgMem.Seek(0,0);
        ImgMem.WriteBuffer(LpImg[0], iSizeImg);
     except
     end;
end;