Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #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. Дерзайте
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:16.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025