Les voy a comentar, según mi experiencia personal, por qué decidí usar este componente para acceder a páginas webs, descargar archivos, utilizarlo con módulos PHP para hacer un webservice, etc... en vez de usar el componente de Indy tIdHttp.
El principal motivo es que maneja de forma transparente el acceso a las páginas seguras, y es que antes con el componente Idhttp tenía que utilizarlo junto con el idSSLIOHandlerSocketOpenSSL, configurarlo y además añadir los archivos libcrypto.so y libssl.so (en el caso de software para Android), lo que implica que aumenta el tamaño de la app, por si fuera poco, a veces dan problemas y hay que dedicar tiempo a solucionarlos, ahora desde que descubrí que con tNetHttpClient ya no es necesario hacerlo, las apps ocupan menos tamaño al no incluir esos archivos lo cual es muy importante a la hora del posicionamiento en la tienda de Google.
Últimamente estoy convirtiendo todos mis desarrollos para poder usar este componente que me simplifica la vida como programador.
Les recuerdo que si pasan parámetros por POST en la propiedad "ContentType" hay que poner:
'multipart/form-data' si se envian ficheros
'application/x-www-form-urlencoded' si NO se envian ficheros
Les adjunto algunos ejemplos por si les pueden ser de utilidad.
- Descargar una página web guardándola como un string.
aURL:='www.paginaweb.com';
FUNCTION DownloadWeb(aURL: STRING): STRING;
BEGIN
TRY
Result := NetHttpClient1.Get(aURL).ContentAsString;
EXCEPT
ON E: Exception DO
BEGIN
Showmessage('Error al obtener datos');
END;
END;
END;
====
- Envíar a un modulo PHP varios parámetros por POST y creando el componente NetHttpClient en tiempo de ejecución.
FUNCTION ObtenerWebPOST(progPHP: STRING): STRING;
VAR
datos: STRING;
Stream: TStringStream;
Params: tstringlist;
MiNetHttp: TNetHTTPClient;
BEGIN
Result := '';
// usar en el ContentType 'multipart/form-data' si se envian ficheros
// usar en el ContentType application/x-www-form-urlencoded si NO se envian ficheros
MiNetHttp := TNetHTTPClient.Create(NIL);
MiNetHttp.ContentType := 'application/x-www-form-urlencoded';
Stream := TStringStream.Create('');
Params := tstringlist.Create;
TRY
Params.Add('CP=08232';
Params.Add('Poblacion=Barcelona');
Stream.Position := 0;
MiNetHttp.Post('https://www.paginaweb.com/datos.php', Params, Stream);
datos := Stream.DataString;
FINALLY
Stream.Free;
Params.Free;
MiNetHttp.Free;
END;
Result := datos;
END;
=======
- Descargar desde la web un archivo utilizando un tFileStream para guardar el archivo descargado.
URL:='www.paginaweb.com/archivo.txt';
Fichero:='c:\miCarpeta\Miarchivo.txt';
PROCEDURE DownloadFile(URL, Fichero: STRING);
VAR
Stream: TFileStream;
MiNetHttp: TNetHTTPClient;
BEGIN
MiNetHttp := TNetHTTPClient.Create(NIL);
// Stream := TmemoryStream.Create; (si queremos guardar el archivo en memoria)
Stream := TFileStream.Create(Fichero, fmCreate);
TRY
MiNetHttp.Connection := 'keep-alive';
TRY
MiNetHttp.Get(URL, Stream);
EXCEPT
ON E: Exception DO
BEGIN
Showmessage('Error al descargar archivo '+e.message);
END;
END;
// Stream.SaveToFile(Tpath.Combine(Directorio, FileName)); (si se usa un tMemoryStream)
FINALLY
MiNetHttp.Free;
Stream.Free;
END;
END;
==========
- Bajar archivo pasado como parámetro de una función indicando la ruta donde se almacenará y el nombre del fichero de destino.
URL:='https://www.paginaweb.com/archivo.txt';
Directorio:='c:\carpeta';
Archivo:='ArchivoDescargado.txt';
PROCEDURE BajarArchivoDeInternet(NetHttp: TNetHTTPClient; URL, Directorio, FileName: STRING);
VAR
Stream: TFileStream;
BEGIN
// Stream := TmemoryStream.Create; (si usamos un TmemoryStream)
Stream := TFileStream.Create(Tpath.Combine(Directorio, FileName), fmCreate);
TRY
MiNetHttp.Connection := 'keep-alive';
TRY
NetHttp.Get(URL, Stream);
EXCEPT
ON E: Exception DO
BEGIN
Showmessage('Error al descargar archivo '+e.message);
END;
END;
// Stream.SaveToFile(Tpath.Combine(Directorio, FileName)); (si usamos un tMemoryStream)
FINALLY
Stream.Free;
END;
END;
=====
- Enviar ficheros por POST con varios parámetros que se tratarán dentro de un módulo PHP.
FUNCTION EnviarFicherosALaNubeConNetHttpClient: STRING;
CONST
Codificacion = 'ISO-8859-1';
VAR
ResponseStream: TStringStream;
// esta en la uses System.Net.Mime
Params: TMultipartFormData;
Fichero: STRING;
Path, Texto: STRING;
MiNetHttp: TNetHTTPClient;
BEGIN
MiNetHttp := TNetHTTPClient.Create(NIL);
Result := '0';
MiNetHttp.ContentType := 'multipart/form-data';
MiNetHttp.acceptencoding := Codificacion; // 'ISO-8859-1'
// usar en el ContentType 'multipart/form-data' si se envian ficheros
// usar en el ContentType application/x-www-form-urlencoded si NO se envian ficheros
ResponseStream := TStringStream.Create('');
TRY
Params := TMultipartFormData.Create;
TRY
Params.AddField('calle', NombreCalle, Codificacion);
Params.AddField('poblacion', Poblacion, Codificacion);
Path := 'c:\carpeta';
Fichero := Tpath.Combine(Path, 'foto1.jpg');
IF tfile.Exists(Fichero) THEN
BEGIN
Params.AddFile('fich1', Fichero);
END;
Fichero := Tpath.Combine(Path, 'foto2.jpg');
IF tfile.Exists(Fichero) THEN
BEGIN
Params.AddFile('fich2', Fichero);
END;
Fichero := Tpath.Combine(Path, 'index.html');
IF tfile.Exists(Fichero) THEN
BEGIN
Params.AddFile('fich3', Fichero);
END;
TRY
MiNetHttp.Post('https://www.paginaweb.com/datos.php', Params, ResponseStream);
EXCEPT
ON E: Exception DO
BEGIN
showmessage('Error al enviar el archivo: ' + E.Message');
END;
END;
Result := ResponseStream.DataString;
FINALLY
Params.Free;
END;
FINALLY
ResponseStream.Free;
MiNetHttp.Free;
END;
END;
=====
- Enviar por POST varios parámetros a un módulo PHP.
FUNCTION ObtenerDatos: STRING;
VAR
datos: STRING;
Stream: TStringStream;
Params: tstringlist;
MiNetHttp: TNetHTTPClient;
BEGIN
MiNetHttp := TNetHTTPClient.Create(NIL);
Result := '';
MiNetHttp.ContentType := 'application/x-www-form-urlencoded';
Stream := TStringStream.Create('');
Params := tstringlist.Create;
TRY
Params.Add('Producto1=3509');
Params.Add('Producto2=9713');
Stream.Position := 0;
MiNetHttp.Post('https://www.mipaginaweb.php/datos.php', Params, Stream);
datos := Stream.DataString;
FINALLY
Stream.Free;
Params.Free;
MiNetHttp.Free;
END;
END;
=====
- Comprobar si un archivo existe en el servidor
(Si devuelve un código 200 es que existe)
//Añadir en el uses System.net.HTTPClient, System.Net.HTTPClientComponent
FUNCTION ArchivoExisteEnServidor(CONST URL: STRING): Boolean;
VAR
Client: TNetHTTPClient;
Response: IHTTPResponse;
BEGIN
Client := TNetHTTPClient.Create(nil);
TRY
Response := Client.Head(URL);
Result := (Response.StatusCode = 200);
FINALLY
Client.Free;
END;
END;
Si les ha sido útil este post y quieren recibir un email cada vez que publique uno nuevo pueden suscríbirse desde aquí
