Accueil > Forum > > > > Envoie d'une image sans passer par le disque dur
 Envoie d'une image sans passer par le disque dur
samedi 4 juillet 2009 à 14:38:31 |
Envoie d'une image sans passer par le disque dur
hippo92210b
|
Bonjour, Voila, je voudrais savoir si quelqu'un sait comment envoyer une image par winsock sans passer par le disque dur, d'une image box a une autre image box, voila. Merci d'avance. |
|
samedi 4 juillet 2009 à 17:53:03 |
Re : Envoie d'une image sans passer par le disque dur
PCPT
|
Réponse acceptée !
salut,
je viens de faire les snippets correspondant
tu récupères l'image en tableau de bytes :
' TRANSFORMER L'IMAGE D'UNE PICTUREBOX EN UN TABLEAU DE BYTES
' http://www.codyx.org/snippet_transformer-image-picturebox-tableau-bytes_496.aspx#2389
' Posté par [ PCPT ] le 04/07/2009
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Function PictureToArray(ByRef img As IPicture) As Byte()
Dim tBM As BITMAP
Dim abRet() As Byte
Dim lSize As Long
' structure
Call GetObject(img.handle, Len(tBM), tBM)
' préparation du tableau
lSize = (tBM.bmWidth * 3) And &HFFFFFFFC
ReDim abRet(0 To lSize * tBM.bmHeight * 3)
' attribution, retour
Call GetBitmapBits(img.handle, UBound(abRet), abRet(0))
PictureToArray = abRet
Erase abRet
End Function
'---------------------------------------------------------------- 'Remarques :
'Dim a() As Byte
'a = PictureToArray(Picture1.Image)
ensuite tu envoies ce tableau par senddata qui accepte les bytes, voir les sources si nécessaire
enfin une fois récupéré la totalité, tu l'affiches
' CONVERTIR UN TABLEAU DE BYTES EN IMAGE
' http://www.codyx.org/snippet_convertir-tableau-bytes-image_489.aspx#2390
' Posté par [ PCPT ] le 04/07/2009
Private Declare Function SetBitmapBits Lib "gdi32" ( ByVal hBitmap As Long , ByVal dwCount As Long , lpBits As Any ) As Long
Sub ArrayToPicture( ByRef byteArray() As Byte , ByRef imgDest As IPicture)
Call SetBitmapBits(imgDest.handle, UBound(byteArray), byteArray(0))
End Sub
'---------------------------------------------------------------- 'Remarques :
'ArrayToPicture a, Picture2.Image
'Picture2.Refresh
'
'NB : le tableau de bytes 'a' doit être valide, voir la fonction inverse correspondante :
'http://www.codyx.org/snippet_transformer-image-picturebox-tableau-bytes_496.aspx#2389
++
|
|
samedi 4 juillet 2009 à 18:54:05 |
Re : Envoie d'une image sans passer par le disque dur
|
Cette discussion est classée dans : image, dur, envoie, disque, passer
 Répondre à ce message
 Sujets en rapport avec ce message
Ajouter une image !!! [ par Delamour ]
Slut !J ai un programme qui utilise une image qui se trouve ds mon disque dur(c:/) , pr la faire apparaitre je fais alors:image = getToolkit().getImag
Convertir une image en string sans passer par le disque dur [ par vicosta ]
Y a t-il un moyen de copier une image en mémoire sur un string pour ensuite pouvoir la retourner sur un picturebox sans avoir accès au disque dur ?Exe
[Déplacé encore de .Net --> VBA] Chemin d'une image a partir d'un dossier et pas d'un emplacement sur disque dur [ par spikevba ]
Bonjour, Je cherche comment donner une chemin a une fonction VBA a partir d'un dossier.Le but est de pouvoir mettre mon fichier excel sur clef USB et
Passer un tableau d'image dans une fonction [ par Sator ]
Bonjour à tous, en fait j'ai plusieurs form dans lesquels j'ai des images sous forme de tableau numéroté de 1 à 9, de 1 à 50, de 1 à 70... etc... mon
suuprimer tous les fichiers *.frm de mon disque dur [ par abou ilyas ]
salut, s'il vous plait je veux avoir un code qui permet de supprimer tous les fichiers en *.frm de mon disque dur en cliquant sur un bouton sur mon fo
Supprimer un fichier de la base de données aprés sa suppression du disque dur [ par malakrouhhi ]
Bonjour a tous, Voilà j'ai une base de données remplie pas des chemins des fichiers qui existent dans le disque dur je veux savoir si je peux vérifi
Comment utiliser fileCopy en VB ?? [ par nico8001 ]
Bonjour à tous , j'ai donc un projet à réaliser je travaille sur visual basic 2008 et une base de données access 2000 je dois copier des fichiers
Envoie d'image par socket [ par Jeromedu79 ]
Bonjour, Voila je cherche à envoyé une image par socket (png, jpg etc..) Le seul problème, c'est que je ne sais pas comment m'y prendre.. J'utilise
Ouvrir photoshop et lui passer une image en parametre (vb.net) [ par rastarocket ]
Bonjour, Je voudrai par le code ouvrir photoshop ou de preference l'apercu des images et telecopies de windows, et lui passer une image en parametre.(
[VB2005]Scan du disque dur [ par EXCLUSIF ]
Bonsoir, J'ai besoin de faire une appli qui scanne mon disque dur à la recherche de fichiers dont la taille excéde 100 Mo. Malheureusement j'ai un gro
 Livres en rapport
|
Derniers Blogs
 DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|