Выдирание данных с сайта..

[sasnnick]

В tdbedit вписываем цифры они должны вписаться на сайте https://www.numberingplans.com/?page...sis&sub=imeinr, а потом вернуть в программу и показать данные с этого сайта.
для примера вводим 351931008289226
эти данные должны вернуться в программу: Mobile Equipment Type Sony Ericsson Z600

[MyIE]

Ссылка не открылась...

[W0LF]

Delphi 7, Indy 9

function GetModel_IMEI(IMEI: string): string;
var
  Src: string;
  Http: TIdHTTP;
  SSL: TIdSSLIOHandlerSocket;
begin
  Http := TIdHTTP.Create(nil);
  SSL := TIdSSLIOHandlerSocket.Create(nil);
  Http.IOHandler := SSL;
  Src := Http.Get('https://www.numberingplans.com/?page=analysis&sub=imeinr&i=' + IMEI);
  Http.Free;
  SSL.Free;
  if Pos('Mobile Equipment Type', Src) <> 0 then begin
    Delete(Src, 1, Pos('Mobile Equipment Type</td>', Src) + Length('Mobile Equipment Type</td>') - 1);
    Delete(Src, 1, Pos('">', Src) + 1);
    Delete(Src, Pos('<', Src), Length(Src));
    Result := Src;
  end else
    Result := 'Error';
end;

Перед использованием, лучше авторизироваться на сайте и заранее зарегистрироваться, так как после нескольких попыток (~5-20), сайт вывесил сообщение такого типа: "Залогинся/зарегистрируйся или неборзей".

[sasnnick]

вы не могли бы выложить готовый проект, я просто только учусь, тяжело ещё..

[sasnnick]

спасибо огромное за помощь!