Función ExecWb del TWebBrowser?

[Pally]

Hola a todos. Alguien conoce esta función del TWebBrowser, me gustaria conocer sus argumentos o parametros. Hasta ahora se que se puede impprimir el contenido de un webbrowser con ella pero quiero realizar mas cosas como:

guardar, copiar, etc..

Muchas gracias por su atención.

[__hector]

Extraido del MSDN de Microsoft:


ExecWB Method

Executes a command on an OLE object and returns the status of the command execution using the IOleCommandTarget interface.

Syntax

object.ExecWB( _
cmdID As OLECMDID, _
cmdexecopt As OLECMDEXECOPT, _
[pvaIn As Variant,] _
[pvaOut As Variant])

Parameters

cmdID
Long that represents the identifier of the command to execute. For more information on command identifiers, see MSHTML Command Identifiers.
cmdexecopt
OLECMDEXECOPT value that specifies the command options.
pvaIn
Optional. A Variant used for specifying command input arguments.
pvaOut
Optional. A Variant used for specifying command output arguments.



Entonces, entendemos que es una especie de interfaz para ejecutar comandos sobre un objeto OLE (en este caso, un WebBrowser)

Una lista de parametros para cmdID la obtienes en:

http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/methods/execwb.asp

Para los parametros de OLECMDEXECOPT, consultas:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/com/htm/oen_a2z_5k38.asp

Y, este es un pequeño ejemplo de una implementacion que yo le di para imprimir:


procedure TForm1.RefreshBtnClick(Sender: TObject);
const
OLECMDID_PRINT = $00000006;
OLECMDEXECOPT_PROMPTUSER = $00000001;
begin
Browser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);
end;

[Pally]

Hola hector como puedo hacer para que funcione. Ya he conseguido las constantes de los dos argumentos pero delphi 7.0 no lo renoconoce.

Gracias Hector

[__hector]

Que quieres decir con que no lo reconoce? Te salta un error, o simplemente no hace nada?

Que pretendes hacer con el metodo, cuales son los parametros que le pasas?

[Pally]

Me dice el tipico error de que no se puede compilar la unidad y quiero utilizarlo para copiar texto de una página

Gracias Hector

[__hector]

Me das un poco de codigo?

[Pally]

Es con el codigo que tu me diste. Si te sirve de algo utilizo delphi 7.0

No me reconoce el segundo parametro
OLECMDEXECOPT_DONTPROMPTUSER

Y los de mas parametros secundarios no los reconoce