Показать сообщение отдельно
  #2  
Старый 07.03.2012, 02:48
Аватар для TolAlik
TolAlik TolAlik вне форума
Прохожий
 
Регистрация: 02.10.2009
Сообщения: 41
Репутация: 10
По умолчанию

Еще раз здратсте!
Покумекав еще несколько дней, подзубрив английский и наконец-то правильно прочитав документацию, нашел решение
Думаю, данный пример многим будет интересен, если кто захочет поработать с сервисом google геокодирование. Надеюсь, из документации вы поймете, в чем связь между Fusion Tables и геокодирование в google.
Вот сам код:
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
  sql, URL,s:string;
  AuthStr: string;
begin
  with THTTPSend.Create do 
  try
    sql:='CREATE TABLE SaleInformation (customer:NUMBER)';  //Здесь формируется sql запрос на создание таблицы
    AuthStr:='Authorization: GoogleLogin auth=' + GetAuthIdHTTP(Edit1.Text, Edit2.Text); //Здесь получаем ключ авторизации
    Headers.Add('GData-Version: 3.0'); 
    Headers.Add(AuthStr); //Записываем ключ авторизации в Headers
    MimeType:='application/x-www-form-urlencoded';  //из документации
    Protocol:='1.1';   //из документации
    AddPortNumberToHost:=False;  //из документации
    URL:='https://fusiontables.googleusercontent.com/fusiontables/api/query?encid=true';   //адрес для отправки запроса (из документации)
    Document.Clear;
    WriteStrToStream(Document, 'sql='+EncodeURL(sql));  //Записывает тело потока наш запрос
    if HTTPMethod('POST',URL) then   //Отправка данных методом POST
      Memo1.Lines.LoadFromStream(Document); //Вывели ответ сервера
  finally
    Free;
  end;
end;
Процедуру авторизации приводить не буду, думаю что, используя документацию GoogleAPI, это не составит труда написать по типу ClientLogin или OAuth. Дерзайте
Ответить с цитированием