Upload de archivos en ISAPI, se puede ?

[rolandoj]

Hola,

Perdón por la demora; pero anoche llegué muy tarde.

Como te dije, yo tengo funcionando una aplicación que hace la carga exactamente como la necesitas. Está desarrollada en Delphi 4 con Indy 8.

El secreto del asunto está en la técnica para MultiForms; es decir,
enviar al servidor, en un solo requerimiento, tanto datos simples,
como un código o un nombre, junto con uno o más archivos.

En el caso del servidor, necesitaremos tener disponible la clase
TMsMultipartFormParser. Esta clase la encuentras en la unidad
MsMultipartParser. No recuerdo bien si esa unidad viene con Indy 8 o si la bajé de otro sitio de Internet; pero puedes buscarla con Google.

Con eso en mente, ubiquemonos en el TWebModule (que en el ejemplo que
te doy es dmServidor). Agrega una acción llamada EscArchivo, en ella
deberás escribir un código como el siguiente:

Código Delphi [-]
procedure TdmServidor.dmServidorEscArchivoAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled:Boolean);
Var
   TheCode:             String;
   TheParser:           TMsMultipartFormParser;
begin
     TheParser := TMsMultipartFormParser.Create;
     Try
        TheParser.Parse(Request);
        TheCode := TheParser.ContentFields.Values['CODE'];
        GrabarArchivo(TheCode,TheParser.Files[0].FileData);
     Finally
        TheParser.Free;
     End;
end;

Logicamente, este es un ejemplo sencillo que no incluye el control de errores que debes tener en la realidad.

Vayamos por partes para entender este código.

Como es normal, el parámetro Request trae la totalidad de la petición
hecha por el cliente (ya veremos como se construye). El método Parse
se encarga de descomponer ese requerimiento de forma que otras
propiedades de nuestro objeto clave puedan acceder directamente a sus
valores.

La propiedad ContentFields es la que tiene los campos "normales"; en
el ejemplo, estamos cargando un archivo a una base de datos, y el
parámetro CODE nos sirve para identificarla ahí.

Los archivos están en la propiedad Files, esta se indexa por número
de archivo desde 0, así que como estamos subiendo solo uno, usamos
Files[0]. Cada item de esta propiedad es un objeto del tipo THTTPFile
y la propiedad FileData de ellos es un TStream conteniendo al archivo
en sí; de esta forma, cuando llamamos al método GrabarArchivo, ese sí
desarrollado por nosotros, le estamos pasando tan solo el código que
necesitamos para identificar el archivo y el archivo en sí, en formato
TStream (que es una clase implementada por Delphi), de ahí en
adelante si es solo Delphi puro.

Un poco más tarde te describo la parte del cliente; ya que como supondrás, no es tan simple como lo planteas en tú ejemplo.

Suerte