Einfacher Webserver

[xedp3x]

Ich hab einen Einfachen Webserver und möchte jetzt noch das die Datei Client.exe heruntergeladen werden kann.
So kann ich zwar was runter laden, dann aber nicht starten.
Wisst Ihr wie es Besser geht?

Code: Alles auswählen

if get = '/Client.exe' then
     begin
       Back.LoadFromFile('Client.exe');
     end;
 
  if Back.Count = 0 then
    begin
       Back.Add('HTTP/1.1 404 Unbekanter Befehl');
       Back.add('Server: TeaMoni v'+FloatToStr(version));
       Back.add('Connection: close');
       Back.add('Content-Type: text/html');
       Back.add('');
       Back.add('Die Aktion ist unbekant :-(');
    end;
  aSocket.SendMessage(Back.Text);
  aSocket.Disconnect;

[u-boot]

Ich weiss momentan nicht wie es besser geht.

Ich weiss aber, dass es besser ist, wenn der automatische Start nicht geht (Ich mein das rein sicherheitstechnisch vom Besucher aus).

[xedp3x]

Ne, ich Meine meine Client.exe ist auf dem Server 15,7 MB groß. Heruntergeladen ist sie dann 15,8 MB groß.
Also stimmt was nicht mit der Übertragung.

Im Browser kann ich schon ausführen anklicken, bringt nur nix.

[DiBo33]

Überprüfe beide (originale/geladenene) Dateien mittels Hexeditor.

Btw. ist Back eine TStringList? dann kannst du darin keine Binärdaten speichern, sondern musst die Exe quasi als Stream ausgeben.
Edit: und auch den entsprechenden Content-Type im Header ausliefern.

[xedp3x]

TStringList ist wohl das Problem.

mit dem Streamen wird es jetzt aber kompliziert...

[DiBo33]

Da wirst du nicht herum kommen, es geht ja nicht nur um die Client.exe, Bilder (innerhalb der ausgelieferten Page) bspw. musst du auch als Binärstream ausliefern, im Prinziep alles was keine reine Textdaten beinhaltet.

[xedp3x]

mir geht es jetzt nur um diese Datei.

Der Webserver ist nur da um ein paar Logs auszugeben.
Ich wolle nur ein Update der Clients ergänzen.

[BeniBela]

string ginge

[xedp3x]

Die Clients per Mail zu verschicken geht auch.
Ärgert nur meine alten Arbeitgeber...
Das kann mir jetzt aber auch egal sein

[DiBo33]

Kannst ja mal schauen, evtl. kennt ja deine aSocket Komponente eine Methode um Dateien direkt auszuliefern ohne das du diese vorher einlesen musst.

Oder schicks per Mail

[MAC]

versuch mal
>> projekt >> linken >>
Folgende CHeckboxen aktivieren:
(-g)
(-Xs)
(-Xg)
jetzt sollte deine 15 MB exe erstmal weniger groß sein...

Das Reine Ausführen (ohne deine Speicherprobleme) solltest du mit TProcess erledigen können, google einfach mal danach: "TProcess externe Anwendung starten" oder so...

Ist die Datei falsch angeliefert worden oder liegt es vielleicht daran das auf dem Server Linux instaliert ist und (ich hab keine Ahnung ob das stimmt) Dort die angaben in MB gemacht werden und auf deinen Pc Windows ( da .exe ) wo ein Megabyte als 1000 kbyte interpretiert wird und nicht als 1024 kbyte

[xedp3x]

Das Problem ist nicht die Exe noch das Ausführen.

Das Problem ist das ich beim Senden irgendwelche Zeichen ergänzt werden. Diese belässt der Browser in der Datei und somit ist die EXE unbrauchbar.
Ich lass einfach auf dem Server noch einen anderen Web-Server installieren und über den geht dann das Update.