¿ Tenemos codigo para colocar en un dialogo una imagen cargada desde una url ?
Gracias anticiapadas.
//======================================================================================================
Function AdmImagen(oMySQL, oWnd, oDlg, oImagen, cCodigo, nOption, lSimag )
local lOk, oMenu //, nOption
local hBmp, cFile, lBmp, cRuta
LOCAL lJump := .t.
DEFAULT nOption := 0
DEFAULT lSimag := .f.
cFile := "TMP\bmpfile.xxx"
OpenClipboard( oWnd:hWnd )
IF GetClpData( 2 ) == 0
lJump := .f. //MSGINFO( "La Memoria de Copiado está Vacía...", "Error" )
ENDIF
CloseClipboard()
IF nOption = 0
MENU oMenu POPUP 2007
MENUITEM "Pegar Imagen" ;
RESOURCE "PEGAR1" ACTION (nOption := 1, lSimag := .t.) WHEN lJump
MENUITEM "Eliminar Imagen" ;
RESOURCE "ELIMINAR1" ACTION (nOption := 2)
ENDMENU
ACTIVATE POPUP oMenu AT 85, 580 OF oDlg
EndIf
If nOption = 0
Return(.f.)
EndIF
If nOption = 1
IF lJump
oImagen:LoadFromClipboard( oWnd ) // aquí cargamos la imagen al control del dlg
oImagen:Refresh()
FErase( cFile )
oImagen:SaveImage( cFile, 2, [, nQuality] )
lJump := GrabaImagen(oMySQL, cCodigo, cFile) // aquí metes la imagen a una tabla
If lJump
FErase( cFile )
EndIf
EndIf
EndIf
If nOption = 2 // borrar imagen
lJump := GrabaImagen(oMySQL, cCodigo, "")
oImagen:SETBMP("NOIMAGEN") // cambia la imagen en la visualizacion
oImagen:Refresh()
EndIf
Return(lJump)
function cogeimagen()
local cDir := "http://www.microsoft.com//h/en-us/r/ms_masthead_ltr.gif"
Try
oHttp := CreateObject("winhttp.winhttprequest.5.1")
oHttp:Open("GET", cDir, .f. )
oHttp:Send()
cResp := oHttp:ResponseText()
memowrit("miImagen.txt",cResp )
Catch
MsgStop( "Error" )
Return cResp
End Try
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 46 guests