Hola a todos,
Segun sus experiencias, que es mejor guardar la imagen, pdf, jgp, word, excell, etc en una tabla en un campo blob o guardar el enlace en un campo texto ?
Gracias,
Salu2, Ariel.
Lautaro wrote:Hola,
... el proceso funciona muy bien. Eso si, nosotros guardamos la imagen a tamaño original y una miniatura, para hacer aun mas rápido el proceso de vista previa.
Saludos,
Lautaro Moreira
nosotros guardamos la imagen a tamaño original y una miniatura
#include 'fivewin.ch'
#define MY_FTP "vmweb"
#define MY_USER "cpit"
#define MY_PASW "xxxxxxx'"
#define BUFFER 2000
STATIC oInternet, oFtp
FUNCTION Main()
LOCAL nOption
IF !Conecta()
RETU NIL
ENDIF
WHILE ( nOption := Alert( "take an option",;
{ "&Envia Fitxer", "&Get Fitxer", "T&hree" },;
"Please, select" ) ) <> 0
DO CASE
CASE nOption == 1 ; EnviaFitxer()
CASE nOption == 2 ; GetFitxer()
ENDCASE
END
RETU NIL
*------------------------
STATIC FUNCTION Conecta()
*------------------------
MsgRun( "Conectant FTP...", "Per favor espera...",;
{ || oInternet := TInternet():New(),;
If( Empty( oInternet:hSession ),;
MsgAlert( "Sessio Internet no disponible!" ),),;
oFTP := TFTP():New( MY_FTP, oInternet, MY_USER, MY_PASW ) } )
IF Empty( oFTP:hFTP )
MsgStop( "No puc conectar al FTP !", "Sistema" )
RETU .F.
ENDIF
RETU .T.
*----------------------------
STATIC FUNCTION EnviaFitxer()
*----------------------------
LOCAl cFile := Upper( cGetFile( '*.*' ) )
IF !File( cFile )
RETU NIL
ENDIF
SendFile( cFile )
MsgInfo( 'Done!' )
RETU NIL
*--------------------------------
STATIC FUNCTION SendFile( cFile )
*--------------------------------
LOCAL hSource
LOCAL oFile
LOCAL cDesti := cFileNoPath( cFile )
LOCAL nBytes
LOCAL cBuffer := Space( BUFFER )
hSource := FOpen( cFile )
oFile = TFtpFile():New( 'dummy/' + cDesti, oFTP )
oFile:OpenWrite()
FSeek( hSource, 0, 0 )
while ( nBytes := FRead( hSource, @cBuffer, BUFFER ) ) > 0
oFile:Write( SubStr( cBuffer, 1, nBytes ) )
SysRefresh()
end
FClose( hSource )
oFile:End()
RETU NIL
*--------------------------
STATIC FUNCTION GetFitxer()
*--------------------------
LOCAL hTarget
LOCAL oFile
LOCAL nBytes
LOCAL cBuffer := Space( BUFFER )
LOCAL cFitxer := 'A002.jpg '
LOCAL cDesti := 'DOWNLOAD/'
IF !MsgGet( 'A TENIR EN COMPTE MAJUSCULES/MINUSCULES', 'Nom', @cFitxer )
RETU NIL
ENDIF
cFitxer := Alltrim( Upper( cFitxer ) )
cDesti := 'DOWNLOAD/' + cFitxer
hTarget = FCreate( cDesti )
oFile = TFtpFile():New( 'dummy/' + cFitxer, oFTP )
oFile:OpenRead()
IF oFile:hFile == 0
Msginfo( 'Fitxer origen no existeix' )
retu nil
ENDIF
while ( nBytes := Len( cBuffer := oFile:Read( BUFFER ) ) ) > 0
FWrite( hTarget, cBuffer, nBytes )
SysRefresh()
end
FClose( hTarget )
oFile:End()
Msginfo( File( cDesti ), 'Fitxer: ' + cDesti )
RETU NIL
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 51 guests