Skysnake

[RESOLVED] Gravatar display on GUI

7 posts in this topic

#1 ·  Posted (edited)

Hello

So I thought it would be cool to use my Gravatar account to display my gravatar in a local GUI.

I use this code:

#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.14.2
    Author:         Skysnake

    Script Function:
    Example to download avatar from Gravatar and display locally

#ce ----------------------------------------------------------------------------

; Script Start
; includes
#include <Crypt.au3>

#include <InetConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

; declare Global vars
Global $md5GraMail = '' ; will store email for Grvatar request request



GravatarLogin()

GetAvatar()

Func GravatarLogin()
    ; get the email required for downloading the Gravatar

    Local $sGraMail = InputBox("Get Gravatar", "What is your email registered with Gravatar?", "someone@somewhere.com", "", -1, -1, 0, 0)

    ; from http://en.gravatar.com/site/implement/hash/
    ; make the hash
    ;  Local $dHash = _Crypt_HashData(GUICtrlRead($g_idInputEdit), $g_iAlgorithm) ; Create a hash of the text entered
    $md5GraMail = _Crypt_HashData(StringLower(StringStripWS($sGraMail, 8)), $CALG_MD5)
    ; lose the left two '0x' chars and convert to lower case
    $md5GraMail = StringLower(StringTrimLeft($md5GraMail, 2))

    ; Display the result.
    MsgBox($MB_SYSTEMMODAL, "", $sGraMail & @CRLF & "md5 " & $md5GraMail, 15)
EndFunc   ;==>GravatarLogin



; example from Help file: /html/functions/InetGet.htm

; Download a file in the background.
; Wait for the download to complete.

Func GetAvatar()
    ; Save the downloaded file to the temporary folder.
    Local $sFilePath = _WinAPI_GetTempFileName(@TempDir)

    ; from http://en.gravatar.com/site/implement/images/
    ; <img src="https://www.gravatar.com/avatar/205e460b479e2e5b48aec07710c08d50" />

    ; Download the file in the background with the selected option of 'force a reload from the remote site.'
    ; the next THREE options are alternatives
    ; Gravatar sample from here http://en.gravatar.com/site/implement/images/
    ; 1
    ;Local $hDownload = InetGet("https://www.gravatar.com/avatar/205e460b479e2e5b48aec07710c08d50", $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)

    ;   the normal code, should show user avatar
    ; 2
    Local $hDownload = InetGet("https://www.gravatar.com/avatar/" & $md5GraMail & "?d=retro", $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)

    ; my email hardcoded, downloads, but does not show avatar
    ; 3
    ;Local $hDownload = InetGet("https://www.gravatar.com/avatar/cac637b47c9fecc8aa1dcdf71e7a4cc8", $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)

    ; Wait for the download to complete by monitoring when the 2nd index value of InetGetInfo returns True.
    Do
        Sleep(250)
    Until InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE)

    ; Retrieve the number of total bytes received and the filesize.
    Local $iBytesSize = InetGetInfo($hDownload, $INET_DOWNLOADREAD)
    Local $iFileSize = FileGetSize($sFilePath)

    ; Close the handle returned by InetGet.
    InetClose($hDownload)

    ; Display details about the total number of bytes read and the filesize.
    MsgBox($MB_SYSTEMMODAL, "", "The total download size: " & $iBytesSize & @CRLF & _
            "The total filesize: " & $iFileSize, 1)

    Local $MyGravatar = @ScriptDir & "\Gravatar.jpg"
    FileCopy($sFilePath, $MyGravatar)


    MsgBox(0, "Now showing!", $MyGravatar, 5)


    ; make gui and show file
    GUICreate("My Gravatar in a GUI " & $MyGravatar, 350, 300, -1, -1, $WS_SIZEBOX + $WS_SYSMENU) ; will create a dialog box that when displayed is centered

    Local $idPic = GUICtrlCreatePic($MyGravatar, 50, 50, 80, 80)

    GUISetState(@SW_SHOW)



    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

        EndSwitch
    WEnd

    ;FileDelete($MyGravatar)
    ;   Delete the file.
    FileDelete($sFilePath)
