Ver Mensaje Individual
  #1  
Antiguo 16-03-2015
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.476
Reputación: 21
newtron Va camino a la fama
Access Violation en WebBrowser

Hola a tod@s.

Sigo con el tema de la facturación electrónica pero como esto está ya relacionado con el envío del archivo he creado un hilo nuevo.

Una vez creado el fichero XML de la factura y firmado hay que enviarlo por la página web del ministerio y se me ha ocurrido la feliz idea de intentar hacerlo con un webbrowser para agilizar la operación un poco poniendo por defecto el correo electrónico y el archivo a enviar y que el usuario solo tenga que pulsar en el botón de "Validar". Fijandome en otros hilos he montado este par de líneas para hacer una prueba.

Empiezo poniendo este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
   ovElemento: OleVariant;
begin
  // Cargo pagina
  WebBrowser1.Navigate('https://face.gob.es/es/remitir-factura');
  // Espero a que esté totalmente cargada
  while webBrowser1.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages;
  ovElemento := WebBrowser1.OleObject.Document.forms.item(0).elements;
  ovElemento.item(0).value:='correoelectronico';
end;

Pero en la primera línea que hace referencia a "ovElemento" me da un access violation.

¿Qué se me escapa?

Gracias y un saludo.
__________________
Be water my friend.
Responder Con Cita