Autor Beitrag
Dexta
Hält's aus hier
Beiträge: 2



BeitragVerfasst: Mo 08.07.02 10:47 
Hi Folks !

Ich habe mir überlegt, eine Ping Prozedur zu basteln, ohne irgendwelche Komponenten installieren zu müssen...
(Ich bin nicht grade fit in Delphi :oops: )

Also, ich habe mir eine ding.bat Datei angelegt, in der

ping %1 -n %2
pause

steht. Jetzt will ich, dass man in Delphi die IP und die Anzahl der Pingversuche eingibt, und er dann die Parameter an die ding.bat anhängt.
Aber beim versuch das so zu machen, mekkert Delphi, das er die IP (also der String von TEdit) nicht dranhängen kann, weil er halt PChar braucht... :(
Mein Source sieht ca. so aus:
Winexec ('ding.bat' + edit1.text + ' ' + Spinedit1.value,30)

und nu ? *g*

Thanks in advance
Dexta (Marius)
Maggi
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 160

WIN XP, WIN 2003
D5 Enter D 2006
BeitragVerfasst: Mo 08.07.02 14:05 
Hi,

dann mache doch einfach ein PCahr davon,....

Winexec (PChar('ding.bat' + edit1.text + ' ' + Spinedit1.value,30) )

ich denke so könnte es gehen..

Maggi
GruppeCN
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 322



BeitragVerfasst: Mi 30.10.02 21:11 
Titel: Genau so
Genau so geht´s:
ausblenden Quelltext
1:
FertigerPChar := PChar(String);					


Denk dran, dass hier nicht das normale StrtoInt oder so funktioniert. Das hier ist ein bisschen anders.

_________________
Warum sind die Sachen, die du suchst, immer da, wo du zuletzt nachsiehst?
Weil du aufhörst zu suchen, wenn du sie gefunden hast.
Luckie
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Mi 30.10.02 22:42 
Und in einem Jahr funktioniert das Programm nicht mehr. :wink:

Aus dem PSDK:
Zitat:

WinExec

The WinExec function runs the specified application.

Note This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function.


Soll heißen: Es kann sein, dass es diese Funktion in zukünftigen Windows-Versionen nicht mehr gibt.
Popov
Gast
Erhaltene Danke: 1



BeitragVerfasst: Mi 30.10.02 22:53 
Maggi hat folgendes geschrieben:
Winexec (PChar('ding.bat' + edit1.text + ' ' + Spinedit1.value,30) )


Ich glaube nicht, daß dieses Programm auf Jahre ausgelegt ist.

Aber auch so wurde das nicht funktionieren, da hier ein Parameter feht. Es sei den, daß eine Klammer falsch gesetzt ist und 30 der Konstantenwert ist.
Raphael82
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 67



BeitragVerfasst: Do 31.10.02 11:26 
Benutze ShellExecute!!

Raphael

_________________
Share your knowledge to receive perfection!