EDUTEK

conforme o João passou, procurei lá e consegui achar uma forma  segue abaixo
function orion_jornada_AchaEndereco(mLat, mLong) local cGoogleURL := "https://nominatim.openstreetmap.org/reverse?format=xml&" local cAddress := "lat="+alltrim(mLat)+"&lon="+alltrim(mLong) local aReturn, i, cTxt := "" if empty(mLat) mLat := jornada->latitudegps mLong := Jornada->longitudegps cAddress := "lat="+alltrim(mLat)+"&lon="+alltrim(mLong) endif // aReturn := hb_jsonDecode( WebPageContents( cGoogleURL + cAddress) ) // *** Change this *** cDocXML := WebPageContents( cGoogleURL + cAddress) * hb_jsondecode( aReturn, @aReturn ) && se lá na URL vc colocar format "json" - eu uso "XML" if !empty(cDocXML) mRodovia := LerTag(cDocxml, "road") mCidade := LerTag(cDocxml, "town") mArea := LerTag(cDocxml, "municipality") mEstado := LerTag(cDocxml, "state") mRegiao := LerTag(cDocxml, "region") mRodovia := iif(len(rtrim(mrodovia))>0,mRodovia+", ","") mCidade := iif(len(rtrim(mCidade))>0,mCidade+", ","") mestado := iif(len(rtrim(mEstado))>0,mEstado+", ","") mRegiao := iif(len(rtrim(mRegiao))>0,mRegiao+", ","") cTxt1 := mRodovia + mcidade + mEstado + mRegiao + mArea cTXT := U8ToUni(cTXT1,"UTYPE_ANSI") if len(alltrim(ctxt)) < 10 cTxt:="Localização não Encontrada" endif else cTxt:="Localização não Encontrada" endif dbselectarea("jornada") mregistro := jornada->( recno()) grava_dados("A","jornada",{ "local" }, { cTxt }, alias(), "S") return nil  

uso swithMail.exe sem problemas

Obrigado, usando NOWAIT na dialog e o SYSWAIT()  funcionou da forma que eu precisava.
 
 
Obrigado a todos.
 

meu email é edutek68@uol.com.br

segue o meu codigo
que  consegui fazer funcionar
 
function envianovo(mUsuario,mSenha,mArqxml) LOCAL hquery TRY oUrl = TUrl():New( 'http://www.averbeporto.com.br/websys/php/conn.php' ) CATCH CurSorArrow() MsgInfo('Erro ao criar a conexão','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout = -1 IF oCli:Open() hQuery := hb_hash() // Reseto a variavel hQuery["mod"] := "login" hQuery["comp"] := "5" hQuery["user"] := mUsuario && "XXXXX" hQuery["pass"] := mSenha && "xxxx" oCli:cUserAgent:='Mozilla/3.0 (compatible; Indy Library)' IF !oCli:PostMultiPart(hQuery) CurSorArrow() MsgInfo(oCli:lastErrorMessage,'Erro') ELSE cNFSeResp :=oCli:ReadAll() RespC := oCli:GetCookies() // Captura cookie ENDIF ENDIF ENDIF ENDIF If Alltrim(cNFSeResp) == '{"success":1,"logout":1}' CurSorArrow() oCli:Close() MsgBeep() MsgAlert("Não foi possível conectar ao site de averbação!","Atenção") Return("") Endif //" Faz o upload do xml para averbação oCli:Close() oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout = -1 IF oCli:Open() ocli:SetCookie( respc ) hQuery := hb_hash() // Reseto a variavel hQuery["comp"] := "5" hQuery["mod"] := "Upload" hQuery["path"] := "eguarda/php/" hQuery["recipient"] := "" LocXml := mArqXML If !File(LocXml) CurSorArrow() MsgBeep() MsgAlert("Xml do cte não localizado!","Atenção") oCli:Close() Return("") Endif ArqAtach := LocXml oCli:cUserAgent:='Mozilla/3.0 (compatible; Indy Library)' oCli:Attach("file",ArqAtach) IF !oCli:PostMultiPart(hQuery) CurSorArrow() MsgInfo(oCli:lastErrorMessage,'Erro') ELSE Respchave:=oCli:ReadAll() ENDIF ENDIF ENDIF If Substr(Alltrim(Respchave),1,12) == '{"success":0' CurSorArrow() oCli:Close() MsgBeep() MsgAlert("Não foi possível fazer o upload do arquivo xml!","Atenção") MsgAlert(Repchave) Return("") Endif // Busca número do protocolo RespPosi := At("prot",Respchave) RespPosi := Respposi + 7 RespProt := Substr(Respchave,RespPosi,40) oCli:Close() CurSorArrow() return(RespProt)  

Sim é Win 10, Resolveu com a solução acima, mas vou verificar os BITMAPs.
 
Valeu João!
 
 

Bom Dia
Guarulhos gostei, vou estar na mesma condição do João, mas é uma boa data .

EduTek
Na tela de Fontes de dados ODBC, vá na aba Fontes de dados de Sistema, botão adicionar.
Irá aparecer as fontes de conexção, escolha a SQL Server
Depois defina o nome Sistema01
E depois na parte de baixo o servidor.
Acione avançar.
Escolha a forma de autenticação e coloque o usuário e a senha.
Acione avançar.
Até terminar de criar a conexção.
Após o término, irá apresentar na tela do ADBC a conexção Sistema01
Ela que você irá definir no seu sistema.
Att
João Bosco

Preciso enviar um arquivo para o SFTP
4. O arquivo deverá ser enviado para um diretório SFTP correspondente ao nome do distribuidor.
A autenticação do SFTP deverá ser realizada com os dados abaixo:
Endereço: sftp://sftp.royalcanin.com.br
Usuário: CDRC-XX-XXXXXX
Autenticação: utilizando chave RSA. Segue em anexo.
Alguém tem ideia de como fazer isso ?

Preciso enviar um arquivo para o SFTP
4. O arquivo deverá ser enviado para um diretório SFTP correspondente ao nome do distribuidor.
A autenticação do SFTP deverá ser realizada com os dados abaixo:
Endereço: sftp://sftp.royalcanin.com.br
Usuário: CDRC-XX-XXXXXX
Autenticação: utilizando chave RSA. Segue em anexo.
Alguém tem ideia de como fazer isso ?