Eine isapi dll für Apache 2.4 soll CMD ausführen

**erich.wanker**

Hallo,

Delphi Xe4
Apache/2.4.46 (Win32) OpenSSL/1.1.1h PHP/7.4.12

.. ich wollte eigentlich nur "schnell" eine ISAP-Dll schreiben, die beim Apache-Start geladen wird -> und dadurch ein CMD gestartet wird..

Bei jedem Apache-Start soll eine spezielle CMD gestartet werden - aber ich kriege das nicht zum laufen

Hat einer einen Hinweis WIESO das nicht geht?

zusammenfalten · markieren

Delphi-Quellcode:

			unit WebModuleUnit1;

interface

uses System.SysUtils, System.Classes, Web.HTTPApp,ShellApi;

type

  TWebModule1 = class(TWebModule)

    procedure WebModule1DefaultHandlerAction(Sender: TObject;

      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

    procedure WebModuleCreate(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  WebModuleClass: TComponentClass = TWebModule1;

implementation

{$R *.dfm}

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

  Response.Content := '<html><heading/><body>Webserver-Anwendung</body></html>';

end;

procedure TWebModule1.WebModuleCreate(Sender: TObject);

begin

  ShellExecute(0, nil, Pchar('C:\Server\test.cmd'), nil, nil, 5);

end;

end.

die DLL wird erfolgreich vom Apache geladen ... der Aufruf "http://localhost:17082/cmd_starter.dll" zeigt im Browser "Webserver-Anwendung" an

aber passieren tut nix

in der httpd.conf hab ich:

<IfModule mod_alias.c>
AddHandler isapi-handler .dll
ISAPICacheFile c:/server/htdocs/cmd_starter.dll
</IfModule>

Zitat:

library cmd_starter;

uses
Winapi.ActiveX,
System.Win.ComObj,
Web.WebBroker,
Web.Win.ISAPIApp,
Web.Win.ISAPIThreadPool,
WebModuleUnit1 in 'WebModuleUnit1.pas' {WebModule1: TWebModule};

{$R *.res}

exports
GetExtensionVersion,
HttpExtensionProc,
TerminateExtension;

begin
CoInitFlags := COINIT_MULTITHREADED;
Application.Initialize;
Application.WebModuleClass := WebModuleClass;
Application.Run;
end.

**Delphi.Narium**

Mal den Rückgabewert von ShellExecute abgefragt?

Siehe hier:

ShellExecute

In HTML gibt es kein Tag <heading/>, sondern nur <head>:

https://www.w3schools.com/tags/default.asp

Response.Content := '<html><head><title>Webserver-Anwendung</title></head><body>Webserver-Anwendung</body></html>';

**erich.wanker**

Hi

Rueckgabe ShellExecute:42

Hab ich so ermittelt:

zusammenfalten · markieren

Delphi-Quellcode:

			unit WebModuleUnit1;

interface

uses System.SysUtils, System.Classes, Web.HTTPApp,ShellApi;

type

  TWebModule1 = class(TWebModule)

    procedure WebModule1DefaultHandlerAction(Sender: TObject;

      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

    procedure WebModuleCreate(Sender: TObject);

  private

    i:integer;

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  WebModuleClass: TComponentClass = TWebModule1;

implementation

{$R *.dfm}

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

  Response.Content := '<html><body>Rueckgabe ShellExecute:'+inttostr(i)+'</body></html>';

end;

procedure TWebModule1.WebModuleCreate(Sender: TObject);

begin

  i:= ShellExecute(0, nil, Pchar('C:\Server\test.cmd'), nil, nil, 5);

end;

end.

**DeddyH**

Und woran merkst Du, dass das Script nicht ausgeführt wird?

**erich.wanker**

ich hab jetzt in der cmd einfach mal "C:\Windows\system32\calc.exe" reingesetzt ..

Der Taschenrechner wird nicht gestartet ...

**KodeZwerg**

SW_SHOW anstelle der 5 würde ich bei ShellExecute() nehmen. Hat nichts direkt mit Deinem Problem was zu tun, nur eine Empfehlung.

also so hier... i := ShellExecute(Handle, 'open', Pchar('C:\Server\test.cmd'), '', '', SW_SHOW);

**himitsu**

42 ist kein Fehler.

Was ein Fehler ist, das steht in der Hilfe.
MSDN-Library durchsuchen

ShellExecute

**DeddyH**

Schreib doch mal eine Zeile wie

markieren

Code:

echo Huhu > C:\Isapitest.txt

in die cmd. Ist die Datei anschließend vorhanden, und steht da "Huhu" drin?

**himitsu**

In der CMD, da arbeitest du aber nicht zufällig mit relativen Pfaden?
Wenn ja, dann selbst Schuld.
* einmal sowas macht man nicht
* und dann gibst du beim ShellExecute auch kein Arbeitsverzeichnis an

Und mit einem Hier im Forum suchen

ShellExecuteAndWait könntest du auch den ExitCode der CMD auslasen.
Also nicht nur den Start, sondern auch das Ende.

**Delphi.Narium**

Und als Ergänzung zu allen bisherigen Anmerkungen:

Es gilt herauszufinden, was die 42 in diesem Fall bedeutet.

Vermutlich nicht dashier

42 (Antwort)

Aber in der Windows.pas von meinem Delphi 7 ist auch kein entsprechender Wert definiert, der irgendwie mit den

dort aufgeführten Rückgabewerten von ShellExecute korrespondiert.

Was ich befremdlich finde:

Eine ISAPI.dll wird auf dem Webserver ausgeführt. Man kann einen Aufruf der ISAPI.dll von (fast) überall auf der Welt veanlassen, ohne zu wissen, wo konkret der Apache läuft, der diesen Aufruf dann durchführt. Was hat man da davon, wenn man im ShellExecute die auszuführende Routine mit SW_SHOW (5) zur Anzeige bringt?

Kann man das überhaupt? Ist das für 'ne ISAPI.dll zulässig? Kann der Apache damit umgehen? Oder ist das der Grund für die 42?

Eine isapi dll für Apache 2.4 soll CMD ausführen

Eine isapi dll für Apache 2.4 soll CMD ausführen

AW: Eine isapi dll für Apache 2.4 soll CMD ausführen

AW: Eine isapi dll für Apache 2.4 soll CMD ausführen

AW: Eine isapi dll für Apache 2.4 soll CMD ausführen

AW: Eine isapi dll für Apache 2.4 soll CMD ausführen

AW: Eine isapi dll für Apache 2.4 soll CMD ausführen

AW: Eine isapi dll für Apache 2.4 soll CMD ausführen

AW: Eine isapi dll für Apache 2.4 soll CMD ausführen

AW: Eine isapi dll für Apache 2.4 soll CMD ausführen

AW: Eine isapi dll für Apache 2.4 soll CMD ausführen

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.624 Beiträge Delphi 12 Athens	#4 AW: Eine isapi dll für Apache 2.4 soll CMD ausführen 22. Mär 2021, 12:08 Und woran merkst Du, dass das Script nicht ausgeführt wird? Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

erich.wanker Registriert seit: 31. Jan 2008 Ort: im schönen Salzburger Land 460 Beiträge Delphi XE4 Professional	#5 AW: Eine isapi dll für Apache 2.4 soll CMD ausführen 22. Mär 2021, 12:18 ich hab jetzt in der cmd einfach mal "C:\Windows\system32\calc.exe" reingesetzt .. Der Taschenrechner wird nicht gestartet ... Erich Wanker - for life:=1971 to lebensende do begin .. O /H\ / \
	Zitat

KodeZwerg Registriert seit: 1. Feb 2018 3.691 Beiträge Delphi 11 Alexandria	#6 AW: Eine isapi dll für Apache 2.4 soll CMD ausführen 22. Mär 2021, 12:21 SW_SHOW anstelle der 5 würde ich bei ShellExecute() nehmen. Hat nichts direkt mit Deinem Problem was zu tun, nur eine Empfehlung. also so hier... i := ShellExecute(Handle, 'open', Pchar('C:\Server\test.cmd'), '', '', SW_SHOW); Gruß vom KodeZwerg Geändert von KodeZwerg (22. Mär 2021 um 12:27 Uhr)
	Zitat

himitsu Online Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.074 Beiträge Delphi 12 Athens	#7 AW: Eine isapi dll für Apache 2.4 soll CMD ausführen 22. Mär 2021, 12:25 42 ist kein Fehler. Was ein Fehler ist, das steht in der Hilfe. ShellExecute Neuste Erkenntnis: Seit Pos einen dritten Parameter hat, wird PoSex im Delphi viel seltener praktiziert.
	Zitat