[VB6] [Graphisme] Transfert d'image pixel par pixel

**SpaceFrog** · 10/10/2002, 17h04

J'essaye un kryptage d'image :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
PctCible.ScaleMode = 3
PctSource.ScaleMode = 3
PctCible.Height = PctSource.Height
PctCible.Width = PctSource.Width
LargC = PctCible.ScaleWidth
HautC = PctCible.ScaleHeight
For pixCx = 0 To LargC
For pixCy = 0 To HautC Step 2
SetPixel PctCible.hDC, pixCx + 4, pixCy + 4, GetPixel(PctSource.hDC, pixCx, pixCy)
Next pixCy
DoEvents
Next pixCx
 PctCible.Refresh

avec :

Private Declare Function SetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long

quand je lance la procédure avec une image dans pctsource jai un voile vert qui passe sur le pctcible et puis rien de plus ???

**HCath** · 10/10/2002, 17h18

Salut,

Au départ, PctSource.AutoRedraw = True et PctCible.AutoRedraw = True.
et ça devrait être amusant comme effet de distorsion d'image.

A+
HCath

**SpaceFrog** · 10/10/2002, 17h34

Je ne vois pas pourquoi le pctsource devrait être en autoredraw true, je n'agis pas dessus ?

Et pas mieux le resultat !

en fait je cherche a transférer dans la pctcible l'image de la pctsource en décalant les pixels selon un algo de kryptage ...

je nage un peu, il n'a pas l'air de me prendr la couleur dans crcolor... de quel format est cette couleur ?

**SpaceFrog** · 10/10/2002, 18h03

D'après ce que comprend du code le setpixel mets aux coordonnées de PixCx et PixCy la couleur du getPixel correspondant crcolor...
J'ai essayé de mettre une valeur quelconque mais cela ne change rien ...

il scanne bien les pixels mais il n'a pas l'air de comprendre la couleur du getpix du pixel correspondant...
Puisqu'il me colle invariablement tout en vert ???
Il a du reperer que les grenouilles de l'espace aiment bien le vert mais bon, c'est très gentil de sa part ...

MAIS CE N'EST PAS CE QU JE LUI DEMANDE !

excusez moi de cet emportement mais je perds patience ...

**HCath** · 10/10/2002, 18h27

Pas de panique !
J'ai copié/collé ton code tel quel et obtenu le résultat attendu, c'est à dire une reproduction pâle de l'image originale. Aucun pixel vert à l'horizon.

Donc, le problème n'est pas dans le code.

Peut-être as-tu modifié une propriété de tes PictureBox ?
Ou bien ton image originale exploite une palette de couleurs particulière ?
Essaie de faire un test avec une autre image.

A+
HCath

**SpaceFrog** · 11/10/2002, 12h12

Je te remercie du temps que tu m'accordes. Je suis en week end et je verrais ça lundi...

Quand tu dis une pale copie de l'image ??? Ce n'est pas l' effet escompté...
En fait je cherche à créer un effet chaine kryptée mais en statique, c'est a dire prendre un paque de trois ou quatre lignes de pixel, les décaler à droite de quelques pixels, puis prendre le paque de lignes suivantes et lui attribuer un decalage dans l'autre sens...

Le tout pour pouvoir reprendre et dechrypter l'image par l'algo inverse....

**HCath** · 11/10/2002, 14h29

Salut,

Le résultat est bien une pâle copie de l'original car tu ne lis qu'une ligne de pixels sur deux de l'image originale (Step 2).

Donc, même si ce n'était pas l'effet recherché, le résultat est intéressant !
Tu as ouvert une voie à explorer.

A+
HCath

**SpaceFrog** · 14/10/2002, 09h23

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
PctCible.ScaleMode = 3
PctSource.ScaleMode = 3
PctCible.Height = PctSource.Height
PctCible.Width = PctSource.Width
LargC = PctCible.ScaleWidth
HautC = PctCible.ScaleHeight
For pixCx = 0 To LargC
For pixCy = 0 To HautC
PctCible.PSet (pixCx, pixCy), GetPixel(PctSource.hDC, pixCx + 5, pixCy)
Next pixCy
DoEvents
Next pixCx

