Search the Community

Showing results for tags 'mobile'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Windev Desktop, Mobile, Web
    • Windev Desktop
    • Windev Mobile
    • Webdev
    • Bugs
  • Banco de Dados
    • HFSQL
    • PostgreSQL
    • MySQL, MariaDB, Outros
  • Vendendo Seu Peixe
    • Hire a Professional to solve your Demand!
    • Cursos
    • Aplicativos
  • Tips and Tricks
    • Tips and Tricks
    • Fivewin / xHb / Harbor migration to Windev

Categories

  • Files

Calendars

  • Community Calendar

Categories

  • Articles

Found 8 results

  1. Saudações. Para alguns testes de conectividade, quero criar uma janela de debug com a função ping, todavia ela não funciona em mobile 23. Alguém conhece alguma alternativa simples?
  2. Segue dica extraída a partir do link "O q tenho feito para minha demanda/necessidades é adicionar 2 opções no menu que são: "Exportar Banco de Dados" e "Importar Bacno de Dados". Segue código: // Exportar Dados // COMPILE IF Configuration <> "iOS application" IF YesNo("Deseja exportar o banco de dados?") = Yes THEN sSource is string = fDataDir() + "/*.*" sDestination is string = SysDirExternalStorage(1, ssePublicDownload) Info(sSource +" para "+ sDestination) IF fCopyFile(sSource,sDestination,frConfirm) = False THEN Error(ErrorInfo()) ELSE Info("Copiado com sucesso!") END END // Para Importar // COMPILE IF Configuration <> "iOS application" IF YesNo("Deseja importar o backup do banco de dados salvo no aparelho (pasta downloads) ?") = Yes THEN sSource is string = SysDirExternalStorage(1, ssePublicDownload) + "/bplog.fic" sDestination is string = fDataDir() IF fFileExist(sSource) = True THEN IF fCopyFile(sSource,sDestination,frConfirm) = False THEN Error(ErrorInfo()) ELSE Info("bplog.fic restaurado com sucesso") END sSource = SysDirExternalStorage(1, ssePublicDownload) + "/bplog.ndx" IF fCopyFile(sSource,sDestination,frConfirm) = False THEN Error(ErrorInfo()) ELSE Info("bplog.ndx restaurado com sucesso") END ELSE Info("Arquivos não encontrados. Verifique se estão armazenados corretamente na pasta.") END END Ai seria fazer os ajustes conforme sua demanda. Autor: Geoff
  3. Atualmente o controle de mapas no Windev tem 2 tipos de visualização Satélite e Normal, não possuindo o modo STREETVIEW. Para tanto se faz necessário executar um código HTML, até aki tudo bem pq o Windev Mobile possui o controle HTML q pode ser inserido no aplicativo, porém se este controle possui JAVASCRIPT precisa q marque um checkbox no description do controle para permitir seu funcionamento. Compartilhando solução do amigo @tsilva q gentilmente cedeu aki pra comunidade. Segue comentários e código do @tsilva // Nesse caso que eu estou usando, estou consumindo um webservice a cada 10 segundos com uma procedure e atualizando o resultado na tela Esse código aki q precisou habilitar o Checkbox do print acima no controle HTML // Procedure que consome o webservice PROCEDURE GetPositions() //criando variaveis necesarias para o controle mapa //-----------------------//---------------------- MyMarker is Marker MyPosition is geoPosition oRequest is httpRequest oResponse is httpResponse vVariantjson is Variant // comeca o consumo do webservice //------------------//------------------------------------ oRequest..URL = gsSlink+"/api/positions" oRequest..User = sEmail oRequest..Password = sPass oRequest..Method = httpGet oRequest..ContentType = "application/json" oResponse = RESTSend(oRequest) // Declarando uma variavel string para receber o valor da string inicial e as posicoes Lat+Long sGsmaphtml is string // verifico o recebimento do webservice si esta ok IF oResponse.StatusCode = "200" THEN // transformo o json recebido em uma variant para trabalhar com o resultado vVariantjson = JSONToVariant(oResponse.Content) //apago todos os markers do mapa MapDeleteAll(MAP_SinNombre1) // aqui vou fazer um for na variante para tratar o resultado FOR ALL srVarVariante OF vVariantjson // como e um for para atualizar em tempo real,o street view limpo as variaveis strings gsStreetlat = "" gsStreetLon = "" sGsmaphtml = "" //verifico se valores e de um carro que quero bloquear IF srVarVariante.deviceId = gnCarroBloqueo THEN // comeco a pegar os valores do webservice e guardar en variaveis locais MyPosition..Latitude = srVarVariante.latitude MyPosition..Longitude = srVarVariante.longitude //essas dias variavels sao que vou usar no street view gsStreetlat = srVarVariante.latitude gsStreetLon = srVarVariante.longitude // monto a string para o controle html sGsmaphtml = StringBuild(gsStreetView,gsStreetlat,gsStreetLon) // daqui para baixo sao coisas simples e comuns para trabalhar com mapas markerimg is Image = "marker_bus_online.png" markerimg..Height = 16 markerimg..Width = 16 Velocidade is real = srVarVariante.speed * 1.852 ProgBarLCD = Velocidade ProgBarLCD..Caption = "Velocidad2" ProgBarLCD..Visible = True MyMarker..Image = "carro2.png" MyMarker..Position = MyPosition MyMarker..Name = WIN_Devices..Title // MyMarker..Description = sNamedevice WIN_Devices..Title = Velocidade+" Km/h "+gsNombreVeiculo MapAddMarker(MAP_SinNombre1, MyMarker) MAP_SinNombre1.DisplayPosition(MyPosition) MAP_SinNombre1..Zoom = gnMapZoom //aqui passo a string para o controle mapa HTM_StreetView = sGsmaphtml END END END Veja o resultado, atualizando de 10 em 10s em tempo real https://www.dropbox.com/s/xq4h5z0iq3zo4yo/IMG_8681.MOV?dl=0 Abaixo novamente o Checkbox q precisa marcar para funcionar o JAVASCRIPT.
  4. Pessoal gostaria de obter o mesmo efeito do código abaixo (extraido do manual) q ao pesquisar uma string retorna a table com todas as ocorrências, tipo filtra os dados, mas em um Looper, alguém saberia como? // Lista todas as ocorrências do valor pesquisado Result1 is int Result1 = TableSeek(COL_ColumnName, "SoughtValue", searchExactMatch) WHILE Result1 <> -1 Result1 = TableSeek(COL_ColumnName, "SoughtValue", searchExactMatch, Result1 + 1) END Fiz via Query pesquisa letra a letra fica lenta, então teria q ser outra alternativa pra ter o mesmo resultado da table no looper.
  5. Pessoal, como faço para caso em uma string tenha caracteres q não sejam numéricos retorne true? Exemplo de string 568f2a7cfa4cb0a5 Se eu usar IsNumeric retorna TRUE e esta errado. Pensei em fazer com expressões regulares, tentei da seguinte forma mas não deu certo... IF MatchRegularExpression(EDT_ID,"[a-z]+[A-Z]" ) THEN // aki a ideia era se na string tiver letras minusculas ou maiusculas retorna True ... ELSE // só tem numeros ... END
  6. Olá, seguinte, suponhamos q vc tem uma aplicação comercial ou qualquer outro tipo, e queira compartilhar um PDF gerado pela tua aplicação ou uma imagem via outros aplicativos q o usuário tenha instalado no celular, seja Whatsapp, Twitter, Telegram, Skype etc... utilize a função em JAVA abaixo... import android.content.*; import android.R.string; import android.net.Uri ; import java.io.File ; public static void CompartilharViaApps(String path, String text, String titulo) { File file=new File(path); path=file.getPath(); Uri bmpUri = Uri.parse("file://"+path); Intent sendIntent = new Intent(); sendIntent.setAction(Intent.ACTION_SEND); sendIntent.setFlags(Intent.FLAG_ACTIVITY_NEW_TASK); sendIntent.putExtra(Intent.EXTRA_STREAM, bmpUri); sendIntent.putExtra(Intent.EXTRA_TEXT, text); sendIntent.setType("image/png"); Intent intent = Intent.createChooser(sendIntent, titulo); intent.setFlags(Intent.FLAG_ACTIVITY_NEW_TASK); getApplicationContext().startActivity(intent); } Para usar, gere o PDF ou capture a imagem via Album Picker ou outra maneira e passe para função da seguinte forma: CompartilharViaApps( sArquivo, "Segue Pedido", "TituloOpcional")
  7. Pessoal seguinte, tem a SIPVisible(True/False) q faz isso, porém não esta funcionando. Ai conforme orientação do amigo Wagner usei uma função em Java para ver se tinha um efeito melhor, tb não resolveu Mas se eu coloco um Info("Qualquer Coisa") não aparece o teclado... Muito estranho ou estou esquecendo de algo... Vamos lá, vou fornecer mais detalhes, tenho como FIRST Window uma janela de nome WIN_Login q depois chama a Win_Menu Tenho o initialization da win_login... e depois tenho o END OF Initialization da Win_Login... aki tenho o seguinte código... SWITCH gnPlane ... ... CASE CST_TAL: OpenMobileWindow(Win_Menu) ... ... END ... // SipVisible(False) // Função nativa WLanguage HideTeclado() // função em JAVA Tentei colocar na END OF Initialization da Win_Menu tb o código pra fechar o teclado e não resolve Agora olha q estranho... se no lugar ali do SIPVisible ou HideTeclado eu colocar um INFO("Qualquer Coisa") não aparece o teclado depois.
  8. Novos tópicos CheckOut Pagseguro (não transparente) Checkout Cielo (não transparente) Verificação de Identidade Reconhecimento Facial por Foto OCR reconhecimento de uma foto Com Textos ou Placa de Carro e converter em texto para gravar Como usar o Leitor Biométrico URU4500 no Windev GPS e Itinerários nos MAPAS, como trabalhar com coordenadas marcando pontos fixos ou variáveis, e atualizar isso automaticamente. (UBER) Trabalhar com IMAGENS de video acessando as imagens em câmeras IP. Vídeo Conferencia Como Configurar o WAS no Windows Server e o FTP no Windows Server para Deploy de WebService do Windev WhatsAPP po API (Não Oficial) com Exemplos, Receber Mensagens para Fazer ROBOT pelo Whatsapp, Enviar Mensagens as políticas de USO é as do Whatsapp, gravar todas as mensagens enviadas e recebidas pela API. Os Cursos seguirão a mesma metodologia, ficarão disponíveis por 7 dias para Donwload no Youtube, e depois add Eterno para os usuários do Curso por um Email Gmail. Reuniões de tira duvidas NÃO SERÃO GRAVADAS E DISPONIBILIZADAS, porem podem ser gravadas por qualquer usuário sem problema e livre de direitos autorais. (OU SEJA, IREI GRAVAR MAS NÃO ME RESPONSABILIZO) Duvidas que estejam alheios aos tópicos da reunião serão respondidas pelos participantes, não serão responsabilidade de nossa parte em exclarecer. Para quem aderir ao MODULO II, terá direito de esclarecer duvidas de qualquer tópico do MODULO I até 15 dias apos o final do MODULO II, para os que não adquirirem o MODULO II, somente poderão tirar suas duvidas até a ultima reunião dia 9 de NOVEMBRO. Curso 400 Reais, podendo dividir em 3x (440) ou em 10x (496) no cartão assim como o anterior. Maiores informações via Skype: wagner.poker