| |
VB & Windows APICreateProcess: 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 |
|
|
sevAniGif (VB/VBA)
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 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
|
|