Dans quoi est-ce que je me suis encore embarqué moi...

Voici un petit essai qui semblait prometteur... mais ça ne fonctionne pas. Une idée?

Les api externes:

Function ulong GetDC(long hWnd) Library "user32.dll"
Function ulong CreateCompatibleDC(ulong hdc) Library "gdi32.dll"
Function ulong CreateCompatibleBitmap( ulong hdc, long nWidth, long nHeight) Library "gdi32.dll"

Function boolean BitBlt(ulong hdcDest, long nXDest, long nYDest, long nWidth, long nHeight, ulong hdcSrc, long nXSrc, long nYSrc, long dwRop) Library "gdi32.dll"
Function boolean StretchBlt(ulong hdcDest, long nXOriginDest, long nYOriginDest, long nWidthDest, long nHeightDest, ulong hdcSrc, long nXOriginSrc, long nYOriginSrc, long nWidthSrc, long nHeightSrc, long dwRop) Library "gdi32.dll"

Function ulong SelectObject(ulong hdc, ulong hgdiobj) Library "gdi32.dll"

Function long GetDIBits (ulong hdc, ulong hbmp, uint uStartScan, uint cScanLines, Ref blob lpvBits, Ref bitmapinfo lpbi, uint uUsage) Library "gdi32.dll"
Function long GetDIBits (ulong hdc, ulong hbmp, uint uStartScan, uint cScanLines, ulong lpvBits, ref bitmapinfo lpbi, uint uUsage) Library "gdi32.dll"

Subroutine CopyBitmapFileHeader (Ref blob Destination, bitmapfileheader Source, long Length) Library "kernel32.dll" Alias For "RtlMoveMemory"
Subroutine CopyBitmapInfo ( Ref blob Destination, bitmapinfo Source, long Length) Library "kernel32.dll" Alias For "RtlMoveMemory"

Le bout de code pour tenter l'affaire:

BitmapInfo  lstr_Info
BitmapFileHeader lstr_Header
Blob  lblb_header, lblb_info, lblb_bitmap
ULong lul_hdc, lul_hdcMem, lul_hBitmap
UInt DIB_RGB_COLORS
Integer li_pixels
Boolean lb_result
long ll_hWnd, al_width, ll_height

ll_hWnd = Handle(w_test2)
openclipboard(ll_hWnd)

// Get the device context of window and allocate memory
lul_hdc = GetDC(ll_hWnd)
lul_hdcMem = CreateCompatibleDC(lul_hdc)
lul_hBitmap = getclipboarddata(2)

// Select an object into the specified device context
SelectObject(lul_hdcMem, lul_hBitmap)

// try to store the bitmap into a blob so we can save it
lstr_Info.bmiHeader.biSize = 40
ll_height = 480
DIB_RGB_COLORS = 0
// Get the bitmapinfo
If GetDIBits(lul_hdcMem, lul_hBitmap, 0, ll_height, 0, lstr_Info, DIB_RGB_COLORS) > 0 Then
   li_pixels = lstr_Info.bmiHeader.biBitCount
   lstr_Info.bmiColors[li_pixels] = 0
   lblb_bitmap = Blob(Space(lstr_Info.bmiHeader.biSizeImage/2))
   // get the actual bits
   GetDIBits(lul_hdcMem, lul_hBitmap, 0, ll_height, lblb_bitmap, lstr_Info, DIB_RGB_COLORS) 
   // create a bitmap header
   lstr_Header.bfType = BITMAPTYPE
   lstr_Header.bfSize = lstr_Info.bmiHeader.biSizeImage
   lstr_Header.bfOffBits = 54 + (li_pixels * 4)
   // copy the header structure to a blob
   lblb_header = Blob(Space(14/2))
   CopyBitmapFileHeader(lblb_header, lstr_Header, 14)
   // copy the info structure to a blob
   lblb_Info = Blob(Space((40  + li_pixels * 4)/2))
   CopyBitmapInfo(lblb_Info, lstr_Info, 40 + li_pixels * 4)
   // add all together and we have a window bitmap in a blob
   lblb_bitmap = lblb_header + lblb_info + lblb_bitmap
End If

CloseClipboard()

picframe.SetPicture(lblb_bitmap)

BitmapInfo, BitmapFileHeader sont des structures définies ici:
http://msdn.microsoft.com/en-us/library … 85%29.aspx
http://msdn.microsoft.com/en-us/library … 85%29.aspx

Dernière modification par Shed (16-11-2012 15:12:32)

http://infocenter.sybase.com/help/index … GEGBDD.htm

