[jscubillos5]

Hola Roma gracias por tu ayuda y tienes toda la razón, busque un código para codificar la imagen a base 64, me base en este hilo del foro: http://www.clubdelphi.com/foros/showthread.php?t=48924, implemente el código, y cuando intento enviarlo por el servicio web obtengo el siguiente error:



El valor de la variable a la cual le aplico el base 64 es:



El código actual que tengo es:

Código Delphi [-]
procedure TFormPrincipal.ButtonEnviarImagenClick(Sender: TObject);
var
  //CorrienteArchivo: TFileStream;
  CorrienteEntexto: String;
  Corriente : TMemoryStream;
begin
  // Utilizo un dialogo para buscar la imagen
  if OpenDialogPrincipal.Execute then
  begin
    // Creo un Stream
    Corriente:= TMemoryStream.Create;
    try
      try
        // Cargo en la corriente la imagne
        Corriente.LoadFromFile(OpenDialogPrincipal.FileName);
        //  Cargo la imagen en el control visual del formulario
        ImageControlUPrincipal.Bitmap.LoadFromStream(Corriente);
        // Envio los datos a la clase base64 y cargo los resultados en CorrienteEntexto
        CorrienteEntexto:= BinToStr(Corriente.Memory, Corriente.Size);
        // Consumo el servicio enviado todos los datos
        ICorrientedeImagenes1.GetICorrientedeImagenes.GuardarImagen(AnsiUpperCase(ExtractFileExt(OpenDialogP  rincipal.FileName)), ExtractFileName(OpenDialogPrincipal.FileName), ExtractFilePath(OpenDialogPrincipal.FileName), CorrienteEntexto);
      finally
        // Libero la corriente o Stream
        Corriente.Free;
      end;
    except
      // En caso de error muestro
      on E: Exception do
      begin
        raise Exception.Create(e.Message);
      end;
    end;
  end
  else
  begin
    // Por si cierran el dialogo sin escojer una imagen
    raise Exception.Create('Atención ha cerrado el buscador sin seleccionar ninguna imagen.');
  end;
end;