EndFunc   ;==>GetAvatar

Now, here is the issue.

If I use the example from the Gravatar site, located here:

http://en.gravatar.com/site/implement/images/

Then this code  205e460b479e2e5b48aec07710c08d50  downloads this pic  205e460b479e2e5b48aec07710c08d50 (not me) :)

AND it displays correctly. :)

 

PROBLEM

However, If I download my own Gravatar, I see the image in the @Script folder, BUT IT DOES NOT DISPLAY.  The same with the retro image.  To be clear, this image  Skysnake  downloads, but is not displayed. :(

 

I guess it has something to do with the format of my gravatar. Or that the display funtion GUICtrlCreatePic() does not like my gravatar.

I would be grateful if someone would be willing to test this and may offer a suggestion or two... 

Skysnake

 

Edited by Skysnake

Skysnake

Why is the snake in the sky?

Share this post


Link to post
Share on other sites



#2 ·  Posted

The image above is a png file, GuiCtrlCreatePic doesn't support png.

1 person likes this

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Thank you for the comment.  That may very well be true.  I will check.  However, why does the retro image not display? :( Its also a .PNG :( 

And BTW, except for right clicking in this Forum, how would you detect the format?

I was being naive in thinking Gravatar would convert the uploaded image to bmp/jpg/gif on download...

Thanks for the reply.

Skysnake

Edited by Skysnake

Skysnake

Why is the snake in the sky?

Share this post


Link to post
Share on other sites

#4 ·  Posted

You would need to read the file extension using something like

If StringRight($Filepath, 4) = ".jpg" Then do something..

Alternatively you could use GDIPlus functions which supports png format, see post by UEZ

 

1 person likes this

Share this post


Link to post
Share on other sites

#5 ·  Posted

Thank you kindly. 

Will clean up and post a working script.

Skysnake


Skysnake

Why is the snake in the sky?

Share this post


Link to post
Share on other sites

#6 ·  Posted

Thank you kindly. 

Will clean up and post a working script.

Skysnake


Skysnake

Why is the snake in the sky?

Share this post


Link to post
Share on other sites

#7 ·  Posted

Here is the script that works. PNGs converted to BMP.  BMPs also get converted to BMP with some loss of quality, but that is a matter for a different day.  

Thank you.

Working script:

#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.14.2
    Author:         Skysnake

    Script Function:
    Example to download avatar from Gravatar and display locally

#ce ----------------------------------------------------------------------------

; Script Start
; includes
#include <Crypt.au3>

#include <InetConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <gdiplus.au3>
#include <memory.au3>
#include <staticconstants.au3>


; declare Global vars
Global $md5GraMail = '' ; will store email for Grvatar request request



GravatarLogin()

GetAvatar()

Func GravatarLogin()
    ; get the email required for downloading the Gravatar

    Local $sGraMail = InputBox("Get Gravatar", "What is your email registered with Gravatar?", "someone@somewhere.com", "", -1, -1, 0, 0)

    ; from http://en.gravatar.com/site/implement/hash/
    ; make the hash
    ;  Local $dHash = _Crypt_HashData(GUICtrlRead($g_idInputEdit), $g_iAlgorithm) ; Create a hash of the text entered
    $md5GraMail = _Crypt_HashData(StringLower(StringStripWS($sGraMail, 8)), $CALG_MD5)
    ; lose the left two '0x' chars and convert to lower case
    $md5GraMail = StringLower(StringTrimLeft($md5GraMail, 2))

    ; Display the result.
    MsgBox($MB_SYSTEMMODAL, "", $sGraMail & @CRLF & "md5 " & $md5GraMail, 15)
EndFunc   ;==>GravatarLogin



; example from Help file: /html/functions/InetGet.htm

; Download a file in the background.
; Wait for the download to complete.

Func GetAvatar()
    ; Save the downloaded file to the temporary folder.
    Local $sFilePath = _WinAPI_GetTempFileName(@TempDir)

    ; from http://en.gravatar.com/site/implement/images/
    ; <img src="https://www.gravatar.com/avatar/205e460b479e2e5b48aec07710c08d50" />

    ; Download the file in the background with the selected option of 'force a reload from the remote site.'
    ; the next THREE options are alternatives
    ; Gravatar sample from here http://en.gravatar.com/site/implement/images/
    ; 1
    ;Local $hDownload = InetGet("https://www.gravatar.com/avatar/205e460b479e2e5b48aec07710c08d50", $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)

    ;   the normal code, should show user avatar
    ; 2
    Local $hDownload = InetGet("https://www.gravatar.com/avatar/" & $md5GraMail & "?d=retro", $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)

    ; my email hardcoded, downloads, but does not show avatar
    ; 3
    ;Local $hDownload = InetGet("https://www.gravatar.com/avatar/cac637b47c9fecc8aa1dcdf71e7a4cc8", $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)

    ; Wait for the download to complete by monitoring when the 2nd index value of InetGetInfo returns True.
    Do
        Sleep(250)
    Until InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE)

    ; Retrieve the number of total bytes received and the filesize.
    Local $iBytesSize = InetGetInfo($hDownload, $INET_DOWNLOADREAD)
    Local $iFileSize = FileGetSize($sFilePath)

    ; Close the handle returned by InetGet.
    InetClose($hDownload)

    ; Display details about the total number of bytes read and the filesize.
    MsgBox($MB_SYSTEMMODAL, "", "The total download size: " & $iBytesSize & @CRLF & _
            "The total filesize: " & $iFileSize, 1)

    Local $sMyGravatar = @ScriptDir & "\Gravatar.png"
    FileCopy($sFilePath, $sMyGravatar)

    ConvertGavatarBMP($sMyGravatar)


    MsgBox(0, "Now showing!", "MyGravatar", 5)


    ; make gui and show file
    GUICreate("My Gravatar in a GUI MyGravatar", 350, 300, -1, -1, $WS_SIZEBOX + $WS_SYSMENU) ; will create a dialog box that when displayed is centered

    Local $idPic = GUICtrlCreatePic(@ScriptDir & "\mygravatar.bmp", 50, 50, 80, 80)

    GUISetState(@SW_SHOW)



    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

        EndSwitch
    WEnd

    FileDelete($sMyGravatar)
    FileDelete(@ScriptDir & "\mygravatar.bmp")
    ;   Delete the file.
    FileDelete($sFilePath)
EndFunc   ;==>GetAvatar



Func ConvertGavatarBMP($MyGravatar)
    If Not _GDIPlus_Startup() Or @extended < 6 Then
        MsgBox($MB_SYSTEMMODAL, "ERROR", "GDIPlus.dll v1.1 not available")
        Return
    EndIf

    $sFile = $MyGravatar

    Local $hImage = _GDIPlus_ImageLoadFromFile($sFile)

    Local $iWidth = 600
    Local $iHeight = _GDIPlus_ImageGetHeight($hImage) * 600 / _GDIPlus_ImageGetWidth($hImage)

    ;Local $hGui = GUICreate("GDI+ v1.1 (" & @ScriptName & ")", $iWidth, $iHeight)
    Local $hGui = GUICreate(@ScriptDir & "\mygravatar.bmp", $iWidth, $iHeight)
    Local $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
    GUISetState(@SW_SHOW)

    ;Convert to a 16-color bitmap (4 bits per pixel) using FixedHalftone27 dithering
    Local $tPalette = _GDIPlus_PaletteInitialize(16, $GDIP_PaletteTypeFixedHalftone27, 16, False, $hImage)
    _GDIPlus_BitmapConvertFormat($hImage, $GDIP_PXF04INDEXED, $GDIP_DitherTypeDualSpiral8x8, $GDIP_PaletteTypeFixedHalftone27, $tPalette)

    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage, 0, 0, $iWidth, $iHeight)



    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

    _GDIPlus_ImageSaveToFile($hImage, @ScriptDir & "\mygravatar.bmp")
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_GraphicsDispose($hGraphics)
    _GDIPlus_Shutdown()
EndFunc   ;==>ConvertGavatarBMP

Skysnake


Skysnake

Why is the snake in the sky?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • Skeletor
      By Skeletor
      MS Splash Screens
      The office 2016/17 office suite has made many people turn heads with its functions and especially their splash screen.
      I now present to you, the MS Style Splash Screen. For Rookies, Novices and anyone who wants a ready made splash screen for your gui application.

      You can now download it and also try it out yourself.
      You have three colors to choose from:
      Blue
      Red
      Green
      All three colours are from the famous programs.
      I also included the KODA form to you can have freedom with this splash screen.
      Note: the KODA form does not have the three colours as well as the correct blue. 

      Have fun and enjoy.
      Note:
      I will update the splash to add the automated 3 dots animation at a later stage. 
       
       
    • Skeletor
      By Skeletor
      A gui splash screen. Themed after the famous MS Office Suite.
      Three colours to choose from, Red, Blue and Green.
      You can change the labels to your own application.

      Also bundled with this is the KODA form. So you can open up and see the basic structure of this splash screen.
       
      Splash Screen GUI.zip
    • BlazerV60
      By BlazerV60
      Hello all,
      I've been trying to figure out how to launch Google Chrome in the background (hidden) but it doesn't seem possible. I've tried the following methods:
      ShellExecute("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "", "", "", @SW_HIDE) Also I've tried:
      ShellExecute(@ComSpec, "/c start chrome.exe","","",@SW_HIDE) Lastly I tried:
      RunWait('"'&@ProgramFilesDir&'\Google\Chrome\Application\chrome.exe" --silent-launch',@ScriptDir)  
      But all of them launch my chrome browser without hiding it. Does anyone know a workaround for this or if AutoIT just can't Chrome? 
      Bonus points if you know how to make it launch chrome hidden and make it go to https://www.autoitscript.com
       
      Thank you,
      Brian
    • SteveJM
      By SteveJM
      I have a working program currently driven largely through menu selections. I would like to add a toolbar where most of the tollbar button actions are basically the same as menu items, but quicker to access. I have been wading around in toolbar examples, MSDN pages etc, it's clearly going to be a bit of a slog to get everything right, including tooltips etc. I thought I would start with something simple to prove the principle.
      Using bits from the help file examples I have a small program that successfully displays a toolbar. However, what seemed like the most elegant way to deal with the button commands does not seem to work. My understanding was that a toolbar button fires a WM_COMMAND message, with the command Id set by the second parameter in the call to
      _GUICtrlToolbar_AddButton ( $hWnd, $iID, $iImage)
      so I though it would be a good idea to set this Id to the same value as my menu item Id; then it would run the same task which is what I wanted. This did not work. I am using message loop mode and would like to stick with this because some of my scripts run hardware at the same time as the gui; it is easier if I don't have to worry about code being interrupted with the hardware in an unknown state . So I added a handler for WM_COMMAND, with some cribbed display code to try and see why. The toolbar button defintely fired a WM_COMMAND message and the Id looked the same, so no explanation there.
      I guess the issue is with GUIGetMsg() which may be constructed to ignore all but a limited number of control handles, i.e. those made with the GuiCtrlCreate... commands; this is speculation.
      I would dearly love to find a tidy way to get around this. Having some controls handled in the message loop and some in a WM_COMMAND handler, performing the same task, feels ugly. I would be very grateful for further insight from someone experienced with handling a toolbar. Perhaps I should be trying to fire the menu item. I have attached a code snippet to try and illustrate the issue.
       
       
       
      ToolbarTrial.au3
    • XinYoung
      By XinYoung
      Hello all,
      I've been working on 4 standalone scripts. They each have their own GUI and are now independent .exe's. But instead of having 4 separate icons on my computer, is it possible to put them all together into one .exe?
      What I want is one interface with tabs. Each script's GUI would be on their own respective tab. Is this possible?
      The different scripts don't need to communicate with one another. I just want them all in one .exe.
      I can't find this anywhere... Any help would be greatly appreciated. Thank you!