ScrollBox en TImage

Bonjour,

J'ai un ScrollBox dans ma form et je voudrais le mettre en image (bmp, ou Timage) mais je n'y arrive point.
J'ai essayé:
ScrollBox1.Brush.Bitmap.SaveToFile("test.bmp")
et ScrollBox1.Parent.Brush.Bitmap.SaveToFile("test.bmp")
Mais sans succès... J'ai toujours une erreur de mémoire qui me plante mon programme (Sous borland).
Or pour un Timage: Image1.Picture.Bitmap.SaveToFile("test.bmp") ça marche trés bien...

Merci de votre aide si vous avez la moindre idée....

Stan

Essaye plutôt la méthode PaintTo du ScrollBox, vers un Canvas temporaire qui lui sauvegardera l'image

le Brush, c'est le style du pinceau en cours, ...

Quelque chose comme ça?
ScrollBox1.PaintTo(Image1.Picture.Bitmap.Canvas,0,0);

Comme ça ça ne fonctionne pas, je n'ai pas d'erreur mais l'image ne s'affiche pas :( (J'ai mis une couleur de fond et un texte pour l'exemple)

La cible de PaintTo est un DC, il faut lui passer un handle, ...

Code:

---

Image1.Picture.Bitmap.Canvas.Handle

---

Code:

---

ScrollBox1.PaintTo(Image1.Picture.Bitmap.Canvas.Handle,0,0);

---

Ca ne marche pas mieux malheuresement :(
La seul solution que j'ai trouvé pour l'instant c'est récupérer sur une impression écran mais ça ne résout pas mon soucis puisque ça sera une application en tache de fond....

En tout cas merci de m'aider ;)

SAlut
Alors il faut soit

Code:

---

ScrollBox1.PaintTo(Image1.Canvas.Handle,0,0);

---

mais tu n'affiche pas tous les composant, me demande pas pourquoi je ne le sais pas?

Sinon

Code:

---

ScrollBox1.PaintTo(Image1.Canvas,0,0);

---

Avec ca tu as tout les composant dans le Timage1

A++
Qwaz

Merci bien mais cela fonctionne bien pour les composants dans mon srollbox mais pas pour mon flux VFW (avec capCreateCaptureWindow) ... La vidéo ne se copie pas dans le Timage...

Code:

---

1 2	Video=capCreateCaptureWindow("Capture Window",WS_CHILD | WS_VISIBLE,2,2, 280,250,ScrollBox1.Handle,1) ;

---

Ca fonctionne

Code:

---

1 2	Video=capCreateCaptureWindow("Capture Window",WS_CHILD | WS_VISIBLE,2,2, 280,250,Image1.Canvas.Handle,1) ;

---

Ne fonctionne pas

Code:

---

1 2	Video=capCreateCaptureWindow("Capture Window",WS_CHILD | WS_VISIBLE,2,2, 280,250,Image1.Canvas,1) ;

---

Non plus

En fait pour les 2 derniers codes je n'ai pas d'erreur mais aucune image ne s'affiche (comme pour le : "ScrollBox1.PaintTo(Image1.Canvas,0,0);")

Une petite idée?

Encore merci

Confusion entre Objet et Handle ...

Citation:

---

Image1.Canvas = Objet Delphi
Image1.Canvas.Handle = Handle de l'Objet Window sous-jacent

---

et donc, il suffit de lire l'Aide SDK MS API

capCreateCaptureWindow prend en paramètre un parent ScrollBox1.Handle, et renvoie un HWND VFWAPI, qui n'est en fait qu'une fenêtre, qu'il faut afficher via SetWindowPos, ensuite, il me semble qu'il soit nécessaire de brancher des procédures pour écouter les message, cela m'a l'air bien avancé ... rien à voir avec les canvas ... je n'ai pas bien compris pourquoi tu passe de le copie de l'image d'un scrollbox dans une image, et la gestion de webcam par exemple ?

En fait c'est un projet que j'ai en cours mais que j'ai voulus dévelloper chez moi plutôt et dans l'exemple que notre prof nous a donné il y avait:

Code:

---

1 2	Video=capCreateCaptureWindow("Capture Window",WS_CHILD | WS_VISIBLE,2,2, 280,250,ScrollBox1.Handle,1) ;

---

Et lui traiter les images en fesant une copie d'écran... Un truc de bricolo quoi... Et moi j'ai besoin de faire tourner mon programme en tache de fond donc je ne peut pas utiliser cette méthode de toute façon !

Ensuite pour mon traitement d'image j'ai besoin de travailler sur les pixels bien entendu et je ne peux pas (à ma connaissance) le faire depuis un scrollBox, c'est pourquoi je veux le mettre en TImage...

Après en fesant un:

Code:

---

1 2	capFileSaveDIB(Video, "cam.BMP"); Image1.Picture.Bitmap.LoadFromFile("cam.BMP");

---

J'ai un soucis de lenteur...

Effectivement, le PaintTo, va dessiner ce qu'il doit dessiner, donc une application cachée, ne devrait rien dessiner (du moins si a l'intérieur les composants vérifie si ils sont vraiement visible, il ne feront rien, inutile de calculer un dessin compliqué pour rien, windows par exemple ne dessinera pas les buttons ou scrollbar mais juste les containers vide comme le TEdit), de plus, une Form par exemple ne répond pas du tout comme une ScrollBox, ... comme si les events étaient "retardées"

Citation:

---

Envoyé par Qwazerty

mais tu n'affiche pas tous les composant, me demande pas pourquoi je ne le sais pas?

---

cela m'étonne car PaintTo(Canvas) appel PaintTo(DC) ... étrange différence ???

Code:

---

1 2 3 4 5 6 7 8 9

procedure TWinControl.PaintTo(Canvas: TCanvas; X, Y: Integer); begin Canvas.Lock; try PaintTo(Canvas.Handle, X, Y); finally Canvas.Unlock; end; end;

---

Sinon quel est ton but réel ?

Mon but réel, j'ai une webcam, je veux en tirer un tableau avec les pixels en RGB, toute les 50-100ms par exemple, afin de faire un filtre dessus après et une détection de forme et tout le tralala (Mais ça encore je sais comment faire).

Donc webcam -> Tableau de pixel. Voilà le but réel

SAlut

Citation:

---

Envoyé par ShaiLeTroll

cela m'étonne car PaintTo(Canvas) appel PaintTo(DC) ... étrange différence ???

---

Humm j'ai fait le teste et ca ne fonctionne absolument pas pareil je joind le fichier test, ca m'interesse de savoir pourquoi ;)

Bonne soirée a plus
Qwaz

Citation:

---

Envoyé par Natsboss

Mon but réel, j'ai une webcam, je veux en tirer un tableau avec les pixels en RGB, toute les 50-100ms par exemple, afin de faire un filtre dessus après et une détection de forme et tout le tralala (Mais ça encore je sais comment faire).

Donc webcam -> Tableau de pixel. Voilà le but réel

---

Effectivement, capCreateCaptureWindow, est normalement la bonne solution, tu devrais etudier l'objet TCamera ou l'original JLCVideo qui utilise capCreateCaptureWindow, essaye de voir si leur comportement est plus stable ... surtout que la TCamera étant un TCustomPanel peut avoir une fonction PaintTo qui fonctionne ...