Hallo zusammen,

Habe ein kleines Programm zum Pingen gebastelt hier mal der Codeschnipsel:

1.Ich würde gerne noch 2 Parameter an die Konsole Übergeben die an die eingetragene IP angehängt werden (-t -l).
Hab versucht sie im string zu übergeben was nicht funktioniert hat auch mit Pchar bekomm ichs nicht geregelt.

2.Wie behalte ich die Konsole offen denn diese schliesst sofort nach ausgeführtem Ping. Ich hab mal irgendwas von einem Parameter /K gelesen den ich mit übertrage der sie offen hält ?

Kann mir jemand helfen ?

Danke schon mal.

Moderiert von Narses: Delphi-Tags hinzugefügt

Hallo und

Die Parameter musst du eigentlich nur an den Inhalt von Edit1 hängen. Es wäre sinnvoll gewesen, wenn du gezeigt hättest wie du es versucht hast, dann könnte man dir auch erklären warum das nicht geht.
Richtig ist es so: PChar(Edit1.Text + ' -t -l')
Du baust zuerst den Delphi-String zusammen und castest dann auf PChar um den Wert zu übergeben.

Um eine Konsole offen zu halten musst du auch die Konsole starten, sprich die cmd.exe. Der kannst du dann übergeben, dass sie den Befehl ping aufrufen soll und da funktioniert auch /k.

Du kannst aber auch die Ausgabe einfach in deinem Programm abfangen und anzeigen. Mit GetConsoleOutput solltest du etwas finden.

So hab ichs auch versucht und ist aktuell auch so, Programm lässt sich starten keine Fehlermeldungen wenn ich dann den Button drücke flackert die Konsole kurz auf und schliesst sofort wieder.

Moderiert von Narses: Beiträge zusammengefasst


Habs mal so Versucht, kommt aber die Fehlermeldung:

[Error] Unit1.pas(29): Incompatible types: 'Integer' and 'Pointer'

Wie oft kann ich denn eigentlich PChar anwenden?
Wenn ich das richtig verstanden habe übergibt PChar einfach nur Parameter, also könnte man das x beliebig mal anwenden oder ?

Moderiert von Narses: Delphi-Tags hinzugefügt

Moin und im Forum!

Mal ne andere Frage: warum muss es denn unbedingt eine Konsole sein? Man kann von Delphi aus die ICMP-Echo-API auch direkt ansprechen.

cu
Narses

Delphi2015 hat folgendes geschrieben :

markieren Delphi-Quelltext     1: ShellExecute(Handle, 'open', PChar('cmd.exe'), PChar('/k ping'), PChar(Edit1.Text + ' -t -l'),  nil, SW_SHOW); Habs mal so Versucht, kommt aber die Fehlermeldung: [Error] Unit1.pas(29): Incompatible types: 'Integer' and 'Pointer'

Siehst du, mit Quelltext lässt sich auch sagen was eigentlich dein Problem an der Stelle ist.
Hier findest du die Doku zu ShellExecute:
msdn.microsoft.com/e...53%28v=vs.85%29.aspx
Du siehst dort (in Delphi selbst ja auch) die Funktionsparameter.

Für die Kommandozeilenparameter gibt es dort einen einzigen Funktionsparameter. Du hast hier aber die Kommandozeilenparameter auf zwei verschiedene Funktionsparameter aufgeteilt. Damit übergibst du PChar(Edit1.Text + ' -t -l') als Arbeitsverzeichnis und nil als Anzeigekommando (aber die Typen sind nicht kompatibel, nil ist ein Pointer, der Funktionsparameter aber ein Integer). Und danach ist ein Funktionsparameter zu viel.

Richtig sieht es so aus:

So packst du alle Kommandozeilenparameter für die cmd.exe in einen Funktionsparameter als PChar und übergibst alles in diesem einen Funktionsparameter.

ABER der Aufruf des ping Befehls ist noch falsch. -l gibt die Größe des Sendebuffers an, diese fehlt dahinter aber noch.

Narses hat folgendes geschrieben :

Mal ne andere Frage: warum muss es denn unbedingt eine Konsole sein? Man kann von Delphi aus die ICMP-Echo-API auch direkt ansprechen.

Deinen entsprechenden Thread mit Unit + Demo hättest du ja ruhig auch gleich verlinken können:
www.entwickler-ecke....iewtopic.php?t=53259

Super, so funktionierts !

Vielen Dank

Den Puffer trage ich noch ein.