Foros Club Delphi - Recibir respuesta del php usando TIEHTTP.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)

- - Recibir respuesta del php usando TIEHTTP. (https://www.clubdelphi.com/foros/showthread.php?t=41496)

bibliotec

16-03-2007 20:23:10

Recibir respuesta del php usando TIEHTTP.

Lo primero un saludo a todos, este es mi primer post y soy muy novato en delphi, por tanto espero que tengais paciencia y que poco a poco aprenda lo suficiente como para poder ayudar.

Mi pregunta, estoy realizando una aplicación de subida y descarga de archivos a un server de internet con TIEHTTP, lo hace todo perfectamente, pero no se como hacer para recibir un return la función php, la idea es que compruebe mediante el php ciertos valores en los ficheros remotos y me envie una respuesta a delphi, ¿Sabeis como se hace?

Gracias.

poliburro

16-03-2007 20:51:30

No te compliques la vida :), solo haz un get al sctript como si lo hicieras con una página web cualquiera. Recuerda que lo que php devuelve es html a fin de cuentas.

Suerte

bibliotec

19-03-2007 13:26:34

Gracias por contestar poliburro, ¿Cual seria la forma correcta en delphi de hacer ese get y como coger su resultado?

dec	19-03-2007 15:44:33

Hola,

Con el componente que has mencionado lo ignoro (aunque debe ser muy similar a lo que ahora diré) pero con el componente IdHttp de los Indy la cosa podría quedar, a modo de ejemplo, más o menos así:

Código Delphi [-]var
  sDestino: TStringStream;
begin
  sDestino := TStringStream.Create('');
  try
    IdHTTP.HandleRedirects := true;
    IdHTTP.Get('http://www.google.com/', sDestino);
    if (IdHTTP.ResponseCode = 200) then
      ShowMessage(sDestino.DataString)
    else
      ShowMessage('HTTP Response: '+IntToStr(IdHTTP.ResponseCode));
  finally
    sDestino.Free;
  end;
end;

bibliotec

20-03-2007 11:18:38

Gracias dec pero ya tengo la aplicación desarrollada con TieHttp y he seguido investigando y la solución estaba delante de mis narices, en la documentación pone claramente ejemplo de get y es de la siguiente manera:

Código Delphi [-] 
ie1.sl.text

Donde ie1 es el objeto tiehttp.

Un saludo y gracias a todos.

La franja horaria es GMT +2. Ahora son las 17:30:33.