[Babyka]

Здравствуйте! У яндекса есть сервис геокодирования - перевод адресов домов и улиц в географические кординаты. Раньше отправлял get запрос idhttp http://geocode-maps.yandex.ru/1.x/ ?...я+улица,+дом+7 и получал кординаты, сейчас в яндексе что то поменялось и нужно отправлять запрос https. Отправляя get запрос этим же idhttp получаю только небольшой фрагмент HTML страницы, где никакими кординатами даже и не пахнет. подскажите как можно получить весь код html?

[Alegun]

Шифруются ребята к протоколу вероятно нужно добавить поддержку socket security layer, в смысле подключить библиотеку OpenSSL, главное с версией индюшки не ошибиться, кстати, с 10й вроде такой необходимости больше нет, функции ssl подключены к ядру напрямую

[NumLock]

на WinHTTP написал примерчик для Простой поиск по названию

возвратил результат:

<?xml version="1.0" encoding="utf-8"?>
<ymaps xmlns="http://maps.yandex.ru/ymaps/1.x" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="     http://maps.yandex.ru/business/1.x http://maps.yandex.ru/schemas/business/1.x/business.xsd     http://maps.yandex.ru/geocoder/1.x http://maps.yandex.ru/schemas/geocoder/1.x/geocoder.xsd     http://maps.yandex.ru/psearch/1.x http://maps.yandex.ru/schemas/psearch/1.x/psearch.xsd     http://maps.yandex.ru/search/1.x http://maps.yandex.ru/schemas/search/1.x/search.xsd     http://maps.yandex.ru/web/1.x http://maps.yandex.ru/schemas/web/1.x/web.xsd     http://maps.yandex.ru/search/internal/1.x http://maps.yandex.ru/schemas/search/internal/1.x/internal.xsd">
  <GeoObjectCollection>
    <metaDataProperty xmlns="http://www.opengis.net/gml">
      <GeocoderResponseMetaData xmlns="http://maps.yandex.ru/geocoder/1.x">
        <request>город Архангельск, Троицкий проспект, дом 51</request>
        <found>1</found>
        <results>10</results>
      </GeocoderResponseMetaData>
    </metaDataProperty>
    <featureMember xmlns="http://www.opengis.net/gml">
      <GeoObject xmlns="http://maps.yandex.ru/ymaps/1.x">
        <metaDataProperty xmlns="http://www.opengis.net/gml">
          <GeocoderMetaData xmlns="http://maps.yandex.ru/geocoder/1.x">
            <kind>house</kind>
            <text>Россия, Архангельск, Троицкий проспект, 51</text>
            <precision>exact</precision>
            <AddressDetails xmlns="urn:oasis:names:tc:ciq:xsdschema:xAL:2.0">
              <Country>
                <AddressLine>Архангельск, Троицкий проспект, 51</AddressLine>
                <CountryNameCode>RU</CountryNameCode>
                <CountryName>Россия</CountryName>
                <AdministrativeArea>
                  <AdministrativeAreaName>Архангельская область</AdministrativeAreaName>
                  <SubAdministrativeArea>
                    <SubAdministrativeAreaName>городской округ Архангельск</SubAdministrativeAreaName>
                    <Locality>
                      <LocalityName>Архангельск</LocalityName>
                      <Thoroughfare>
                        <ThoroughfareName>Троицкий проспект</ThoroughfareName>
                        <Premise>
                          <PremiseNumber>51</PremiseNumber>
                        </Premise>
                      </Thoroughfare>
                    </Locality>
                  </SubAdministrativeArea>
                </AdministrativeArea>
              </Country>
            </AddressDetails>
          </GeocoderMetaData>
        </metaDataProperty>
        <description xmlns="http://www.opengis.net/gml">Архангельск, Россия</description>
        <name xmlns="http://www.opengis.net/gml">Троицкий проспект, 51</name>
        <boundedBy xmlns="http://www.opengis.net/gml">
          <Envelope>
            <lowerCorner>40.506402 64.538565</lowerCorner>
            <upperCorner>40.522859 64.545648</upperCorner>
          </Envelope>
        </boundedBy>
        <Point xmlns="http://www.opengis.net/gml">
          <pos>40.51463 64.542107</pos>
        </Point>
      </GeoObject>
    </featureMember>
  </GeoObjectCollection>
</ymaps>

в Google Earth вбил строку-координаты "64.542107 40.51463" (из результата поменял местами значения), попал в точку. задал свой домашний адрес - снова в точку.

Пример

[Babyka]

а можно исходник глянуть? у меня так же раньше работал idhttp.

[NumLock]

так а что там смотреть, собственно?

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses WinHTTPComponents;

{$R *.dfm}

function StringToHex(s: String): String;
var
  i: Integer;
  c: Char;
  r: String;
begin
  r:='';
  for i:=1 to Length(s) do
  begin
    c:=s[i];
    r:=r+'%'+IntToHex(Ord(c), 2);
  end;
  Result:=r;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  WinHttp: TWinHttp;
begin
  WinHttp:=TWinHttp.Create(Self);
  try
    Memo1.Text:=WinHttp.Get('https://geocode-maps.yandex.ru/1.x/?geocode='+StringToHex(AnsiToUtf8(Edit1.Text)));
    Memo1.Lines.SaveToFile('geocode-maps.yandex.ru.xml');      
  finally
    WinHttp.Free;
  end;
end;

end.

TWinHttp реализует WinHTTP API

[Babyka]

а я велосипед создаю!))) спасибо!)))

[Babyka]

Сообщение от NumLock

так а что там смотреть, собственно?

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses WinHTTPComponents;

{$R *.dfm}

function StringToHex(s: String): String;
var
  i: Integer;
  c: Char;
  r: String;
begin
  r:='';
  for i:=1 to Length(s) do
  begin
    c:=s[i];
    r:=r+'%'+IntToHex(Ord(c), 2);
  end;
  Result:=r;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  WinHttp: TWinHttp;
begin
  WinHttp:=TWinHttp.Create(Self);
  try
    Memo1.Text:=WinHttp.Get('https://geocode-maps.yandex.ru/1.x/?geocode='+StringToHex(AnsiToUtf8(Edit1.Text)));
    Memo1.Lines.SaveToFile('geocode-maps.yandex.ru.xml');      
  finally
    WinHttp.Free;
  end;
end;

end.

TWinHttp реализует WinHTTP API

я скачал winhttp , и он сильно отличается от вашего. в моем нет get. вы не могли бы дать ссылку на него?

[NumLock]

у меня написан свой TWinHttp, поэтому его негде скачать) используй функции WinHTTP API, этого вполне достаточно.

[Babyka]

еще бы знать как работать с этой winhttp.DLL, вобще шикарно было бы))

[NumLock]

Using WinHTTP