+ encore d'autres sources, la conversion n'est pas compliquée.
Il faut juste faire attention aux pointeurs (variable à passer en référence). Mais il n'y en a pas ici.

Hummm... Ca ne marche pas chez moi.
Je suis en PB12.1, windows 7 64 bits.

J'ai essayé de sauver le blob en fichier.bmp pour voir, le fichier est bien créé avec un certain poids, mais pas d'image dedans...

Shed a écrit:

J'ai essayé de sauver le blob en fichier.bmp pour voir, le fichier est bien créé avec un certain poids, mais pas d'image dedans...

En regardant avec un éditeur hexa : tu as un entête qui semble plausible, suivi d'un paquet d'espaces à la place des pixels ? (ce que je vois ici).

Me suis un peu avancé...

La sauvegarde en fichier bmp à partir du blob fonctionne. Pas l'affichage dans le picture control.

Donc:

integer li_FileNum
li_FileNum = FileOpen("D:\develop\photopass\test.bmp", StreamMode!, Write!, Shared!, Replace!)
FileWriteEx(li_FileNum, lbl_final)

--> Ok

picframe.SetPicture(lbl_final)

--> Ko

Dernière modification par Shed (19-11-2012 14:53:11)

Bon...

De base, l'appli se sert de avicap32.dll pour acquérir des images depuis une webcam. Des snapshots peuvent être pris et l'api stocke l'image prise dans le clipboard en utilisant nottement

FUNCTION Boolean SendMessage(Long hwnd, Long Msg, Long wParam, Long lParam)  LIBRARY "user32.dll" ALIAS FOR "SendMessageA;ansi"

CONSTANT Long WM_CAP_EDIT_COPY = 1054

lb_res = SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)

L'image est bien dans le clipboard. Si je la copie colle dans une autre appli, ça fonctionne nickel.

Puis après, comme dit au dessus, je construis mon blob à partir de l'image dans le clipboard, puis je fais un .setpicture. Ca ne marche pas. Par contre, si je sauvegarde en .bmp, puis que je fais un .picturename = test.bmp, ça fonctionne bien, mais c'est moins propre car je dois passer par un fichier temporaire...

Mais mais mais... Si je n'utilise pas la première partie de l'appli pour mettre l'image dans le clipboard, mais que je fais simplement un ctrl+c d'une image bmp quelconque dans une autre appli, puis que j'essaie de faire un .setpicture, eh bien... ça fonctionne (mais bon... ça me sert à rien ça dans mon appli webcam :-))

je perds mes tartinnes...

Dernière modification par Shed (19-11-2012 16:41:27)

J'ai utilisé clipbrd.exe que j'ai rapatrié d'un XP vers un 7 (ça fonctionne). Rien de particulier à noter, les deux images sont bien présentes dans le clipboard, que ça soit par acquisition de la webcam ou par une autre appli.

Maintenant, il existe apparemment 7 formats de fichiers bmp différents (tous normalement reconnus par windows).

