wanderlei Cardoso

Olá Marcio, Substitui por este comando: ShowNotifyInfo( GetModalHandle() , .F. , "Servidor OnLine" , NIL, "Tem nova Mensagem" ,"Numero.: 999999999" ) ShowNotifyInfo( GetModalHandle() , .T. , "Servidor OnLine" , NIL, "Tem nova Mensagem" ,"Numero.: 999999999" ) #pragma BEGINDUMP #define _WIN32_IE 0x0500 #define HB_OS_WIN_32_USED #define _WIN32_WINNT 0x0400 #include <shlobj.h> #include <windows.h> #include <commctrl.h> #include "hbapi.h" static void ShowNotifyInfo(HWND hWnd, BOOL bAdd, HICON hIcon, LPSTR szText, LPSTR szInfo, LPSTR szInfoTitle); HB_FUNC ( SHOWNOTIFYINFO ) { ShowNotifyInfo( (HWND) hb_parnl(1), (BOOL) hb_parl(2), (HICON) hb_parnl(3), (LPSTR) hb_parc(4), (LPSTR) hb_parc(5), (LPSTR) hb_parc(6) ); } static void ShowNotifyInfo(HWND hWnd, BOOL bAdd, HICON hIcon, LPSTR szText, LPSTR szInfo, LPSTR szInfoTitle) { NOTIFYICONDATA nid; ZeroMemory( &nid, sizeof(nid) ); nid.cbSize= sizeof(NOTIFYICONDATA); nid.hIcon= hIcon; nid.hWnd= hWnd; nid.uID= 0; nid.uFlags= NIF_INFO | NIF_TIP | NIF_ICON; nid.dwInfoFlags= NIIF_INFO; lstrcpy( nid.szTip, TEXT(szText) ); lstrcpy( nid.szInfo, TEXT(szInfo) ); lstrcpy( nid.szInfoTitle, TEXT(szInfoTitle) ); if(bAdd) Shell_NotifyIcon( NIM_ADD, &nid ); else Shell_NotifyIcon( NIM_DELETE, &nid ); if(hIcon) DestroyIcon( hIcon ); } #pragma ENDDUMP

Um Exemplo simples para saber o numero de linhas de um txt. oTxtFile := TTxtFile():New("D:\Arquivo.txt") MsgINFO( oTxtFile:RecCount(), 'RecCount' ) MsgINFO( oTxtFile:LastRec(), 'LastRec' ) MsgINFO( oTxtFile:nTLines, 'nTLines' )

Olá, o que você está precisando?

Valeu Arthur.

Olá Kleyber, Como eu utilizo isso dentro do programa depois, como faço o redefine?

Olá Pessoal, caso tenham interesse no WebService do Farmácia Popular eu tenho ele 100% em xHarbour.

Olá Genilson, Eu também tenha o webservice do Farmácia Popular em xHarbour com Fivewin, me mande os seus dados para este email cwanderlei@yahoo.com.br para negociarmos a classe.

Olá Theotokos, o socket serve para conectar um ou mais micros como fazemos na conexão com http, só que eu estou criando para fazer um servidor na loja central que irá receber varias solicitações e processar e devolver uma consulta de produtos ou relatórios gerados, eu peguei os exemplos da pasta da Fivewin o sockcki.prg e o sockserv.prg. Alex valeu pela atenção, consegui fazer funcionar bem, deste modelo que vc me passou eu já usava com a lib wvw mas agora estou fazendos com a Fivewin e estou usando a classe do tsocket e não estava funcionando quando o servidor ficava fora do ar, agora consegui resolver colocando para testar o IP do servidor antes de enviar ou de receber para não ficar mais travado esperando resposta do servidor.

Olá Pessoal, estou precisando criar um servidor socket para conexão de duas ou mais lojas para envio e recebimento de solicitações, eu estou usando a classe do TSocket e os exemplos do sockserv e client está funcionando parcialmente mas se o servidor não estiver rodando o client fica travado. como posso resolver isso?

Olá Eduardo, esta extensão é do Interbase use o IBExpert para abrir.

Bom Dia Sergio, no Forum do PcToledo tem os arquivos para download, http://www.pctoledo.com.br/forum/filebase.php?c=0

