Bauhaus1975
13-06-2005, 16:49:55
Hola a todo el mundo. A ver si pueden ayudarme, mi pregunta es muy sencilla dado que tengo muy poca experiencia en Delphi:
Tengo un pequeño formulario donde quiero que al pulsar un botón me realice una petición http de la dirección web que haya escrito en un control de caja de texto. Me gustaría que me explicaran un poco que componente tengo que usar para poder hacer esa petición HTTP y un poco de guía en general para realizarlo.
Muchas gracias.
Miguel.
jachguate
13-06-2005, 17:00:44
Podes valerte del componente idHTTPClient de las INDY (pestaña Indy Clients).
La operación consiste básicamente en establecer la propiedad Host con la dirección escrita en la caja de texto y luego hacer un GET.
Hasta luego.
;)
Buen dia,.
jachguate
Para poder, parsear la respuesta. ¿Qué evento uso?
Por que estoy tratando de adaptar., el ejemplo que encontre en el foro.
para obtener la ip real de la petición heca a un servidor.
Este es el codigo que quiero adaptar para que no use sockclient. sino el
idHTTPClient
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;
type
TForm1 = class(TForm)
cs: TClientSocket;
Label1: TLabel;
Button1: TButton;
Memo1: TMemo;
procedure suitempButton1Click(Sender: TObject);
procedure csRead(Sender: TObject; Socket: TCustomWinSocket);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
str : string;
posIp : integer;
posFin : integer;
ip : string;
implementation
{$R *.dfm}
procedure TForm1.suitempButton1Click(Sender: TObject);
begin
with cs do begin
Socket.SendText('GET http://dynamic.zoneedit.com/checkip.html HTTP/1.0'+#13#10);
Socket.sendText('Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/msword, application/vnd.ms-excel, */*'+#13#10);
Socket.SendText('Referer: http://www.zoneedit.com/'+#13#10);
Socket.sendText('User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)'+#13#10);
Socket.SendText('Host: www.zoneedit.com'+#13#10);
Socket.sendText('Content-Length: 0'+#13#10);
Socket.sendText(''+#13#10);
Socket.sendText(''+#13#10);
end;
end;
procedure TForm1.csRead(Sender: TObject; Socket: TCustomWinSocket);
begin
str := cs.Socket.ReceiveText;
posIp := pos('Current IP Address:', str);
posFin := pos('<br>Hostname', str);
ip := copy(str, posIp + 20, posFin - (posIp + 22));
begin
Memo1.Text := ip;
end;
end;
end.
{Fin del codigo}
VAle gracias.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.