Grace a Bidou voici quelque chose de plus efficace !
Maintenant il faut que trouve le moyen d'agir une ligne sur deux, j'ai déja une idée ...
il faut que je trouve un kryptage qui puisse être dekrypté pasd l'opération inverse (fonction bijective)....

**SpaceFrog** · 14/10/2002, 09h53

Un grand MERCI à Bidou et HCATH pour leur aide précieuse...

Voici le résultat de mes recherches dans le domaine, un truc simple mais efficace :

bouton krypter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim LargC As Integer, HautC As Integer, pixCx As Integer, pixCy As Integer
 
PctCible.ScaleMode = 3
PctSource.ScaleMode = 3
PctCible.Height = PctSource.Height
PctCible.Width = PctSource.Width
LargC = PctCible.ScaleWidth
HautC = PctCible.ScaleHeight
For pixCy = 0 To HautC Step 2
For pixCx = 0 To LargC
PctCible.PSet (pixCx, pixCy), GetPixel(PctSource.hDC, pixCx + 5, pixCy)
Next pixCx
DoEvents
Next pixCy
 
For pixCy = 1 To HautC Step 2
For pixCx = 0 To LargC
PctCible.PSet (pixCx, pixCy), GetPixel(PctSource.hDC, pixCx - 5, pixCy)
Next pixCx
DoEvents
Next pixCy

Bouton Dekrypter ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim LargC As Integer, HautC As Integer, pixCx As Integer, pixCy As Integer
 
PctEnd.ScaleMode = 3
PctCible.ScaleMode = 3
PctEnd.Height = PctCible.Height
PctEnd.Width = PctCible.Width
LargC = PctEnd.ScaleWidth
HautC = PctEnd.ScaleHeight
For pixCy = 0 To HautC Step 2
For pixCx = 0 To LargC
 
PctEnd.PSet (pixCx, pixCy), GetPixel(PctCible.hDC, pixCx - 5, pixCy)
Next pixCx
DoEvents
Next pixCy
 
For pixCy = 1 To HautC Step 2
For pixCx = 0 To LargC
 
PctEnd.PSet (pixCx, pixCy), GetPixel(PctCible.hDC, pixCx + 5, pixCy)
Next pixCx
DoEvents
Next pixCy

**SpaceFrog** · 14/10/2002, 11h21

Maintenant j'ai un souci de taille ...

En effet mon image de départ dans le Pctsource fait 1566 x 2300 pixels

Si je dimensionne mon pctsource à ce format, j'obtiens une image blanche ????

Je ne vois pas d'ou cela peut provenir ???

**SpaceFrog** · 14/10/2002, 11h25

Si je fais les opération de transferts de pixels quand le pictbox visible est false et qu'en fin de process je le passe à true, le pictbox apparait VIDE !!!

**SpaceFrog** · 14/10/2002, 11h46

On ne peut pas faire d'opération sur les pixels d'un picturebox en visible =false ???

**bidou** · 14/10/2002, 13h08

non tu ne peux pas.
Le visible=true est l'équivalent d'un refresh, et comme la propriété picture ne contient pas une référence à un fichier, il efface tes pixels

**SpaceFrog** · 14/10/2002, 14h54

Bon ben il ne me reste plus qu'à jouer avec des caches parce que dès que je le bouge en zorder tout disparait aussi...

Cela ne resoud pas le problème de la taille èvoqué ci dessus...

**SpaceFrog** · 14/10/2002, 15h16

Argh ! Je suis bloqué car même si le picturebox est visible = true, mais masqué par un autre objet (zorder au dessus) je n'ai pas accès aux opérations su les pixels dans la picturebox ....
N'y aurait il pas un controle qui me permette de jouer avec les pixels qu y seraient chargés même en visible false ???

**SpaceFrog** · 15/10/2002, 09h43

Hum Hum ça ressemble à un monologue ... To Pix or Not To Pix that is the question ...

Bon avec la propriété autaredraw => image en mémoire je progresse mais c'est pas gagné ....

**DarkVader** · 15/10/2002, 09h53

Même un monologue permet d'avancer %)

[VB6] [Graphisme] Transfert d'image pixel par pixel

VB 6 et antérieur

Discussions similaires

Partager

Partager