Скачать прошивку самсунг на delphi

class function TCommand.AutoUpdate(model, region: string):string;
var _strFetch : string;
begin
  _strFetch := strFota + region + '/' + model + '/version.xml';
  Result := RequestXml(_strFetch);
end;
 
 if Length(tbRegion.Text) < 3 then
  begin
    Console.Lines.Add('Error : Region không đúng!');
    exit;
  end;
 
  Console.Clear;
  TTask.Run(
  procedure
  var
    _tmpStr : string;
    _tmpList : TStringList;
    I: Integer;
  begin
    _tmpList := TStringList.Create;
    Console.Lines.Add('Model : ' + tbModel.Text);
    Console.Lines.Add('Region : ' + tbRegion.Text);
    try
      try
      _tmpList.Text := Command.TCommand.AutoUpdate(tbModel.Text, tbRegion.Text);
      for I := 0 to _tmpList.Count - 1 do
      begin
        if Trim(_tmpList[i]).StartsWith('<latest') then
        begin
          _tmpStr := _tmpList[i].Split(['<', '>'])[2];
          Console.Lines.Add('Lastest firmware : ' + _tmpStr);
          break;
        end;
      end;
      except on e:exception do
        begin
          Console.Lines.Add('Error : ' + e.Message);
        end;
      end
    finally
      _tmpList.Free;
    end;
  end);
  end
  else
  begin
 
    if tbModelLenovo.Text = string.Empty then exit;
    Console.Lines.Add('Checking full rom for ' + tbModelLenovo.Text + '...');
    TTask.Run(
    procedure
    var _output: string; _tmpList : TStringList; i: integer;
    begin
      _tmpList := TStringList.Create;
      try
        _output := Command.TCommand.AutoUpdateLenovo(tbModelLenovo.Text);
        try
          _output := _output.Replace(#9#9, sLinebreak);
          _tmpList.Text := _output;
          for I := 0 to _tmpList.Count - 1 do
          begin
            if _tmpList[i].StartsWith('<name>') then
            begin
              _output := _tmpList[i].Split(['<', '>'])[2];
              Console.Lines.Add('Firmware : ' + _output);
              tbFirmware.Text := _output;
            end;
            if _tmpList[i].StartsWith('<downloadurl>') then
            begin
              _output := _tmpList[i].Split(['[',']'])[2];
              Console.Lines.Add('Download link : ' + _output);
              break;
            end;
          end;
        except on e:exception do
          Console.Lines.Add('Error : ' + e.Message);
        end;
        finally
          _tmpList.Free;
        end;
      //Console.Lines.Add(_output);
    end);
  end;
 
  prgMain.Position := 100;
end;