Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 08-07-2010
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Poder: 22
movorack Va camino a la famamovorack Va camino a la fama
ok... encontré el archivo y ahi te lo paso...

No recuerdo quien es el autor pero estaba en los trucos (lastima esté deshabilitada la seccion) pero si te digo que me funcionaba muy bien.

Incluyes la unidad en los uses...

Código Delphi [-]
uses
  ... UTHttpRequest ...

y luego puedes usarla con una función así:

Código Delphi [-]
function GetContent(URLServer, URLResource, URLVars : String; URLVarsSeparator : Char = ',') : TStringList;
var HTTPRequest : THttpRequest;
    HTTPFormFields, ResultStringList : TStringList;
    Stream : TMemoryStream;
begin
  HTTPRequest := THttpRequest.Create;
  Stream := TMemoryStream.Create;
  HTTPFormFields := TStringList.Create;
  ResultStringList := TStringList.Create;
  try

    //Variables URL.
    HTTPFormFields.Delimiter := URLVarsSeparator;
    HTTPFormFields.Text := URLVars;

    //Accion en Internet. (Aqui puedes manejar el post en lugar del get)
    HTTPRequest.Get(URLServer+URLResource, Stream, HTTPFormFields);

    //Manejar el resultado.
    Stream.Position := 0;
    ResultStringList.Clear;
    ResultStringList.LoadFromStream(Stream);

  finally
    HTTPRequest.Free;
    Stream.Free;
    HTTPFormFields.Free;
  end;

  Result := ResultStringList;
end;

Espero que halla sido de ayuda.

saludos.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com

Última edición por movorack fecha: 24-07-2017 a las 16:52:39.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como abrir un archivo .MEM desde Delphi? vicvil Tablas planas 3 31-10-2006 17:29:40
Como puedo abrir un PDF desde mi Delphi Shenex Varios 4 26-10-2006 20:43:34
Abrir una pagina desde un boton el_new Internet 3 11-05-2006 10:50:51
Como abrir una pagina web desde una Tform normal Martha Ayala Internet 3 24-10-2005 22:59:54
Como abrir un fichero remoto desde un activeX en una pagina web... infimc Internet 0 14-08-2005 22:01:50


La franja horaria es GMT +2. Ahora son las 15:07:22.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi