Tudo que você precisa para implementar a pesquisa por imagem

Assimhara Wedagedara

3 anos atrás

Microsoft Azure is a cloud platform with more than 200 products to find a solution to your problem. Among those, Cognitive Services are some amazing products that provide you with many AI functionalities. For example:

Detector de anomalias
Moderador de conteúdo
Personalizador
Compreensão da linguagem
Fabricante de QnA
Analítica de texto
Tradutor
Serviço de fala
Visão computacional
Visão personalizada
Face API
Conta multisserviço de serviços cognitivos

With these resources, any developer can incorporate AI into their applications without the need for deep learning of machine learning. All of these can be accessed via the REST API and the Windows IDE, allowing them to be used in any modern application.

Índice

O que é a API de pesquisa visual do Bing?

Com a API de pesquisa visual do Bing, você pode integrar funcionalidades de pesquisa de imagens em seu aplicativo. Os usuários poderão pesquisar fornecendo uma imagem e a API de pesquisa do Bing encontrará imagens visualmente ou temáticas semelhantes. Além disso, ele pode identificar celebridades, lugares, itens e outros objetos relacionados à imagem de origem. Você pode até extrair códigos de barras e texto de imagens. É um recurso muito poderoso.

Como posso obter a chave de assinatura para usar a API do Bing Visual Search?

Vamos para Portal Azure e entrar. No portal, digite “Bing” na caixa de pesquisa e selecione “Bing Search v7” no mercado. Agora insira um nome, assinatura e um grupo de recursos e crie um novo recurso. Em seguida, vá para o recurso recém-criado e na guia “Chaves e endpoint”, você encontrará duas chaves de assinatura. Use essa chave na próxima etapa.

Como faço para implementar a API de pesquisa visual do Bing no Delphi?

Nós podemos facilmente implementar a API de pesquisa visual por meio dos componentes REST do Delphi. Podemos configurar a API em tempo de design usando estes componentes:

TRESTClient
TRESTRequest
TRESTResponse

Faça o seguinte..

Crie um novo aplicativo VCL, elimine um componente TRESTClient e defina o tipo de conteúdo como “application / json”. Em seguida, elimine um componente “TRESTRequest” e defina o método como “rmPOST”. Além disso, elimine um componente “TRESTResponse” para obter a resposta. Além disso, você precisa de um componente TIdHTTP para baixar imagens na resposta.

Nosso URL da API é:

https://api.bing.microsoft.com/v7.0/images/visualsearch/

Além disso, você precisa de um arquivo de imagem para postar com a solicitação. Portanto, solte um componente TOpenDialog para abrir arquivos de imagem. Adicione um botão para navegar pelas imagens.

Agora adicione algum código para o evento OnClick

procedure TfrmMain.btnBrowseClick(Sender: TObject);
var
 Picture: TPicture;
begin
 if not dlgOpenImage.Execute then
  exit;
 strImgPath := dlgOpenImage.FileName;
 btnSearch.Enabled := strImgPath &lt;&gt; '';
 Picture := TPicture.Create;
 Picture.LoadFromFile(strImgPath);
 imgSource.Picture := Picture;
 edImgPath.Text := strImgPath;
end;

procedure TfrmMain.btnBrowseClick(Sender: TObject);

var

Picture: TPicture;

começar

if não dlgOpenImage.Execute then

exit;

strImgPath := dlgOpenImage.FileName;

btnSearch.Enabled := strImgPath <> '';

Picture := TPicture.Create;

Picture.LoadFromFile(strImgPath);

imgSource.Picture := Picture;

edImgPath.Text := strImgPath;

end;

No botão de pesquisa, primeiro, adicionamos o “Ocp-Apim-Subscription-Key”Como um parâmetro de cabeçalho. Em seguida, adicionamos a imagem a ser processada como um parâmetro pkFile do RESTRequest. Em seguida, executamos a solicitação e analisamos a resposta. A resposta está no formato JSON. Podemos usar os objetos “TJSONObject” e “TJSONArray” para analisar facilmente a resposta. Então, podemos baixar imagens semelhantes e exibi-las em nosso aplicativo Delphi.

O código Delphi do botão de pesquisa completo para pesquisar por imagem deve ser parecido com este

procedure TfrmMain.btnSearchClick(Sender: TObject);
var
  lparam : Trestrequestparameter;
  imgProcessed: bool;
  jsonObj: TJSONObject;
  jsonTags, jsonActions, jsonValue: TJSONArray;
  MS: TMemoryStream;
  Picture: TPicture;
  I, x, y: integer;
  image: TImage;
