Skip to main content
adicionou 2018 caracteres ao conteúdo
Fonte Link
Syzoth
  • 100,5mil
  • 23
  • 169
  • 361

Não entendo muito de Delphi (só tive uma breve experiencia com Object Pascal, o que talvez hoje deva ser um pouco diferente de ambos), mas me parece que isto:

StringList.Add('consumer_key = abcdefg');
StringList.Add('&consumer_secret = hijklmn');
StringList.Add('&code = opqrstuvxz');

Deveria ser isto:

StringList.Add('consumer_key=abcdefg');
StringList.Add('consumer_secret=hijklmn');
StringList.Add('code=opqrstuvxz');

Se o & e sem espaços separando o = da chave e do valor. Isto conforme todos exemplos que encontrei e um pouco da documentação.

Seguindo os exemplos que encontrei e o seu código em PHP me parece que esta executando coisas desnecessárias:

lHTTP.Request.CustomHeaders.Clear; # Não parece necessário
lHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
lHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; # Não parece necessário (não estou certo)
lHTTP.Request.CharSet:= 'utf-8'; # Não parece necessário
lHTTP.HandleRedirects := True;
lHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36'; # Não parece necessário
lHTTP.Request.Method:='POST'; # Não parece necessário
Result:= lHTTP.Post(Url, StringStream);

Talvez apenas isto já resolva (já que a API parece que funcionou corretamente com PHP):

 lHTTP:= TIdHTTP.Create(nil);
 IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

StringList := TStringList.Create;
StringList.Add('consumer_key=abcdefg');
StringList.Add('consumer_secret=hijklmn');
StringList.Add('code=opqrstuvxz');

lResult := lHTTP.Post(Url, StringList);

Creio que o StringStream seja apenas necessário se realmente esta buscando converter para UTF8 (isto se os dados vierem de outras fontes), se o seu .dpr estiver salvo como UTF-8 então talvez nem precise disso.

O que provavelmente você deve fazer em scripts futuros é codificar os parametros passados (não tenho certeza se para o TIdHTTP.Create isso é realmente necessário, é mais "especulação" minha), pelo que vi os métodos padrões para o uso disto são:

uses
  IdURI;

...

TIdURI.URLEncode(valor);

Deve ficar algo como:

StringList.Add(TIdURI.URLEncode(chave) + '=' + TIdURI.URLEncode(valor));

Note que HTTPApp.URLEncode esta em desuso, prefira System.NetEncoding.TURLEncoding

Não entendo muito de Delphi (só tive uma breve experiencia com Object Pascal, o que talvez hoje deva ser um pouco diferente de ambos), mas me parece que isto:

StringList.Add('consumer_key = abcdefg');
StringList.Add('&consumer_secret = hijklmn');
StringList.Add('&code = opqrstuvxz');

Deveria ser isto:

StringList.Add('consumer_key=abcdefg');
StringList.Add('consumer_secret=hijklmn');
StringList.Add('code=opqrstuvxz');

Se o & e sem espaços separando o = da chave e do valor. Isto conforme todos exemplos que encontrei

Não entendo muito de Delphi (só tive uma breve experiencia com Object Pascal, o que talvez hoje deva ser um pouco diferente de ambos), mas me parece que isto:

StringList.Add('consumer_key = abcdefg');
StringList.Add('&consumer_secret = hijklmn');
StringList.Add('&code = opqrstuvxz');

Deveria ser isto:

StringList.Add('consumer_key=abcdefg');
StringList.Add('consumer_secret=hijklmn');
StringList.Add('code=opqrstuvxz');

Se o & e sem espaços separando o = da chave e do valor. Isto conforme todos exemplos que encontrei e um pouco da documentação.

Seguindo os exemplos que encontrei e o seu código em PHP me parece que esta executando coisas desnecessárias:

lHTTP.Request.CustomHeaders.Clear; # Não parece necessário
lHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
lHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; # Não parece necessário (não estou certo)
lHTTP.Request.CharSet:= 'utf-8'; # Não parece necessário
lHTTP.HandleRedirects := True;
lHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36'; # Não parece necessário
lHTTP.Request.Method:='POST'; # Não parece necessário
Result:= lHTTP.Post(Url, StringStream);

Talvez apenas isto já resolva (já que a API parece que funcionou corretamente com PHP):

 lHTTP:= TIdHTTP.Create(nil);
 IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

StringList := TStringList.Create;
StringList.Add('consumer_key=abcdefg');
StringList.Add('consumer_secret=hijklmn');
StringList.Add('code=opqrstuvxz');

lResult := lHTTP.Post(Url, StringList);

Creio que o StringStream seja apenas necessário se realmente esta buscando converter para UTF8 (isto se os dados vierem de outras fontes), se o seu .dpr estiver salvo como UTF-8 então talvez nem precise disso.

O que provavelmente você deve fazer em scripts futuros é codificar os parametros passados (não tenho certeza se para o TIdHTTP.Create isso é realmente necessário, é mais "especulação" minha), pelo que vi os métodos padrões para o uso disto são:

uses
  IdURI;

...

TIdURI.URLEncode(valor);

Deve ficar algo como:

StringList.Add(TIdURI.URLEncode(chave) + '=' + TIdURI.URLEncode(valor));

Note que HTTPApp.URLEncode esta em desuso, prefira System.NetEncoding.TURLEncoding

Fonte Link
Syzoth
  • 100,5mil
  • 23
  • 169
  • 361

Não entendo muito de Delphi (só tive uma breve experiencia com Object Pascal, o que talvez hoje deva ser um pouco diferente de ambos), mas me parece que isto:

StringList.Add('consumer_key = abcdefg');
StringList.Add('&consumer_secret = hijklmn');
StringList.Add('&code = opqrstuvxz');

Deveria ser isto:

StringList.Add('consumer_key=abcdefg');
StringList.Add('consumer_secret=hijklmn');
StringList.Add('code=opqrstuvxz');

Se o & e sem espaços separando o = da chave e do valor. Isto conforme todos exemplos que encontrei