Fórum Reduzir imagem pelo Delphi #531361

function TServerMethodos1.EnviarFotoTablet(codProd: String): TJSONArray;
 var
  sBytesArquivo, sNomeArquivo : string;
  oSSArquivoStream: TStringStream;
  iTamanhoArquivo, iCont: Integer;
  pDirArquivo: string;
begin
   try
    cdsFotoProduto.Close;
    cdsFotoProduto.CommandText := 'SELECT FOTO FROM PRODUTO P WHERE P.CODPROD=:CODPROD';
    cdsFotoProduto.Params.ParamByName('CODPROD').AsString := codProd;
    cdsFotoProduto.Open;
    begin
       pDirArquivo := cdsFotoProduto.FieldByName('FOTO').AsString;
       if pDirArquivo <> '' then
         QualityResizeBitmap(pDirArquivo, pDirArquivo, 800,600);
         begin
            Result := TJSONArray.Create; // Instanciando o objeto JSON que conterá o arquivo serializado

            oSSArquivoStream := TStringStream.Create(pDirArquivo); // Instanciando o objeto stream que carregará o arquivo para memoria
            iTamanhoArquivo := oSSArquivoStream.Size; // pegando o tamanho do arquivo

            sBytesArquivo := '';

            //Fazendo um lanço no arquivo que está na memoria para pegar os bytes do mesmo
            for iCont := 0 to iTamanhoArquivo - 1 do
               begin
                 //A medida que está fazendo o laço para pegar os bytes, os mesmos são jogados para
                //uma variável do tipo string separado por ","
                  sBytesArquivo := sBytesArquivo + IntToStr(oSSArquivoStream.Bytes[iCont]) + ', ';
               end;

               //Como é colocado uma vírgula após o byte, fica sempre sobrando uma vígugula, que é deletada
               Delete(sBytesArquivo, Length(sBytesArquivo)-1, 2);

               //Adiciona a string que contém os bytes para o array JSON
               Result.Add(sBytesArquivo);

               // Adiciona para o array JSON o tamanho do arquivo
               Result.AddElement(TJSONNumber.Create(iTamanhoArquivo));

               //Extrai o nome do arquivo
               sNomeArquivo := ExtractFileName(pDirArquivo);
              //Adiciona na terceira posição do array JSON o nome do arquivo
               Result.AddElement(TJSONString.Create(sNomeArquivo));
         end
         else
           begin
              Result := TJSONArray.Create;
              oSSArquivoStream := TStringStream.Create();
              //ShowMessage(Result.ToString);
           end;
    end;
   finally
        oSSArquivoStream.Free;
    end;
end;