begin
  for i:=0 to ComponentCount-1 do
    if (Components[i] is TImage) then
      if (Components[i] as TImage).Parent=scrlbxImages then
        freeandnil(Components[i]);

  memResponse.Lines.Clear;
  RESTClient.BaseURL := edAPIURL.Text;
  RESTRequest.Method:=rmpost;
  imgProcessed := false;
  try
    RESTRequest.Params.Clear;
    RESTResponse.RootElement := '';
    lparam := RESTRequest.Params.AddItem;
    lparam.name := 'Ocp-Apim-Subscription-Key';
    lparam.Value := edSubKey.Text;
    lparam.ContentType := ctNone;
    lparam.Kind := pkHTTPHEADER;
    //This one is Important otherwise the '==' will get url encoded
    lparam.Options := [poDoNotEncode];

    lparam := RESTRequest.Params.AddItem;
    lparam.name := 'image';
    lparam.Value := strImgPath;
    lparam.ContentType := ctIMAGE_JPEG;
    lparam.Kind := pkFile;
    lparam.Options := [poDoNotEncode];
    RESTRequest.Execute;

    if not RESTResponse.Status.Success then
      showmessage(RESTResponse.StatusText + ' ' +
        inttostr(RESTResponse.StatusCode))
    else
    begin
      memResponse.Lines.Add(RESTResponse.JSONText);
      jsonObj := RESTResponse.JSONValue as TJSONObject;
      jsonTags := jsonObj.Values['tags'] as TJSONArray;
      for I := 0 to jsonTags.Count - 1 do
      begin
        jsonObj := jsonTags.Items[I] as TJSONObject;
        jsonActions := jsonObj.Values['actions'] as TJSONArray;
        for x := 0 to jsonActions.Count - 1 do
        begin
          jsonObj := jsonActions.Items[x] as TJSONObject;
          if jsonObj.Values['actionType'].Value = 'PagesIncluding' then
          begin
            jsonValue := (jsonObj.Values['data'] as TJSONObject).Values['value'] as TJSONArray;
            for y := 0 to jsonValue.Count - 1 do
            begin
              if y&gt; 10 then
                Break;
              jsonObj := jsonValue.Items[y] as TJSONObject;

              MS := TMemoryStream.Create;
              http.Get(StringReplace(jsonObj.Values['thumbnailUrl'].Value, 'https', 'http',[rfReplaceAll, rfIgnoreCase]), MS);
              MS.Position := 0;
              Picture := TPicture.Create;
              Picture.LoadFromStream(MS);
              image := TImage.Create(self);
              image.Parent := scrlbxImages;
              image.Align := alTop;
              image.Height := 180;
              image.Picture := Picture;
              image.Center := True;
              image.Proportional := true;
              MS.Free;
            end;
          end;
        end;
      end;
    end;

  finally
  end;
end;

procedure TfrmMain.btnSearchClick(Sender: TObject);

var

lparam : Trestrequestparameter;

imgProcessed: bool;

jsonObj: TJSONObject;

jsonTags, jsonActions, jsonValue: TJSONArray;

MS: TMemoryStream;

Picture: TPicture;

I, x, y: integer;

image: TImage;

começar

for i:=0 to ComponentCount-1 do

if (Componentes[i] is TImage) then

if (Componentes[i] as TImage).Parent=scrlbxImages then

freeandnil(Componentes[i]);

memResponse.Lines.Claro;

RESTClient.BaseURL := edAPIURL.Text;

RESTRequest.Method:=rmpost;

imgProcessed := false;

try

RESTRequest.Params.Claro;

RESTResponse.RootElement := '';

lparam := RESTRequest.Params.AddItem;

lparam.name := 'Ocp-Apim-Subscription-Key';

lparam.Value := edSubKey.Text;

lparam.ContentType := ctNone;

lparam.Kind := pkHTTPHEADER;

//This one is Important otherwise the '==' will get url encoded

lparam.Options := [poDoNotEncode];

lparam := RESTRequest.Params.AddItem;

lparam.name := 'image';

lparam.Value := strImgPath;

lparam.ContentType := ctIMAGE_JPEG;

lparam.Kind := pkFile;

lparam.Options := [poDoNotEncode];

RESTRequest.Execute;

if não RESTResponse.Status.Success then

showmessage(RESTResponse.StatusText + ' ' +

inttostr(RESTResponse.StatusCode))

senão

começar

memResponse.Lines.Add(RESTResponse.JSONText);

jsonObj := RESTResponse.JSONValue as TJSONObject;

jsonTags := jsonObj.Values['tags'] as TJSONArray;

for I := 0 to jsonTags.Count - 1 do

começar

jsonObj := jsonTags.Items[I] as TJSONObject;

jsonActions := jsonObj.Values['actions'] as TJSONArray;

for x := 0 to jsonActions.Count - 1 do

começar

jsonObj := jsonActions.Items[x] as TJSONObject;

if jsonObj.Values['actionType'].Value = 'PagesIncluding' then

começar

jsonValue := (jsonObj.Values['data'] as TJSONObject).Values['value'] as TJSONArray;

for y := 0 to jsonValue.Count - 1 do

começar

if y> 10 then

Break;

jsonObj := jsonValue.Items[y] as TJSONObject;

MS := TMemoryStream.Create;

http.Get(StringReplace(jsonObj.Values['thumbnailUrl'].Value, 'https', 'http',[rfReplaceAll, rfIgnoreCase]), MS);

MS.Position := 0;

Picture := TPicture.Create;

Picture.LoadFromStream(MS);

image := TImage.Create(self);

image.Parent := scrlbxImages;

image.Align := alTop;

image.Height := 180;

image.Picture := Picture;

image.Center := True;

image.Proportional := true;

MS.Free;

end;

finally

end;

Aqui está uma captura de tela de nosso aplicativo de demonstração Visual Search Delphi

Você pode baixar o aplicativo de demonstração neste link: https://github.com/checkdigits/SearchByImage_example