FiveTech Software tech support forums

Maurizio, "SendData" works well ( no more GPF or blocks ) good! :-) "SendFile" the file arrive to the server but remain "access denied" I guess that the server is creating the file. How is it created ? Is it available in a shared folder ...

Antonio, "SendData" works well ( no more GPF or blocks ) . "SendFile" the file arrive to the server but remain "access denied" . A question , when I have 2 PDA and send a message or a file from the server the message arrives only ...

... TRANSACCION O TRANSEFERENCUA strParam6:= "C:\CPSADUAN\nsigad\archivos" // NOMBRE DE ARCHIVO O RUTA DE BANDEJA objCom:Init_t() objCom:SendFile( strParam5, strParam6, @t1, strXML ) i := t1 objCom:Final_t() objCom := Nil //**************************************************************************** ...

... TRANSACCION O TRANSEFERENCUA strParam6:= "C:\CPSADUAN\nsigad\archivos" // NOMBRE DE ARCHIVO O RUTA DE BANDEJA objCom:Init_t() objCom:SendFile( strParam5, strParam6, @t1, strXML ) i := t1 objCom:Final_t() objCom := Nil //**************************************************************************** ...

... end if return function BarixConn(nId,oWnd) local oSocket,b:=.f. oSocket = TSocket():New( 2020 ) oSocket:bConnect = { || iif(SendFile(@oSocket,nId),(oSocket:End(),oWnd:end()),)} oSocket:bClose = { || MsgInfo( "Server has closed!" ) } oSocket:Connect( "192.168.0.200" ...

... origem (SOCKSERV) para o destino (SOCKCLI.PRG)! Exemplo: // Socket server connection sample #include "FiveWin.ch" #define ST_COMMAND 1 #define ST_SENDFILE 2 #define FILE_BLOCK 8000 static oWnd, oSocket, oClient //------------------------------------------------------------------------// function ...

... ) + CRLF + ; "Content-Disposition: inline; " + ; // LKM was attachment 'filename="' + cFileNoPath( ::aFiles[ nI ] ) + '"' + CRLF + CRLF ) oSocket:SendFile( ::aFiles[ nI ],, ::nDelay ) Else oSocket:SendData( CRLF + "--NextPart" + CRLF + ; "Content-Type: " + DocType( cExt ) + ; 'name="' + ::aFiles[ ...

Here is the problem. When you create the temporary file, it is local, but when you use oSocket:SendFile, it uses the default path. Here is the solution. Make this change in your code: Static Function TmpFile() Local cTmpDir := GetEnv( "TEMP" ) + "\" // LK Mar/26/2008 added ...

... the data entered. How to do this using the example below? // Socket server connection sample #include "FiveWin.ch" #define ST_COMMAND 1 #define ST_SENDFILE 2 #define FILE_BLOCK 8000 static oWnd, oSocket, oClient //------------------------------------------------------------------------// function ...

... na porta ou receber os dados digitados no teclado? // Socket server connection sample #include "FiveWin.ch" #define ST_COMMAND 1 #define ST_SENDFILE 2 #define FILE_BLOCK 8000 static oWnd, oSocket, oClient //------------------------------------------------------------------------// function ...

Antonio,
The received file added some connection msgs at the file bof and eof, so the file gets unuseable.
Bof as: 04/16/08 15:33:44: 17 SENDFILE MY.EXE
04/16/08 15:33:44: 8192 MZP
Eof as :04/16/08 15:33:46: writting...
Best Regrads!
Shuming Wang

Hola:
Resuelto el problema. SendFile de TSOCKET.PRG no veía el fichero temporal que se genera con TmpFile(). Le he puesto una ruta fija y todo funciona bien recibiendo el fichero con tamaño.

Saludos.

Ricardo Patón

... cFTPDir := cFTPDir+"/" end FtpInit(@oInt,@oFtp,cFTPServer,cFTPUser,cFTPPwd) //hMon := fCreate("info.txt") hmon:="ftp.txt" if oFtp:hFtp > 0 SendFile(cFTPDir,cFile,oFtp,hMon,oInt) else //msginfo("HAY PROBLEMAS EN SU CONEXIÒN A INTERNET, DATOS NO PUDIERON SER ENVIADOS","IMPORTANTE") end oInt:End() ...

... puede cambiar absolutamente nada del contenido, ni siquiera un espacio. Lo que he estado observando es que al parecer las funciones FMIMEENC() y ::SendFile() se estan comiendo parte de mi mensaje. He intentado usar la funcion del maestro Luis Krause, pero tb marca el mismo error, asi es que presumo ...

... TOOLTIP "Connect" DEFINE BUTTON OF oBar ; ACTION oSocket:SendData( "MSG This is a test" ) ; TOOLTIP "Send data" DEFINE BUTTON OF oBar ; ACTION SendFile() TOOLTIP "Send file" DEFINE BUTTON OF oBar ; ACTION SendDb() TOOLTIP "Send Db" ACTIVATE WINDOW oWnd return nil //***************************************************** ...