Edvaldo1361303230 Posted October 25, 2012 Report Share Posted October 25, 2012 Ola Amigos, Estou usando comunição entre dois pcs com os exemplos do sample server.prg e client.prg. A comunicação está Ok porém na transferência de arquivo, o arquivo transferido fica bloqueado com uma mensagem do windows "o arquivo está sendo usado por outro processo" e somente é liberado após fechar o server.exe A transferencia de dados do server para o client funciona perfeitamente porém do client para o server não funciona. Alguem sabe como corrigir isso Transferencia e arquivo: Function SendFile() local cFileName := cGetFile( "*.*", "Selecione um arquivo para enviar pela internete" ) if ! Empty( cFileName ) .and. File( cFileName ) oSocket:SendData( "SENDFILE " + cFileName( cFileName ) ) oSocket:SendFile( cFileName ) MsgInfo( "O Arquivo: "+cFileName+" Foi Enviado com Sucesso!" ) endif return nil Transferencia de dados Funcionando do server para o client: DEFINE BUTTON OF oBar ACTION oClient:SendData( "Essa Mensagem Foi Enviada Pelo Servidor!" ) TOOLTIP "Falar com o cliente" Transferencia de dados não Funciona do client p/o server: DEFINE BUTTON OF oBar ; ACTION oSocket:SendData( "Mensagem Enviada pelo Cliente" ) ; TOOLTIP "Enviar Dados" Obrigado Edvaldo Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted October 25, 2012 Author Report Share Posted October 25, 2012 Ola Amigos, Estou usando comunição entre dois pcs com os exemplos do sample server.prg e client.prg. A comunicação está Ok porém na transferência de arquivo, o arquivo transferido fica bloqueado com uma mensagem do windows "o arquivo está sendo usado por outro processo" e somente é liberado após fechar o server.exe A transferencia de dados do server para o client funciona perfeitamente porém do client para o server não funciona. Alguem sabe como corrigir isso Transferencia e arquivo: Function SendFile() local cFileName := cGetFile( "*.*", "Selecione um arquivo para enviar pela internete" ) if ! Empty( cFileName ) .and. File( cFileName ) oSocket:SendData( "SENDFILE " + cFileName( cFileName ) ) oSocket:SendFile( cFileName ) MsgInfo( "O Arquivo: "+cFileName+" Foi Enviado com Sucesso!" ) endif return nil Transferencia de dados Funcionando do server para o client: DEFINE BUTTON OF oBar ACTION oClient:SendData( "Essa Mensagem Foi Enviada Pelo Servidor!" ) TOOLTIP "Falar com o cliente" Transferencia de dados não Funciona do client p/o server: DEFINE BUTTON OF oBar ; ACTION oSocket:SendData( "Mensagem Enviada pelo Cliente" ) ; TOOLTIP "Enviar Dados" Obrigado Edvaldo Quote Link to comment Share on other sites More sharing options...
kapiaba Posted October 29, 2012 Report Share Posted October 29, 2012 http://forums.fivetechsupport.com/viewtopic.php?f=3&t=20374&p=108177&hilit=SendData#p108177 http://forums.fivetechsupport.com/viewtopic.php?f=7&t=20170&p=106720&hilit=SendData#p106720 João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Editado por - kapiaba on 29/10/2012 11:49:18 Quote Link to comment Share on other sites More sharing options...
Edvaldo1361303230 Posted November 2, 2012 Author Report Share Posted November 2, 2012 Show de bola João, obrigado. Veja se você consegue também o seguinte: Hoje eu já me conecto com outro computador via socket, como eu faço para transformar esta conexão numa unidade de rede, tipo: net use z: \\nome do micro\unidade Edvaldo Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.