0
我想用wininet和delphi登錄Google地圖數據API(get MyMaps),但總是收到響應:無效的令牌。WinInet谷歌地圖數據api接收錯誤無效的令牌
我已經通過wininet HTTPS調用獲得了auth托克。
什麼問題?
請help.Here一個示例代碼:
ServerURL='maps.google.com';
pathURL='/maps/feeds/maps/default/full';
headers='Authorization: GoogleLogin auth="jbhi6....7it6g976"'; //or like that
function SendHTTP_GET(const ServerURL, pathURL, headers:string): string;
var
IInternet, Connection, aFile: HINTERNET;
begin
Result:= '';
IInternet := InternetOpen(PChar('MyApp'), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
Connection := InternetConnect(IInternet, pAnsiChar(ServerURL), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
try
aFile := HttpOpenRequest(Connection,'GET',pAnsiChar(pathURL), nil, nil, nil, 0, 0);
try
if HttpSendRequest(aFile, pAnsiChar(headers), Length(headers), nil, 0) then
Result := ReadStreamData(aFile)
finally
InternetCloseHandle(aFile);
end;
finally
InternetCloseHandle(Connection);
end;
finally
InternetCloseHandle(IInternet);
end;
end;