sistem
Membros-
Posts
561 -
Joined
-
Last visited
-
Days Won
25
Everything posted by sistem
-
everton poderia me enviar: sistem@sistem.net.br []s
-
desconsiderar... esqueci de registrar a dll
-
Amigos alguem usa o windows 10 com o programinha da flexdocs danfe.exe? aqui comigo trava, alguem pode verificar se trabalha no win10 obrigado []s
-
não uso XDevStudio, PellesC mais encontrei esse vídeo no youtube, veja se ajuda
- 16 replies
-
- XdevStudio
- Harbor
-
(and 1 more)
Tagged with:
-
conexao externa com App Inventor + php e MySQL facil e gratis http://puravidaapps.com/mysql.php http://www.newthinktank.com/2014/05/connect-app-inventor-mysql-database/ youtube.com/watch?v=kyXbH6Ik-4I
-
Kapiaba precisa da operadora para encaminha o sms. o modem 3g funciona sem problema, as vezes a operadora bloqueia o chip para envio de sms, tenha em mente a compra d 1 chip "descartavel" com plano de sms ilimitado para esse uso.. faça um controle de envio... tipo em 50 e 50 sms faça uma pausa de pelo menos 1min (o tempo entre as msg eu coloco 7seg) no tempo de eleicoes dah pra ganhar algum dinheiro... obs. irei colocar em dicar o fonte e exe dica para o envio vc abre o soft do modem mais nao conecta dai a porta(COM) vai mostra em telefone e modem no painel de contro(nao precisa conectar) download em dicas
-
tb pode ser usado um modem 3g //-------------------------------------------------------------------------------------------------- Function SMSEnvia(cTel, cMsg, cPort, nBits, cTemp, lMarca, oLbx) Local nHandle, cBuffer, nChar, cSelect, nTotal:=0, nTemp If Len(Alltrim(cPort)) > 4 cPort := "\\.\"+cPort Endif If Len(Alltrim(cTemp)) > 4 nTemp := Val(Left(cTemp,2)) Else nTemp := Val(Left(cTemp,1)) Endif If lMarca nHandle := Init_Port( cPort, nBits, 8, 0, 1, 1024 ) If nHandle <= 0 MsgStop("Erro ao iniciar a comunicacao, porta: "+cPort, "Aviso") Return .f. Endif cTel:="+55"+Alltrim(cTel) OutBufClr(nHandle) OutChr(nHandle, "AT+CMGF=1"+Chr(13) ) SysWait(1) // OutChr(nHandle, "AT+CSCS=GSM"+Chr(13) ) // SysWait(2) OutChr(nHandle, "AT+CMGS="+Chr(34)+cTel+Chr(34)+Chr(13)) SysWait(1) OutChr(nHandle, cMsg+Chr(26)) SysWait(1) nChar := InBufSize( nHandle ) cBuffer := Len(cTel)+Len(cMsg) InChr( nHandle,nChar,@cBuffer ) UnInt_Port(nHandle) MsgWait(Alltrim(StrTran(cBuffer,CRLF," ")), "Aguarde!", nTemp) Else dbSelectArea( "ClieTemp" ) ClieTemp->(DbGotop()) Do While !ClieTemp->(Eof()) cTel:="+55"+Alltrim(ClieTemp->Cel_Clie) If Len(cTel)=13 .and. !ClieTemp->Mar_Clie nHandle := Init_Port( cPort, nBits, 8, 0, 1, 1024 ) If nHandle <= 0 MsgStop("Erro ao iniciar a comunicacao, porta: "+cPort, "Aviso") Return .f. Endif OutBufClr(nHandle) OutChr(nHandle, "AT+CMGF=1"+Chr(13) ) SysWait(1) OutChr(nHandle, "AT+CMGS="+Chr(34)+cTel+Chr(34)+Chr(13)) SysWait(1) OutChr(nHandle, cMsg+Chr(26)) SysWait(1) nChar := InBufSize( nHandle ) cBuffer := Len(cTel)+Len(cMsg) InChr( nHandle,nChar,@cBuffer ) UnInt_Port(nHandle) MsgWait("[MSG Nº: "+Alltrim(Str(nTotal))+"] ("+Alltrim(StrTran(cBuffer,CRLF," "))+")", "Aguarde!", nTemp ) nTotal++ ClieTemp->(BloqReg()) ClieTemp->Mar_Clie := .t. ClieTemp->(DbCommit()) ClieTemp->(DbUnlock()) oLbx:SetFocus() oLbx:Refresh() Endif ClieTemp->(DbSkip()) Enddo If nTotal = 0 ClieTemp->(DbGotop()) Else ClieTemp->(DbSkip(-1)) Endif MsgInfo("Messagens enviadas: "+Alltrim(Str(nTotal)), "Aviso!") oLbx:SetFocus() oLbx:Refresh() Endif Return nil a parte que interessa nHandle := Init_Port( cPort, nBits, 8, 0, 1, 1024 ) If nHandle <= 0 MsgStop("Erro ao iniciar a comunicacao, porta: "+cPort, "Aviso") Return .f. Endif cTel:="+55"+Alltrim(cTel) OutBufClr(nHandle) OutChr(nHandle, "AT+CMGF=1"+Chr(13) ) SysWait(1) // OutChr(nHandle, "AT+CSCS=GSM"+Chr(13) ) // SysWait(2) OutChr(nHandle, "AT+CMGS="+Chr(34)+cTel+Chr(34)+Chr(13)) SysWait(1) OutChr(nHandle, cMsg+Chr(26)) SysWait(1) nChar := InBufSize( nHandle ) cBuffer := Len(cTel)+Len(cMsg) InChr( nHandle,nChar,@cBuffer ) UnInt_Port(nHandle) obs: hbcomm.lib
-
correcao soh apresenta o seguinte erro: _HB_FUN_HB_NUMTOHEX
-
qual versao mais nova? 1502 nao vai ┌────────────────────────────────────────────────────────────────────────────┐ │ FiveWin for xHarbour 15.02 - Feb. 2015 xHarbour development power │▄ │ © FiveTech, 1993-2015 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 │█ └────────────────────────────────────────────────────────────────────────────┘█ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ Compiling... xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106) Copyright 1999-2014, http://www.xharbour.orghttp://www.harbour-project.org/ Compiling 'qrcode.prg' and generating preprocessed output to 'qrcode.ppo'... Generating C source output to 'qrcode.c'... Done. Lines 186, Functions/Procedures 6, pCodes 827 Borland C++ 5.82 for Win32 Copyright © 1993, 2005 Borland qrcode.c: Turbo Incremental Link 5.69 Copyright © 1997-2005 Borland Error: Unresolved external '_HB_FUN_HB_NUMTOHEX' referenced from E:\FWH1502\MULT ISQL\QRCODE.OBJ * Linking errors * E:\FWH1502\multisql>
-
while ! eof() if ! minha_condicao SKIP loop endif . . . * resto do código enddo For n = 1 To 10 if ! minha_condicao n++ else * resto do código endif Next n algo do tipo
-
acho que muitos estao interessado em adquirir o fivetouch irei aguarda a versao final para efetuar o pagamento, acho que a maioria pensa assim. estou confiante que o linhares termine esse projeto em todo caso temos o App Inventor 2 (brincando com Blocks muito dizem que AI2 e coisa para crianca... mais jah vi FTP em AI2 ... integracao com php etc. Tutorial de App Inventor (basico aprendendo gerar .apk .aia etc..) youtube.com/watch?v=W508yjdVqSg exemplo .aia (fonte) http://www.filedropper.com/rockmusic exemplo .apk http://www.filedropper.com/rockmusic_1
-
Ola Valdir, eu usava da mesma maneira que o senhor.... tive problemas com a porta 21 bloqueada ou caso o servidor ftp tiver o maximo de usuarios ou problema no host ftp... dai travava na consulta ftp o sistema. alem dos problemas e como tive meus fontes furtados... tive que alterar a maneira de fazer isto... seria mais ou menos assim TRY oOle := CreateObject( "Microsoft.XMLHTTP" ) oOle:Open( "GET", "http://www.sistem.net.br/licenca/b"+strtran(dtos(Date()),"/","")+".html", .f. ) // ex: bloquear b20150210.html /// aqui nao fica dependedo dos cookies do navegador oOle:Send() cBuf := oOle:ResponseBody CATCH Return nil END nFound0 := at(Alltrim(Empr->Cha_Empr)+".lcn", cBuf) ... ,, , dentro do arquivo HTML teria a(s) chave(s) que vc gostaria de bloquear (como fosse arquivo texto) // no caso seu sistema teria um campo para pôr esse chave se interessar me chame no email suporte@sistem.net,br que passo o procedimento completo para o amigo ftp nao ser bom para esse proposito []s
-
demo FiveTouch : https://bitbucket.org/fivetech/fivetouch-public-repository/downloads http://forums.fivetechsupport.com/viewtopic.php?f=16&t=30287&start=0
-
versao alfa esta a venda http://forums.fivetechsupport.com/viewtopic.php?f=6&t=30255&sid=347d37a1de973aaf336360da61fe3285
-
veja o que o Antonio disse: Richard, If my plan develops ok, before end of year we will have FiveTouch running on Android, iOS (ipad/iphone) and Windows tablets/phones. The Android version will be ready real soon. Exactly the same app running on all of them. Its not magic: its the power of QT, combined with the power of Harbour and the simplicity of FiveWin Android and IOS development is mind breaking for xbase developers, thats why we need a tool like FiveTouch. To really increase our productivity on mobile devices and turn us really competitive on this important market. Daniel Garcia has already joined the FiveTouch development team and he is already working on the iOS version. I am focused on the Android version, and several developers more are joining the project Very soon you will be using this new tool and you will be delighted with its simplicity and power. a versão Android estará pronto em breve e antes do final do ano teremos FiveTouch rodando em iOS (iPad / iPhone) e Windows Phone
-
Matheus Farias esse parametro senha pode ser qualquer senha ou e senha do do usuario windows?
-
acho que nao esta mais funcionando
-
http://windows.microsoft.com/pt-br/windows/preview-iso