Peut-être que le .SetPicture ne fonctionne pas avec l'un (ou certains) d'entre eux, ce qui expliquerait pourquoi j'arrive à affichier des images venant d'autres appli et pas celles de la webcam.
La sauvegarde correcte du fichier en .bmp dans les deux cas s'expliquerait par le fait que je soupçonne FileWriteEx de faire du réencodage à l'écriture (J'ai copié un bmp avec une profondeur de couleur de 24, et après la sauvegarde, celle-ci est devenue 32...)... Ou alors FileWriteEx ne subit pas les mêmes limitations en bmp que .SetPicture.

Comme je disais, j'ai contourné le problème en sauvegardant d'abord le fichier en temp.bmp sur le disque, puis en faisant un .picturename="temp.bmp". Mais je trouve ça pas propre... Ca m'énerve

Shed a écrit:

Maintenant, il existe apparemment 7 formats de fichiers bmp différents (tous normalement reconnus par windows).

Peut-être que le .SetPicture ne fonctionne pas avec l'un (ou certains) d'entre eux, ce qui expliquerait pourquoi j'arrive à affichier des images venant d'autres appli et pas celles de la webcam.
La sauvegarde correcte du fichier en .bmp dans les deux cas s'expliquerait par le fait que je soupçonne FileWriteEx de faire du réencodage à l'écriture (J'ai copié un bmp avec une profondeur de couleur de 24, et après la sauvegarde, celle-ci est devenue 32...)... Ou alors FileWriteEx ne subit pas les mêmes limitations en bmp que .SetPicture.

Le réencodage automagique du bitmap par FileWriteEx, comment dire... ça semble un peu fumeux comme théorie

En revanche, le presse-papier effectue bien des conversions en fonction de ce qui est dedans et ce qui est demandé par l'application : si un format n'existe pas mais qu'on peut l'obtenir depuis un autre, il y a conversion (source krosoft - paragraphe "Synthesized Clipboard Formats") C'est peut-être là qu'il il faut creuser.

Voici une fonction capable de faire un dump hexa d'un blob (version pb "vanilla", c'est super lent - ici j'utilise une fonction fastreplaceall() codée en C qui accélère le fonctionnement - il vaut mieux éviter de traiter trop de données, ne traite que des portions du blob final), et les dépendances de code qui vont avec si ça peut t'aider à examiner les données avant qu'elles n'aillent dans un fichier...

global type iif from function_object
end type

forward prototypes
global function any iif (boolean ab_cond, any aa_true, any aa_false)
end prototypes

global function any iif (boolean ab_cond, any aa_true, any aa_false);
// simulates the VB iif or C ternary operator

if ab_cond then
    return aa_true
else
    return aa_false
end if

end function

global type replaceall from function_object
end type

forward prototypes
global function string replaceall (string as_source, string as_pattern, string as_replace)
end prototypes

global function string replaceall (string as_source, string as_pattern, string as_replace);//remplace toute les occurences de as_pattern de as_source par as_replace 
string ls_target
long i, j

ls_target=""
i = 1
j = 1
do
    i = pos( as_source, as_pattern, j )
    if i>0 then
        ls_target += mid( as_source, j, i - j )
        ls_target += as_replace
        j = i + len( as_pattern )
    else
        ls_target += mid( as_source, j )
    end if
loop while i>0

return ls_target
end function

global type hexdump_blob from function_object
end type

forward prototypes
global function string hexdump_blob (blob abl_data, boolean ab_fill_lastline)
end prototypes

global function string hexdump_blob (blob abl_data, boolean ab_fill_lastline);//hexify a blob content
string ls_tohex = "0123456789ABCDEF"
string ls_msg = "", ls_line, ls_binary
long i, j, length
byte b
string ls_fill

if isnull( abl_data ) then return ""

if ab_fill_lastline then
    ls_fill = " __"
else
    ls_fill = "   "
end if

length = len( abl_data )
for i = 1 to length
    GetByte( abl_data, i, b )
    ls_line += mid( ls_tohex, 1+ mod(int(b/16),16), 1)
    ls_line += mid( ls_tohex, 1+ mod(b,16), 1)
    ls_line += " "
    ls_binary += string( iif(b>31 and b<128,char(b)," "))
    if mod(i,16) = 0 and i > 0 then
        ls_binary = replaceall( ls_binary, "~r", "·")   //no cr/lf
        ls_binary = replaceall( ls_binary, "~n", "·")
        ls_binary = replaceall( ls_binary, "~t", "·")
        ls_msg += "[" + string( i - 16, "0000") + "] " + ls_line + "~t" + ls_binary + "~r~n"
        ls_line = ""
        ls_binary = ""
    end if
next
i -- // i - 1 due to the last loop in for
ls_line += fill(ls_fill, 3 * ( 16 - mod(i, 16) ) )
ls_msg += "[" + string( i - mod(i,16), "0000") + "] " + ls_line + "~t" + ls_binary

return ls_msg

end function

Shed a écrit:

Comme je disais, j'ai contourné le problème en sauvegardant d'abord le fichier en temp.bmp sur le disque, puis en faisant un .picturename="temp.bmp". Mais je trouve ça pas propre... Ca m'énerve

Moi aussi ça m'intrigue. En temps masqué, je vais creuser un peu les différents formats bitmap.

Edit: ah ben je vois qu'entre temps tu as trouvé une solution propre. Je crois que je vais proposer ma fonction hexdump_blob() dans la section partage de code...

Dernière modification par seki (20-11-2012 10:02:14)

En plus des custom events, tu peux aussi créer ton propre event non mappé sur un pbm_xxx et l'appeler comme tu veux. L'ID d'event est optionnel.

Parce que je suis en train de jouer avec des HBITMAP et HICON avec Xlat, je viens de remarquer un (léger) problème dans le code qui a été posté :
- à un GetDC() doit correspondre un ReleaseDC()
- et à un CreateCompatibleDC() doit correspondre un DeleteDC()

Donc le code doit finir avec

ReleaseDC(lul_hwnd, lul_hdc)
DeleteDC(lul_hdcMem)

Ça fonctionnait sans planter, mais ça doit occasionner des fuites de ressources gdi...