Thursday, 11 June 2009

Hacer un POST o un GET a una URL con Delphi y Indy10

Tanto java como PHP tienen buenas maneras para poder hacer Post o Get a una web sin tener que programar mucho. Delphi en cambio necesita de componentes externos para poderlo realizar. Podríamos utilizar un TWebBrowser pero mi experiencia me dice que no suele funcionar muy bien para realizar este tipo de eventos. Utilizando los componentes de Indy, podemos hacer eso, realizar un Post o un Get a una URL, y poder obtener su contenido o ver que ha generado la respuesta. Con el componente TidHTTP podemos gestionar estas peticiones muy fácilmente. En el ejemplo del GET, lo que hago es consultar una web que se que tiene una imagen, y la quiero cargar en un TImage, el problema es que la imagen está en formato png, por lo tanto lo que hago es cargarla en un TGraphic y la convierto a BMP para que luego la pueda tratar, el código es el siguiente:




procedure TForm1.Button1Click(Sender: TObject);
var
aBMP : TBitmap;
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
IdHTTP1.Get('http://www.stocktest.org/images.php', Stream);
Stream.Seek(0, soFromBeginning);
Stream.SaveToFile('C:\image1.png');
image2.Picture.LoadFromFile('C:\image1.png');

aBMP := TBitmap.Create;
try
aBMP.Assign(Image2.Picture.Graphic);
Image1.Picture.Assign(aBMP);
finally
aBMP.Free;
end;
end;




La parte del POST es mas sencilla, simplemente quiero enviar a la URL vía POST el usuario y el password de ésta, y lo hago utilizando un TIdMultiPartFormDataStream. Como podéis ver también es bastante sencillo, y con estos componentes nada se nos resiste a atacar tecnologías web con nuestro Delphi de siempre. Encontrareis más información del componente en la página web oficial de Indy, además hay miles de ejemplos por la red.




uses
IdMultipartFormData;

procedure TForm1.Button1Click(Sender: TObject);
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
data.AddFormField('login', 'admin');
data.AddFormField('pass', 'myPass');
Memo1.Lines.Text := IdHTTP1.Post('http://www.stocktest.org/images.php', data);
finally
data.Free;
end;
end;




0 comments:

Post a Comment