Cargar datos formulario web en Twebbrowser
 

Hola amigos, he estado buscando por todos los hilos relacionados con el tema, me mirado las indy y no me entero de nada, porque nunca he hecho nada por el estilo.

Os expongo lo que quiero hacer, no se si es complicado o no:

Tengo un WebBrowser, donde accedo a la extranet de la empresa para la que trabajamos, donde tenemos varios formularios que vamos rellenando DNI, nombre, etc...

Esos datos ya los han rellenado los operadores y se guardan en nuestra base de datos y se muestra en su correspondiente formulario. Lo que quiero hacer, si es posible, importar los datos del formulario de Delphi al formulario del webbrowser.

No se si me he explicado bien, pero es que no consigo hacerlo ni encuentro nada que me aclare, si sabeis alguna wen o algun ejemplo os lo agradeceria.

Gracia de antemano, saludos.

Hola,

La cuestión se resume en esto:

Pero, no entiendo bien a qué te refieres con "importar los datos". ¿Podrías explicarlo un poco? :rolleyes:

La base de datos es la contenedora de los datos, aqui lo que tienes que hacer es que en tu applicacion delphi se conecte a tu base de datos,,, eso es todo...

Nada complicado....

:D

Claro que me explico, dec. No quiero importar los datos, los datos estan en la BD que los muestro en su form correspondiente, quiero pasar los datos desde el form al formulario web que está en el Twebbrowser,

Por ejemplo. Tengo un campo con el dni del cliente en mi form en un Tedit lo que quiero copiar el contenido de ese tedit a su campo correspondiente en el formulario web, asi con todos los datos.

He estado leyendo los post de automatización web y similares pero no acabo de verlo.

Saludos.

¿quieres tener el form de tu aplicacion(ejem DNI) y el webbroser(ejemp DNI)..
se sincronize tomando los datos de tu form?

Correcto, eso es lo que quiero hacer, que haya un command button o lo que sea que me traslade los datos de mi form al formulario del webbrowser.

Saludos

Ya lo he consegui de la siguiente forma, por si le sirve a alguien:

Código Delphi [-]
Function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
var
i, j: Integer;
FormItem: Variant;
begin
Result := False;
//no form on document
if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
begin
Exit;
end;
//count forms on document
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
begin
FormItem := WebBrowser.OleObject.Document.forms.Item(I);
for j := 0 to FormItem.Length - 1 do
begin
try
//when the fieldname is found, try to fill out
if FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit; 
end;
end;
end;
end;

procedure TfrmPrincipal.CmdRellenarClick(Sender: TObject);
begin
        FillForm(WebBRowser, 'user', 'usuario');
        FillForm(WebBRowser, 'platformcode', '123456');
        FillForm(WebBRowser, 'password', 'XXXX');
end;

Saludos.

Hola Puedes tener dos soluciones

Si la informacion esta en tu base de datos y tienes un WebServis puedes consumir eres WebServis pasarle la informacion y ta queda en la otra base de datos

Si no hay ningun WebServis puedes Desarrollar un robot que te ingrese la informacion de tu base de datos a la pagina Web que quieras, si gustas yo te ouedo desarrollar el Robot pero te cobro por el desarrollo, escriveme a mi correo <Eliminado por un moderador> y nos ponemos de acuerdo

Hola Germán.
Te recomiendo que revises la Guía de estilo.

Por lo demás, decirte que te encuentras en unos foros donde se hacen preguntas y se proponen respuestas, pero no se hace publicidad, ni se busca trabajo en los mensajes. Si deseas hacer una pregunta o dar una respuesta de forma gratuíta y altruísta (como hacen el resto de usuarios) puedes hacerlo líbremente, pero no publicites tu trabajo, no está permitido.

Para esto último (ofrecer tus servicios profesionales), hay una sección especial en el foro para publicar "Ofertas de empleo".