Olá Pessoal, ai vai um exemplo. /************************************************************************************** Função.: Enviar arquivo XML para Anvisa via WebService Autor..: Wanderlei Cardoso de Oliveira Data...: 15/01/2013 Contrib: Manoel Angeiras **************************************************************************************/ FUNCTION EnviaSNGPC( cFile ) LOCAL cEmail, cSenha,; cString, cString64, cResp *---> Verifica se tem conexão com a internet <---* if !IsInternet() MsgAlert("Sem conexão com a Internet. Verifique...", 'Atenção') return .F. endif cEmail := "seu email" cSenha := "senha do email" *---> Ler o arquivo que foi zipado <---* cString := MemoRead( cFile ) *---> Converte ele na Base64, que é um tipo de cryptografia <---* cString64 := HB_Base64( cString, Len( cString ) ) *---> Gera o Hash ou MD5 mais conhecido <---* cHash := HB_MD5(cString64) *---> ABERTURA DAS FUNCOES PARA WEBSERVICE DO XHARBOUR - OBJETO HTTP <---* try http := CreateObject( "MSXML2.XMLHTTP" ) catch MsgStop("Erro na criação do objeto MSXML2.XMLHTTP : " + Ole2TxtError(), 'Atenção') return .F. end *---> CRIA OBJETO XML <---* try doc := CreateObject( "MSXML2.DOMDocument" ) catch MsgStop("Erro na criacao do objeto MSXML2.DOMDocument : " + Ole2TxtError(), 'Atenção') return .F. end cXml := "" cXml += '<?xml version="1.0" encoding="utf-8" ?>' + CRLF cXml += '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/">' + CRLF cXml += ' <soapenv:Header/>' + CRLF cXml += ' <soapenv:Body>' + CRLF cXml += ' <tem:EnviaArquivoSNGPC>' + CRLF cXml += ' <tem:Email>'+cEmail+'</tem:Email>' + CRLF cXml += ' <tem:Senha>'+cSenha+'</tem:Senha>' + CRLF cXml += ' <tem:Arq>' + cString64 + '</tem:Arq>' + CRLF cXml += ' <tem:HashIdentificacao>' + cHash + '</tem:HashIdentificacao>' + CRLF cXml += ' </tem:EnviaArquivoSNGPC>' + CRLF cXml += ' </soapenv:Body> ' + CRLF cXml += '</soapenv:Envelope>' + CRLF IF cAmbiente_Sngpc *---> ENDERECO HOMOLOGACAO <---* http:Open( "POST", "http://homologacao.anvisa.gov.br/sngpc/webservice/sngpc.asmx?WSDL HTTP/1.1", .F. ) http:SetRequestHeader( "Content-Type" , "text/xml;charset=utf-8" ) http:SetRequestHeader( "SOAPAction" , "http://tempuri.org/EnviaArquivoSNGPC" ) http:SetRequestHeader( "Host" , "homologacao.anvisa.gov.br" ) else *---> ENDERECO PRODUCAO <---* http:Open( "POST", "http://sngpc.anvisa.gov.br/webservice/sngpc.asmx?WSDL HTTP/1.1", .F. ) http:SetRequestHeader( "Content-Type" , "text/xml;charset=utf-8" ) http:SetRequestHeader( "SOAPAction" , "http://tempuri.org/EnviaArquivoSNGPC" ) http:SetRequestHeader( "Host" , "sngpc.anvisa.gov.br" ) endif doc:LoadXML( cXml ) http:send( doc:xml ) *---> Lê a Resposta do envio <---* response := http:responseText oXmlDoc := TXmlDocument():new() oXMlDoc:read( response ) oXmlNode := oXmlDoc:findFirst( "EnviaArquivoSNGPCResult" ) if oXmlNode == Nil MsgStop("Erro no envio do arquivo para ANVISA. Tente outra vez.", 'Atenção') Return .F. elseif cHash $ oXmlNode:cData MsgInfo('Arquivo Transmitido com sucesso!', 'Atenção') else MsgStop(cResp, 'Atenção') RETURN .F. endif RETURN .T.

Olá Anthony, Sou o Wanderlei que estive ai no ano passado para conhecer a empresa, se vc precisar de ajuda com o SNGPC 2.0 o meu já está enviando os arquivos e validando via webservice pode me chamar no Skype.