Sobre la función StartService y sus parámetros

[dec]

Hola,

Seoane, seguro que estoy haciendo algo mal, porque en la línea:

Código Delphi [-]
P^:= PChar(Params[i]);

Me "dice" el compilador que no son compatibles ambos tipos...

Por otro lado, ¿esto otro funcionaría? Porque compilar compila y un Servicio sin argumentos lo inicia bien, pero, no he probado si funcionaría como se espera en un Servicio con parámetros...

Código Delphi [-]
{...}

var
  argsv := array of PChar;
  FArgumentos: TStringList;  

{...}

if (FArgumentos.Count > 0) then begin
  SetLength(argsv, FArgumentos.Count);
  for i := 0 to FArgumentos.Count-1 do
    argsv[i] := PChar(FArgumentos[i]);
  end;
  StartService(hServicio, FArgumentos.Count, PChar(argsv));
end;

¿O es una burrada?

EDITO: Je, je, je... bueno... no puedo probarlo "realmente", pero, sí puedo incluir un par de parámetros "a ver qué pasa"... y lo que pasa es que empiezan a salir ventanas de error a diestro y siniestro... una detrás de otra y sin parar... "Access violation"...

[dec]

Hola,

Vale... error mío... el código que pusiste es correcto Seoane, compila perfectamente, lo que ocurre es que estaba declarando las variables tal que así:

Código Delphi [-]
var
  argv, p: PChar;

Cuando tú lo indicaste correctamente:

Código Delphi [-]
var
  argv, p: ^PChar;

Todo correcto, pues. No puedo probar que funcionan los parámetros realmente, pero, sí puedo pasar parámetros "a ver qué pasa" sin que ahora se caiga el programa... ¡gracias otra vez, pues!

[[seoane]]

Empezado por dec

No puedo probar que funcionan los parámetros realmente

Teniendo un delphi a mano no hay nada que no se pueda hacer Crea un proyecto nuevo un "Service Application" y en el evento OnExecute coloca esto:

Código Delphi [-]
procedure TService2.ServiceExecute(Sender: TService);
var
  i: integer;
begin
  for i:= 1 to Self.ParamCount - 1 do
    OutputDebugString(PChar(Self.Param[i]));
end;

Compila e instala el servicio. Ahora te preguntaras como puedes ver el resultado, para eso utiliza este programa de Mark Russinovich. Cuando ejecutes el servicio, en el DebugView aparecerán los parámetros con que lo has iniciado.

[Neftali [Germán.Estévez]]

Empezado por seoane

..utiliza este programa de Mark Russinovich.

Buen programa...
(SysInternals, como no... )