sistem
-
Posts
561 -
Joined
-
Last visited
-
Days Won
25
Everything posted by sistem
-
Indicar no mapa, os endereços do Ponto A ao Ponto B
sistem replied to marcioe's topic in Programação
veja o topico 1+ google, ultimo post ...talvez resolva -
passei o link no inicio do post, que faz isto: Function GOOGLE_MAPA_DIST() Local cHtml:="", oOle If !IsInternet() Msgalert("não conectado a internet.", "Aviso!") Return nil Endif // cHtml := WebConnect():New() // cHtml := cHtml:Open( "http://www.testeeeeeeee.com/gmapdist.html" ) // arquivo na internet cHtml := MemoRead("e:\gmapdist.html") // arquivo no computador local unidade E: como exemplo Ferase("e:\tempgmapdist.html") TRY oOle:= CreateObject("InternetExplorer.Application") CATCH TRY oOle:= CreateObject("InternetExplorer.Application") CATCH oError MsgAlert( "Erro! Internet Explorer não abriu. [" + Ole2TxtError()+ "]" + oError:description ) Return nil END END oOle:Visible := .t. oOle:ToolBar := .f. oOle:StatusBar := .t. oOle:MenuBar := .f. cHtml := StrTran( cHtml, "ORIGEM", Alltrim(Empr->End_Empr)+", "+Alltrim(Empr->Nmr_Empr)+", "+Alltrim(Empr->Cid_Empr)+" - "+Empr->Est_Empr) cHtml := StrTran( cHtml, "DESTINO", Alltrim(Clie->End_Clie)+", "+Alltrim(Clie->Nmr_Clie)+" "+Alltrim(Clie->Cid_Clie)+" - "+Clie->Est_Clie) MemoWrit("e:\tempgmapdist.html", chtml) oOle:Navigate2("e:\tempgmapdist.html") hWnd:=oOle:hWnd ShowWindow(hWnd, 3 ) //SW_MAXIMIZE=3 SW_NORMAL=1 SW_MINIMIZE=6 BringWindowToTop(hWnd) oOle := nil Return nil o conteudo arquivo gmapdist.html é : <html><head><title>Mapa Distancia</title> <script type='text/javascript' src='http://maps.google.com/maps/api/js?v=3.1&sensor=false&language=pt-BR'></script> <script type='text/javascript'> var map, geocoder; var mapDisplay, directionsService; function initialize() { var myOptions = {zoom: 15,mapTypeId: google.maps.MapTypeId.ROADMAP}; map = new google.maps.Map(document.getElementById('map_canvas'), myOptions); geocoder = new google.maps.Geocoder(); var enderDe = "ORIGEM"; var enderAte = "DESTINO"; geocoder.geocode( { 'address': enderAte, 'region' : 'BR'},trataLocs); initializeDirections (); calcRota (enderDe, enderAte); } function initializeDirections () { directionsService = new google.maps.DirectionsService(); mapDisplay = new google.maps.DirectionsRenderer(); mapDisplay.setMap(map); mapDisplay.setPanel(document.getElementById("panel")) } function calcRota(endDe, endPara) { var request = { origin:endDe, destination:endPara, travelMode: google.maps.DirectionsTravelMode.DRIVING }; directionsService.route(request, function(response, status) { if (status == google.maps.DirectionsStatus.OK) { mapDisplay.setDirections(response) } }) } function trataLocs (results, status) { var elem = document.getElementById('msg'); if (status == google.maps.GeocoderStatus.OK) { map.setCenter(results[0].geometry.location); var marker = new google.maps.Marker({ map: map, position: results[0].geometry.location }); if (results.length > 1) { var i, txt = '<select style="font-family:Verdana;font-size:8pt;width=550px;" onchange="mostraEnd(this.options[this.selectedIndex].text);">'; elem.innerHTML = 'O endereço exato não foi localizado - há ' + results.length.toString() + ' resultados aproximados.<br />'; for (i = 0; i < results.length; i++) { txt = txt + '<option value="' + i.toString() + '"'; if (i == 0) txt = txt + ' selected="selected"'; txt = txt + '>' + results[i].formatted_address + '</option>'; } txt = txt + '</select>' elem.innerHTML = elem.innerHTML + txt; } } else elem.innerHTML = 'Erro no tratamento do endereço :<br /><b>' + status + '</b>'; } </script> </head> <body onload='initialize();' style='font-family:Verdana;font-size:8pt;margin:5px 0 5px 0;'> <center> <div id='map_canvas' style='width:800px;height:450px'></div> <div id='panel' style='width:550px;height:450px'></div> </center> </html> o resultado é: como o topic ta com varios exemplos nao sei se é isto o pretendido
-
Indicar no mapa, os endereços do Ponto A ao Ponto B
sistem replied to marcioe's topic in Programação
-
MYRUN("tasklist > c:\lista.txt") Pstring( MemoRead("c:\lista.txt"), "calc.exe") FUNCTION Pstring( cString, cpesquisa ) Local nPos, nTamArq:=Len(cpesquisa) nPos := AT( cpesquisa, cString ) ? subs(cString,nPos,nTamArq) If cpesquisa = subs(cString,nPos,nTamArq) MYRUN( "TASKKILL /IM "+cpesquisa ) // serviço em execução e matando o processo Endif Return nil Function MYRUN( cComando ) local oShell, Ret oShell := CreateObject( "WScript.Shell" ) Ret := oShell:Run( "%comspec% /c " + cComando, 0, .T. ) oShell := NIL Return If( Ret=0, .t., .f. )
-
O Ministério da Justiça pode ate solicitar a retirada do domínio, acho dificil a retirada. veja o caso do thepiratebay.se o governo americano tenta retirar mais não consegue.. *soh um comentario
-
não será necessário http://forums.fivetechsupport.com/viewtopic.php?f=6&t=33304&sid=260c98492f46db200902bf7bfd34b558 FWH MySQL/MariaDB soporte nativo docs
-
http://tudosobretodos.se/ site nao abre Não é possível acessar esse site tudosobretodos.se demorou muito para responder. Pesquise tudo sobre todos se no Google ERR_CONNECTION_TIMED_OUT
-
Ola tenta remover o servico e depois instalar novamente (como administrador): mysql\bin\mysqld --remove NomeServico depois instalar o servico novamente: \mysql\bin\mysqld --install NomeServico --defaults-file=\mysql\my.ini e se quiser liberar a porta para acesso externo; netsh advfirewall firewall add rule name="NomeServico" action=allow protocol=TCP dir=in localport=3306 reinicia o computador, e ver se o serviço inicia soh se nao der certo veja os link: http://www.devmedia.com.br/forum/meu-servico-nao-starta-no-mysql/421127 http://www.scriptbrasil.com.br/forum/topic/170818-serviço-mysql-não-starta/
-
Ola crisvan veja da segunte maneira: (testado com fwh1608) oBrw:bKeyDown := {|nKey| BrwKey(nKey, oBrw) } ... .. Static Function BrwKey( nKey, oBrw ) If nKey == VK_DELETE DelRow(oBrw) Endif Return nil Static function DelRow( oBrw ) If oBrw:nLen > 0 ADel( oBrw:aArrayData, oBrw:nArrayAt,.T. ) oBrw:Refresh() Endif oBrw:SetFocus() erro do problema NTDLL.DLL... ver link abaixo, talvez ajude https://answers.microsoft.com/pt-br/ie/forum/ie8-windows_other/explorer-trava/201bd7b1-1f4f-e011-8dfc-68b599b31bf5 []s
-
não acho que seja possível talvez um bitmap composto *ideia
-
cFile := cGetFile( "Todos xml 55 Arquivos| ????????????????????55??????????????????????-nfe.xml", "Selecione um arquivo", 4, "E:\siav\dir1\remessa\protocolos" )
-
Amigo Jorge Poderia disponibilizar em algum host obrigado []s
-
__hrbDo( oScript,aPar[1],aPar[2],aPar[3],aPar[4],aPar[5],aPar[6],aPar[7],aPar[8],aPar[9] ) // para que serve essa linha?
-
o navegador chega abrir a pagina? oIE:Visible := .T., veja se esta aparecendo alguma msg no rodape do browse remova -> While oIE:Busy e aumenta o tempo do syswait(.9) pra ver aqui funcionou fwh1603 win10 em todo caso alguem vai resolver sua duvida ...ririri
-
Ola para usar o programa padrao: eX: start www.google.com // vai abrir o navegador padrao start c:\FWH\bitmaps\16array.bmp // vai abrir o programa padrao de bitmap agora se quiser imprimir uma pagina web sem exibila e escolher a impressora tente assim Function teste123() Local oIE oIE:=TOleAuto():New( "InternetExplorer.Application" ) oIE:Visible := .f. // aqui nao mmostra o navegador oIE:Navigate("google.com.br") While oIE:Busy syswait(.5) // aqui da um time para montar a pagina web End oIE:ExecWB(6,0) // aqui imprime pedindo a imprssora Return nil
-
Emotta veja o BRy Signer []s
-
Ola nao seria melhor usar um gerenciador de banco de dados ao invés de um RDD? com mysql: SELECT * FROM a_tabela INTO OUTFILE 'teste.csv' FIELDS TERMINATED BY ',' ENCLOSED BY '"' LINES TERMINATED BY '\n'; dai eh pegar o CSV gerado e add al DBF espero ter ajudado
-
deve ter uma instalacao incompleta do service pack do WinXP tente atualizar o winxp obs: existe WinXp 64 sim
-
dbSeek( DTOS(CTOD("10/01/2014")) ) DTOS() Sintaxe DTOS( <expressão data> ) Propósito Converte uma data em uma cadeia de caracteres no formato “aaaammdd”. Argumentos < expressão data > Define a data que será convertida para uma cadeia de oito caracteres no formato “aaaammdd”. Utilização Essa função é principalmente utilizada na formação de índices nas quais seja necessário compor uma expressão caracter com uma expressão data, classificando-se o arquivo de dados por ordem cronológica e caracter simultaneamente. A data será transformada em uma cadeia de oito caracteres no formato “aaaammdd” (ano, mês, dia), permitindo a classificação cronológica e a sua composição com cadeias de caracteres. Quando a expressão data resultar numa data vazia, a função DTOS() retornará uma cadeia de caracteres com oitos espaços em branco. Exemplos LOCAL dData := CTOD(“28/05/12”) MsgAlert( DTOS(dData) ) // Resulta “20120528” Neste exemplo, indexaremos um arquivo de dados por um campo data e por um campo caracter. O campo A1_DATA é a data de cadastramento do cliente e o campo A1_NOME é o nome do cliente. Esse índice será composto da seguinte forma: A1_FILIAL + DTOS(A1_DATA) + A1_NOME Dessa forma, o arquivo estará classificado cronologicamente, por data de cadastramento, e em seguida por ordem alfabética do nome do cliente.
-
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=32657&start=0
-
http://stackoverflow.com/questions/28929516/c-builder-xe7-lme288-error http://qc.embarcadero.com/wc/qcmain.aspx?d=102099
-
Ola kapiaba funciona com o hotmail(outlook)?
-
aokisantos acho que sim https://gallery.technet.microsoft.com/scriptcenter/3a416e46-a9b2-4bcd-9d1a-0f84fd209d86
-
bitsadmin nao eh presente no winXP eh lento no win10 (onde testei) o exemplo abaixo eh super rapido, usando o Adodb.Stream junto com XMLHTTP (testado no win10) fontes: http://stackoverflow.com/questions/2973136/download-a-file-with-vbs http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=16791 MsgRun( "Aguarde o download...", "espere", { || DowlFile() } ) Function DowlFile() oXMLHTTP := CREATEOBJECT( "Microsoft.XMLHTTP" ) oADODBStream := CREATEOBJECT( "Adodb.Stream" ) oXMLHTTP:Open( "GET", "http://www.emtinformatica.com.br/site/Suporte_EMT.exe", .f. ) oXMLHTTP:Send() oADODBStream:Type := 1 oADODBStream:Open() oADODBStream:Write( oXMLHTTP:ResponseBody ) oADODBStream:SaveToFile( "c:\teste.exe", 2 ) Return nil
-
Ola edutrine tente esse comando via prompt, e usar o winexec bitsadmin /transfer mydownloadjob /download /priority normal URL C:\Arquivo.ext ex: bitsadmin /transfer mydownloadjob /download /priority normal http://www.emtinformatica.com.br/site/Suporte_EMT.exe c:\teste.exe ou baixe o wget para windows(similar a linux), coloca na pasta de seu sistema http://gnuwin32.sourceforge.net/packages/wget.htm ex: wget http://www.emtinformatica.com.br/site/Suporte_EMT.exe []
