mit Webservice Programme starten ?

[Gege]

ja ..

also mal hier mein webservice mit nur der einen Function

Code:

{ Invokable-Implementierungsdatei für TRico_PC_service das IRico_PC_service implementiert }

unit Rico_PC_serviceImpl;

interface

uses  FmxUtils, Windows,  Classes, Consts,
  InvokeRegistry, Types, XSBuiltIns, Rico_PC_ServiceIntf;


type

  { TRico_PC_service }
  TRico_PC_service = class(TInvokableClass, IRico_PC_service)

  public
  function Startwenn_ok(const WAS, PW : String): String; stdcall;
  end;

implementation

uses Forms, RtlConsts;

function TRico_PC_service.Startwenn_ok(const WAS, PW : String): String; stdcall;
begin
if (PW='ganzgeheim') then
Begin
Executefile(WAS, '', '\', SW_NORMAL);
result := 'OK :) '+WAS+ 'wurde gestartet !' ;
end;
end;

und der Teil beim Client

Code:

procedure TForm1.Button1Click(Sender: TObject);
var ws: IRico_PC_Service1;

begin
 WS:=GetIRico_PC_Service1(true);
 Label1.Caption:=ws.Startwenn_ok('calc.exe','ganzgeheim');
end;

als Antwort bei Client kommt an : "OK calc.exe wurde gestartet !"
aber es wurde dort nichts gestartet .. und calc.exe ist vorhanden und von überall aus aufrufbar..

[Luckie]

Bitte korrigiere mal den Rechtsschreibfehler im Beitragstitel.

[CCRDude]

Mit ein bisschen Fehlerbehandlung, Auswertung der Rückgabewerte etc. solltest Du doch ausreichend Informationen bekommen, um dem Problem auf den Grund zu gehen

[Gege]

Zitat von Luckie:

Bitte korrigiere mal den Rechtsschreibfehler im Beitragstitel.

na eben .. sorry
aber wie ändere ich das ?? finde nirgens die Möglichkeit ??
(habs gefunden erledigt ..)

@CCRDude ich bekomm ja das Result aber dort passiert eben nichts ..
und wie soll ich das denn anders testen ?
habe ja keine Fehlermeldung ?!

Hatte gedacht es weiß jemand das es so nicht funktionieren kann oder eben anders und es mir vill verrät wie

[Gege]

@CCRDude
hab mir mal den Rückgabewert direkt rüber geben lassen ..
es kommt Rückgabewert 42 an ? ..
Normal ist das ja kein Fehler .. ??

jemand noch eine Idee oder Erfahrungen ?

[CCRDude]

Irgendwas gibt also 42 zurück und Du hast ja Result?

Ich kenne den Rückgabetyp von ExecuteFile nicht (und meine Delphi-Hilfe spinnt), meinst Du den?

Hast Du schonmal in die Prozessliste geschaut, ob der Prozess nicht vielleicht doch läuft? Ich kenne mich mit CGI nicht aus, aber wenn es um einen Webserver geht, läuft der doch bestimmt als Service und ist somit interaktionslos... d.h. alles was Du von dort aus startest, wäre "unsichtbar" und mit viel zu viel Rechten.

Dann müsstest Du Dir ein Token des angemeldeten Users holen und den passenden Prozess damit starten.

[DeddyH]

[OT] Wobei 42 ja die ultimative Antwort ist [/OT]

[Gege]

Zitat von DeddyH:

[OT] Wobei 42 ja die ultimative Antwort ist [/OT]

ehm... schickt Shellexecute 42 weil es sonst nix zu melden hat ? oder nix weiß
is da was wahres dran ?
.. naja will mich aber nicht zu sehr jetzt wieder ablenken ^^

[Gege]

Zitat von CCRDude:

Irgendwas gibt also 42 zurück und Du hast ja Result?
Ich kenne den Rückgabetyp von ExecuteFile nicht (und meine Delphi-Hilfe spinnt), meinst Du den?

ja ich hab sozusagen Result:=shellexecute(... bla..bla bla);
soweit ich es verstanden hab sind Fehler unter 32 also 2 File not found z.B oder so

Zitat von CCRDude:

Hast Du schonmal in die Prozessliste geschaut, ob der Prozess nicht vielleicht doch läuft? Ich kenne mich mit CGI nicht aus, aber wenn es um einen Webserver geht, läuft der doch bestimmt als Service und ist somit interaktionslos... d.h. alles was Du von dort aus startest, wäre "unsichtbar" und mit viel zu viel Rechten.

ich vermute das es so irgendwie zusammen hängt .. Prozess läuft nicht zumindest seh ich es nirgens..

Zitat von CCRDude:

Dann müsstest Du Dir ein Token des angemeldeten Users holen und den passenden Prozess damit starten.

wär interresannt .. und wie ? ich mein ich weiß ja wer angemeldet ist (ich )
aber wie geb ich das dann mit ?

[DeddyH]

In diesem Thread gibt es einen interessanten Code, versuch es doch mal damit.