gibaf Posted October 17, 2011 Report Share Posted October 17, 2011 ola a todos !!! como fazer pra saber se a estacao esta conectado com o servidor por TPC/IP ? Esta sendo usada a classe INet do xHarbour. Isso no caso ocorreu algo q interrompeu a rede. desde ja agradeco: MUITO OBRIGADO !!! Gilberto Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Editado por - gibaf on 17/10/2011 17:10:00 Quote Link to comment Share on other sites More sharing options...
gibaf Posted October 17, 2011 Author Report Share Posted October 17, 2011 ola a todos !!! como fazer pra saber se a estacao esta conectado com o servidor por TPC/IP ? Esta sendo usada a classe INet do xHarbour. Isso no caso ocorreu algo q interrompeu a rede. desde ja agradeco: MUITO OBRIGADO !!! Gilberto Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Editado por - gibaf on 17/10/2011 17:10:00 Quote Link to comment Share on other sites More sharing options...
leandroptu Posted October 18, 2011 Report Share Posted October 18, 2011 Giba, eu fiz um tratamento deste da seguinte forma, tento criar um arquivo com o MemoWrit() no diretório do servidor, se caso eu não conseguir eu considero que o mapeamento com o servidor não está ativo, ai eu mando um net use s: \\servidor\pasta e depois refaço o teste acima. Ver se te ajudar desta forma comigo funcionar 100 % Fivewin 8.12 + XHarbour Build 1.1.0 + WorkShop + vLib + SqlLib + MySQL 5.0.27 + xDev Studio + FWPPC E-mail: leandrolopes@success.inf.br Msn: leandroptu@ada.com.br Paracatu/MG Quote Link to comment Share on other sites More sharing options...
emotta Posted October 18, 2011 Report Share Posted October 18, 2011 Para saber se caiu existem duas situações, ou voce está enviando bytes ou está aguardando. Para cada uma voce tem que verificar: Se estiver enviando: While (nBytes := InetSendAll( sDestino, cStrEnvia)) <=0 If nBytes < 0 ? "caiu a conexao" Quit EndIf EndDo Se estiver esperando alguma coisa, no while da espera coloque: If (InetErrorCode( sServer ) # 0 .and. InetErrorCode( sClient ) # 0) ? "caiu" quit Else // aqui coloque o bloco de codigo para ler EndIf Uso assim que da certo aqui. Abraço, citação:ola a todos !!! como fazer pra saber se a estacao esta conectado com o servidor por TPC/IP ? Esta sendo usada a classe INet do xHarbour. Isso no caso ocorreu algo q interrompeu a rede. desde ja agradeco: MUITO OBRIGADO !!! Gilberto Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Editado por - gibaf on 17/10/2011 17:10:00 id=quote>id=quote>Eduardo Motta emotta@gmail.com.br FWH 9.09 (original) - xHARBOUR 1.2.1 (comercial e original) - SQLRDD Editado por - emotta on 18/10/2011 15:07:16 Editado por - emotta on 18/10/2011 15:08:59 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.