 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
 Enviada: Qui Mar 05, 2020 10:14 am Assunto: Migrando Delphi 7 para Delphi XE Erro na função |
 |
|
Este linha aqui
| Código: | | Result.HTTPOptions := Result.HTTPOptions + [hoWantProtocolErrorContent]+ [ hoNoProtocolErrorException ]; |
Ta dando esse erro aqui
Undeclared identifier: 'hoWantProtocolErrorContent'
De uma função abaixo
| Código: | function SetupClient: TIdHTTP;
begin
if GerenciaNetTokenExpired then
GerenciaNetAuthorize;
Result := TIdHTTP.Create( nil );
Result.ConnectTimeout := 20000;
Result.HTTPOptions := Result.HTTPOptions + [hoWantProtocolErrorContent]+ [ hoNoProtocolErrorException ];
Result.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
TIdSSLIOHandlerSocketOpenSSL(Result.IOHandler).SSLOptions.SSLVersions := [sslvTLSv1_2];
Result.Request.ContentType := 'application/json';
Result.Request.Accept := 'application/json';
Result.Request.UserAgent := 'User-Agent: Mozilla/3.0 (compatible; Indy Library)';
if ( AccessToken <> '' ) then
begin
Result.Request.BasicAuthentication := False;
Result.Request.Username := '';
Result.Request.Password := '';
Result.Request.CustomHeaders.AddValue( 'Authorization',TokenType+' '+AccessToken );
end;
end; |
Vi que no delphi 7 tem esse nome na classe idHTTP
Acho que é um enumerado, sei la, cfe abaixo
| Código: | // Protocol options
TIdHTTPOption = (hoInProcessAuth, hoKeepOrigProtocol, hoForceEncodeParams,
hoNonSSLProxyUseConnectVerb, hoNoParseMetaHTTPEquiv, hoWaitForUnexpectedData,
hoTreat302Like303, hoNoProtocolErrorException, hoNoReadMultipartMIME,
hoNoParseXmlCharset, hoWantProtocolErrorContent, hoNoReadChunked
); |
Mais no Delphi XE não tem mais
| Código: | // Protocol options
TIdHTTPOption = (hoInProcessAuth, hoKeepOrigProtocol, hoForceEncodeParams,
hoNonSSLProxyUseConnectVerb, hoNoParseMetaHTTPEquiv, hoWaitForUnexpectedData,
hoTreat302Like303, hoNoProtocolErrorException, hoNoReadMultipartMIME);
TIdHTTPOptions = set of TIdHTTPOption; |
Mudaram, e gostaria de saber como resolver isso?
Obrigado
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree |
|
| Voltar ao Topo |
|
 |
natanbh1
Colaborador
Registrado: Terça-Feira, 15 de Março de 2011
Mensagens: 3093
Localização: Belo Horizonte - MG
|
| Enviada: Qui Mar 05, 2020 2:43 pm Assunto: |
|
|
Tente remover esta propriedade da instrução:
| Código: | | Result.HTTPOptions := Result.HTTPOptions + [ hoNoProtocolErrorException ]; |
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
|
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
|
| Voltar ao Topo |
|
|
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9099
Localização: Sinop-MT
|
| Enviada: Sex Mar 06, 2020 10:59 am Assunto: |
|
|
tb nao achei ele na versao do Indy q to usando
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
strak2012
Colaborador
Registrado: Segunda-Feira, 13 de Janeiro de 2014
Mensagens: 1518
Localização: Maceió - AL
|
| Enviada: Qua Mar 11, 2020 12:11 am Assunto: |
|
|
É provável que tenha sido removido, ou passou para uma nova unit o que é mais certo. Basta saber para qual unit passou né declarar ela em uses.
Recentimente passei por problema similar entre o delphi 6 e Delphi Rio, mais precisamente com a unit directx9d.
Um tal de tmatriz ela vai uns quebrado existia na diret9d e passou para uma nova unit directx9d.type até consegui achar a unit correta levou-se um tempo.
_________________
Tudo podemos quando tudo sabemos! |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
