[Consumir Webservice REST em Delphi]

Ola preciso de ajuda pra desenvolver um consumo de API no delhi 7

[email protected]

watsapp +595 985215591

[Etiquetas na Argox OS-2140]

Por favor, alguém teria um exemplo de como gerar etiquetas de barras 3 colunas na Argox OS-2140, eu sempre usei o padrão da Zebra e não conheço este padrão da Argox.

Abaixo estou passando como estou fazendo atualmente:

     vetq := TStringList.create;
     vetq.clear;
     vetq.Add('L');
     vetq.Add('H12');
     vetq.Add('D11');
     { 12110000000050
       1 = orintacao
       2 = fonte
       1 = Multiplicador horizontal
       1 = Multiplicador vertical
       000 = Subtipo da fonte
       0100 = Coordenadas no eixo x
       0050 - Coordenadas no eixo y }
    with tabResult do
    begin
      first;
      item:=0;
      vQtMov:=0;
      vInImpFinal:=False;
      while not eof do
      begin
         if (fieldbyname('selecao').AsBoolean) and
            (fieldbyname('qtfisica').AsInteger > 0) then
         begin
            if (FieldByName('moedacompra').AsString <> null) and
               (FieldByName('moedacompra').AsString <> '') then
               vCodMoeda:=FieldByName('moedacompra').AsInteger
            else begin
               Application.MessageBox(pchar('Código Moéda de compra não informado para o Produto : '+FieldByName('codprod').AsString),'Aviso',Mb_Ok);
               vCodMoeda:=vGlbCodMoeda;
               exit;
            end;
            //
            p_busca_dados_prod;
            vetq.Add('121102000650015REF.:' + FieldByName('CODPROD').AsString);
            if (vGlbCodMoeda <> 3) then
               vetq.Add('121102000550015'   + '"'+vSimbolo + vVlVenda+'"')
            else
               vetq.Add('121102000550015'   + '"'+vSimbolo + vVlVenda+'"');
            vetq.Add('121102000450015'      + copy(vdescrProd,1,25) + '"');
            vetq.Add('1F3202500100008'      + FieldByName('CODBAR').AsString);
            next;
            if not eof then
            begin
               p_busca_dados_prod;
               vetq.Add('121102000650155REF.:' + FieldByName('CODPROD').AsString);
               if (vGlbCodMoeda <> 3) then
                 vetq.Add('121102000550155'    + '"'+vSimbolo + vVlVenda+'"')
               else
                 vetq.Add('121102000550155'    + '"'+vSimbolo + vVlVenda+'"');
               vetq.Add('121102000450155'      + copy(vdescrProd,1,25) + '"');
               vetq.Add('1F3202500100150'      + FieldByName('CODBAR').AsString);
            end;
            next;
            if not eof then
            begin
               p_busca_dados_prod;
               vetq.Add('121102000650290REF.:' + FieldByName('CODPROD').AsString);
               if (vGlbCodMoeda <> 3) then
                 vetq.Add('121102000550290'    + '"'+vSimbolo + vVlVenda+'"')
               else
                 vetq.Add('121102000550290'    + '"'+vSimbolo + vVlVenda+'"');
               vetq.Add('121102000450290'      + copy(vdescrProd,1,25) + '"');
               vetq.Add('1F3202500100290'      + FieldByName('CODBAR').AsString);
               //
               { Sintaxe 1, A, 5, 2, 000, 0100, 0200
                 1 = orientacao 1 para retrato
                 a = Tipo de codigo de barras
                 5 = largura da barra larga
                 2 = largura da barra fina
                 000  = altura do cod barra 000 padrao
                 0100 = coordenada eixo y |^
                 0200 = coordenada eixo x ----------> }
            end;
            next;
            vetq.Add('P'+fieldByName('qtfisica').AsString);
            vetq.Add('E');
         end
         else next;
      end;
    end;
    //
    vetq.SaveToFile(vGlbPathEtiq + '\Arg3Col.txt');
    vetq.Free;
    if not FileExists(vGlbPathEtiq + '\PRINTLBL.BAT') then
    begin
       AssignFile(Arquivo, vGlbPathEtiq + '\PRINTLBL.BAT');
       try
         Rewrite(Arquivo);
         Writeln(Arquivo, 'TYPE ' + vGlbPathEtiq + '\Arg3Col.TXT > '+vLpt);
       finally
         CloseFile(Arquivo);
       end
    end;
    ShellExecute(0, 'Open', PChar(vGlbPathEtiq + '\PRINTLBL.BAT'), nil,nil, Ord(SW_SHOW));