|
| |
VB & Windows API| CreateProcess: wie stdout in eine Textdatei umleiten? | |  | | Autor: Lilith | | Datum: 01.02.12 18:03 |
| Hallo,
CreateProcess verwende ich, um ein Programm zu starten und das Ende des Prozesses abzuwarten.
Das Programm ist ein DOS-Konsolenprogramm. Die EXE wird mit Parametern aufgerufen.
Soweit funktioniert das prima.
Nun erfordert der Aufruf eines anderen Programms, den Output in eine Datei schreiben zu lassen [im ersten Fall erledigte dies das aufgerufene Programm selbst!].
Der Output, der von diesem Programm erzeugt wird, kann in einem DOS-Befehlsfenster mit ">output.txt" problemlos in eine Datei umgeleitet werden:
programm.exe -L -r c:\input.txt>c:\output.txt Dies funktioniert nun leider aber NICHT in Verbindung mit CreateProcess, wenn ich versuche, die Dateiumleitung in die Parameteruebergabe mit zu uebernehmen:
...
cmd="c:\programm.exe -L -r c:\input.txt>c:\output.txt"
lRetVal=(CreateProcess(0&, cmd, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, _
uStart, uProc) Nach endlosen Versuchen habe ich beim googeln zumindest Hinweise gefunden, dass das grundsaetzlich ueber den Parameter hStdOutput der STARTUP Struktur moeglich sein soll, in Verbindung mit CreateFile, etwa im Beitrag von "Viorel" auf dieser Seite:
http://www.codeguru.com/forum/archive/index.php/t-406233.html
aber kein Beispiel fuer VB6 finden koennen.
Ich wueder mich riesig freuen, wenn ihr mir helfen koenntet, bin langsam am verzweifeln.
Schon mal im voraus herzlichen Dank!
Gruesse
Lilith
| |
| Re: CreateProcess: wie stdout in eine Textdatei umleiten? | | | | Autor: wb-soft | | Datum: 01.02.12 18:30 |
| Hi!
Zumindest eine Umgehung des Problems sollte möglich sein.
Auf http://www.activevb.de gibt es ein Beispiel, in dem die Rückgabe in einem String erfolgt. Das Schreiben in eine Datei ist ja dann kein Problem mehr.
mfg
WB | |
| Re: CreateProcess: wie stdout in eine Textdatei umleiten? | | | | Autor: Rippler | | Datum: 01.02.12 18:32 |
| Benötigt wird:
Text1 multiline = true
command1
unter verweise:
microsoft scripting runtime
Dim wshshell
Dim oexec
Private Sub Command1_Click()
Dim x
Dim y As Integer
Set wshshell = CreateObject("Wscript.Shell")
Set oexec = wshshell.exec("ping") 'oder was immer
x = oexec.StdOut.ReadAll()
Text1 = x
y = Len(x)
Text1 = Text1 & "->" & y
End Sub | |
Problem geloest  | | | | Autor: Lilith | | Datum: 01.02.12 20:29 |
| Herzlichen Dank fuer Eure Hilfe.
Ich konnte nach einigem Herumprobieren doch noch genau die Loesung finden, nach der ich gesucht hatte.
Im Prinzip war der erwaehnte Ansatz auf der verlinkten Seite in meinem Beitrag schon richtig, es fehlten aber noch ein paar entscheidende Dinge.
Gruesse
Lilith | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevZIP40 Pro DLL 
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.