Amigos, ya pude realizar el proceso, y quiero compartirlo con ustedes:
function UploadFile(FileName: String): String;
var
IdHTTP: TIdHTTP;
Stream: TIdMultipartFormDataStream;
Response: String;
begin
Result := 'no';
IdHTTP := TIdHTTP.Create;
Stream := TIdMultipartFormDataStream.Create;
try
Stream.AddFile('archivo', FileName, ''); {'image/' + Ext}
Stream.AddFormField('comp', 'ok');
Response := IdHTTP.Post('[url]http://dominio.com.mx/uploadfiles/index.php',[/url] Stream);
if Pos('Respuesta: ok', Response) > 0 then
Result := 'ok';
finally
IdHTTP.Free;
Stream.Free;
end;
end;
Lo explico:
Creamos en runtime el IDHTTP que va a ser el transporte y el Stream que es donde vamos a encriptar el archivo, mediante el evento
AddFile con los siguientes parametros, (Nombre del campo tipo file del formulario html, Nombre del archivo a subir, Tipo de dato a subir (si se deja en blanco puedo subir lo que sea)).
En el evento
AddFormField() le vamos a pasar el nombre y la acción del input que envia el archivo, esto del formulario HTML.
y por último posteamos la pagina donde esta nuestro formulario HTML.
Este último es importante ya que lo vamos a llamar para que el haga la subida del archivo.
Espero le sirva, saludos: