russimicro,
[b:3u348weo]I tested but doesn't work[/b:3u348weo]
maybe Your defined vars are different ?
[color=#FF0000:3u348weo]tIPClientHTTP not supported !!![/color:3u348weo]
[quote:3u348weo] IF !FILE("Ammyy5.exe")
cDirSer := cNomSer+"/actualiz"
oUrl := tURL():New(http+cDirSer+"/Ammyy5.rar" )
oClient := tIPClientHTTP():New( oUrl )
oClient:nConnTimeout := nSegEsp
IF oClient:Open( oUrl )
oClient:ReadToFile( cRutDes+"Ammyy5.rar",nil,nil,"no borra chr(13)")
oClient:Close()
ELSE
MYMEN("Error. No fue posible conectarse al servidor "+cNomSer)
return
ENDIF
ENDIF[/quote:3u348weo]
[color=#0000FF:3u348weo]FUNCTION DOWNLOAD()
LOCAL cServer := "http:www.Pflegeplus.com"
LOCAL cDirSer := "/Software/DOWNLOADS"
oUrl := tURL():New( cServer + cDirSer + "/Pflegepl_4.zip" )
oClient := tIPClientHTTP():New( oUrl )
oClient:nConnTimeout := 3
IF oClient:Open( oUrl )
oClient:ReadToFile( "D:\" + "Pflegepl_4.zip", nil, nil, "no borra chr(13)")
oClient:Close()
ELSE
MsgAlert( "not connected" )
ENDIF
RETURN ( NIL )[/color:3u348weo]
any idea ?
best regards
Uwe
↧