FiveTech Software tech support forums

//======================================================================================================
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