Datos de respuesta de un TidHTTP.Get()

[MaxiDucoli]

Listo!
La solución era más fácil que el problema.
Cargué la respuesta en Notepad++ y ahí me dí cuenta que cada línea de texto estaba acompañada con su traducción y había un texto al final que las otras líneas no tenían.
Con eso se me ocurrió todo.


Esto fue lo que usé.
Se los dejo por si alguna vez lo necesitan.

Función que devuelve un texto entre que está entre dos opciones de texto y es la que uso para separar las lines del texto traducido.

Código Delphi [-]
function TForm1.ExtractTextBetween(const Input, Delim1, Delim2: string): string;
var
  aPos, bPos: Integer;
begin
  Result := '';
  aPos := Pos(Delim1, Input);
  if aPos > 0 then
  begin
    bPos := PosEx(Delim2, Input, aPos + Length(Delim1));
    if bPos > 0 then
    begin
      Result := Copy(Input, aPos + Length(Delim1),
        bPos - (aPos + Length(Delim1)));
    end;
  end;
end;

Edit1.Text contiene la URL que uso para traducir el texto.

https://translate.google.com.ar/translate_a/single?client=webapp&sl=auto&tl=es&dt=at&dt=bd&dt=ex&dt=ld&dt=md&dt=qca&dt=rw&dt=rm&dt=ss&dt=t&dt=gt&pc=1&otf=1&ssel=0&tsel=3&kc=1&tk=893352.727247&q=Guru%20Guru%20sur%20DS%20est%20un%20jeu%20plut%C3%B4t%20orginal%20puisqu%27il%20propose%20une%20sorte%20de%20mini-golf%20o%C3%B9%20la%20balle%20se%20voit%20remplac%C3%A9e%20par%20une%20petite%20cr%C3%A9ature.%20Il%20s%27agit%20alors%20non%20pas%20seulement%20de%20viser%20juste%20mais%20aussi%20d%27utiliser%20les%20capacit%C3%A9s%20magiques%20de%20votre%20bestiole%20pour%20l%27orienter%20vers%20le%20trou.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s : TStringList;
i : integer;
begin
s := TStringList.Create;
s.Text :=  idhttp1.Get(Edit1.Text);
for I := 0 to s.Count - 1 do
  begin
    if AnsiContainsText(s[i],'.md') then
    begin
      Memo2.Lines.Add(ExtractTextBetween(s[i],'["','","'));
    end;
  end;
s.Free;
//Memo2.Text := IdHTTP1.Get('https://translate.google.com.ar/');
//FillLanguage(Memo2.Text , ComboBox1);
end;

Saludos!!!!!

[Casimiro Notevi]

[MaxiDucoli]

Y olviden todo lo que les dije, por que todas las prubas que hice fueron siempre con la misma linea de texto, la cual lleva una opcion que se llama TK y calculo yo que será un TOKEN y al sacarla no funciona y al cambiar el texto para traducir otra cosa NO FUNCIONA y me da error 403 FORBIDEN....

Seguiré intentando hasta lograrlo de alguna manera y volveré con mi código fuente del triunfo para compartilo con ustedes...