FiveTech Software tech support forums

Hello,

What I used It worked oSocket:SendFile()

... incluidos con mod_harbour para enviar un fichero y luego salvarlo: https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/sendfile.prg https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/upload.prg Dear Antonio, please can you help me with the ...

Dear Antonio,

many thanks for your kind attention. I sent the file to you with email.
I am looking forward very much to your answer ... your sendfile-sample is so nice and slim and I already learned so much from it.
Thank you again

and kind regards
Ruth

... incluidos con mod_harbour para enviar un fichero y luego salvarlo: https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/sendfile.prg https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/upload.prg Dear Antonio, please can you help me with the ...

César,

Estos son los ejemplos incluidos con mod_harbour para enviar un fichero y luego salvarlo:

https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/sendfile.prg

https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/upload.prg

Cesar, Maybe you can take a look at sendfile from Charly's TWeb samples. This code works. Best regards, Otto http://forums.fivetechsupport.com/viewtopic.php?f=45&t=39667&p=236656&hilit=upload.prg&sid=f4158e8f5f5942f281e5d5e57c0e3d6c&sid=8d4137fa35fdb6bdeb6bc0645f02f015#p236656

Hello friends,
Now I have taken the examples:
button-upload.prg
srv_upload.prg

from TWeb.
I do not include the entire TWeb, only the functions that are actually used.

Hello friends,
I tried these samples.
But the uploaded JPG file is not readable.
Is this example working on JPG-files?
Best regards,
Otto

... dispatch PROPERTYGET int SSRPin() STDCALL dispatch FUNC VARIANT_BOOL SendCMDMsg( [in] int, [in] int, [in] int ) STDCALL dispatch FUNC VARIANT_BOOL SendFile( [in] int, [in] BSTR ) STDCALL dispatch FUNC VARIANT_BOOL SetLanguageByID( [in] int, [in] int, [in] BSTR ) STDCALL dispatch FUNC VARIANT_BOOL ...

Yes, http can be used too

Please review mod_harbour\samples\sendfile.prg

... continuacion del AddRequest() y aparentemente soluciona el problema, es como si el cliente estuviera enviando la data en paquetes ( como hace con sendfile() ), pero como se reciben cadenas de distintos clientes simultaneamente he tenido que implementar la TCtrlSocket para ir guardando la data ...

... de unos 3000 bytes y cuando lo hago el servidor recibe una cadena cortada , como se puede hacer para que llegue en su totalidad sin tener que usar SendFile() ? Muchas gracias por la ayuda que puedan brindarme

... <command3> <command4> <command5> EXIT or alternatively run telnet passing a script as a parameter as this sample in ftp ftp -s:sendfile.ftp sendfile.ftp open xxx.xxx.xxx.xxx admin admin <command1> <command2> <command3> <command4> <command5> BYE ...

... BUTTON oBtn2 PROMPT "SendData" ; ACTION oSocket:SendData( "MSG This is a test" ) SIZE 80, 20 @ 4, 2 BUTTON oBtn3 PROMPT "SendFile" ; ACTION SendFile() SIZE 80, 20 @ 5, 2 BUTTON oBtn4 PROMPT "HostName" ; ACTION MsgInfo( GetHostName() ) SIZE 80, 20 @ 7, 2 ...

Antonio,

The client may need to open the file in shared mode. Have you checked this ?

Yes, I use

MemoWrit( CurDir() + "\test.txt", "This is a file test" )
oSocket:SendData( "SENDFILE test.txt" )

Maurizio