[CreateProcess@B3D] Rückgabe aus CMD auslesen

Übersicht

BlitzBasic

DLLs und Userlibs

	Chester Betreff: [CreateProcess@B3D] Rückgabe aus CMD auslesen	Di, Mai 12, 2009 19:28 Antworten mit Zitat
Hi, für eines meiner Projekte war es erfordlich die Konsolenrückgabe auszulesen. Da dies in Blitz3D so nicht geht, hab ich mir hierzu eine kleine DLL geschrieben, vielleicht braucht es ja irgendwann mal jemand Das ganze läuft über sog. Pipes. Zuerst muss man mit PipeOpen das Programm oder den Konsolenbefehl ausführen und dann mit ReadPipe und PipeEof, ähnlich wie bei einer Textdatei, auslesen und zuletzt mit PopeClose wieder schließen. Der Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Pipe = PipeOpen("dir") Repeat Print ReadPipe(Pipe) Until PipeEof() PipeClose(Pipe) Waitkey() listet die Rückgabe des DIR Kommandos, also alle enthaltenen Dateien und Ordner im momentanen Verzeichnis, auf. In der Zipdatei sind noch zwei weitere Beispiele enthalten: Download! Mfg Chester

Chester

Betreff: [CreateProcess@B3D] Rückgabe aus CMD auslesen

Di, Mai 12, 2009 19:28
Antworten mit Zitat

Hi,

für eines meiner Projekte war es erfordlich die Konsolenrückgabe auszulesen. Da dies in Blitz3D so nicht geht, hab ich mir hierzu eine kleine DLL geschrieben, vielleicht braucht es ja irgendwann mal jemand Smile

Das ganze läuft über sog. Pipes. Zuerst muss man mit PipeOpen das Programm oder den Konsolenbefehl ausführen und dann mit ReadPipe und PipeEof, ähnlich wie bei einer Textdatei, auslesen und zuletzt mit PopeClose wieder schließen.

Der Code:
Code: [AUSKLAPPEN]

Pipe = PipeOpen("dir")
Repeat
Print ReadPipe(Pipe)
Until PipeEof()

PipeClose(Pipe)
Waitkey()

listet die Rückgabe des DIR Kommandos, also alle enthaltenen Dateien und Ordner im momentanen Verzeichnis, auf.

In der Zipdatei sind noch zwei weitere Beispiele enthalten:
Download!

Mfg
Chester

Zuletzt bearbeitet von Chester am Mi, Apr 07, 2010 15:45, insgesamt einmal bearbeitet

	ozzi789	Di, Mai 12, 2009 21:34 Antworten mit Zitat
Man kann also aus jeder Konsolen anwendung den Output mitschneiden? Echt parktisch schaus mir mal in Ruhe an mal so neben bei ist das nicht das gleiche wie Code: [AUSKLAPPEN] [EINKLAPPEN] stream = CreateProcess(".......") If stream Then While Not Eof(stream) Print ReadLine$(stream) Wend EndIf mfg ozzi
0x2B \|\| ! 0x2B C# \| C++13 \| Java 7 \| PHP 5

ozzi789

Di, Mai 12, 2009 21:34
Antworten mit Zitat

Man kann also aus jeder Konsolen anwendung den Output mitschneiden?
Echt parktisch schaus mir mal in Ruhe an

mal so neben bei
ist das nicht das gleiche wie

Code: [AUSKLAPPEN]

stream = CreateProcess(".......")

If stream Then
While Not Eof(stream)
Print ReadLine$(stream)
Wend
EndIf

mfg ozzi

0x2B || ! 0x2B
C# | C++13 | Java 7 | PHP 5

	Der Eisvogel	Di, Mai 12, 2009 21:49 Antworten mit Zitat
Dürfte das selbe sein. http://www.activevb.de/tipps/v...p0272.html
Ungarische Notation kann nützlich sein. BlitzMax ; Blitz3D Win 7 Pro 64 Bit ; Intel Core i7-860 ; 8 GB Ram ; ATI HD 5750 1 GB Projekte: Window-Crasher Ich liebe es mit der WinAPI zu spielen.

Der Eisvogel

Di, Mai 12, 2009 21:49
Antworten mit Zitat

Dürfte das selbe sein. http://www.activevb.de/tipps/v...p0272.html

Ungarische Notation kann nützlich sein.
BlitzMax ; Blitz3D
Win 7 Pro 64 Bit ; Intel Core i7-860 ; 8 GB Ram ; ATI HD 5750 1 GB
Projekte: Window-Crasher
Ich liebe es mit der WinAPI zu spielen.

	Starwar	Di, Mai 12, 2009 21:54 Antworten mit Zitat
http://east-power-soft.de/inde...codes_pipe MFG

Starwar

Di, Mai 12, 2009 21:54
Antworten mit Zitat

http://east-power-soft.de/inde...codes_pipe
MFG

	Chester	Mi, Mai 13, 2009 17:34 Antworten mit Zitat
@ozzi: Das Problem allerdings ist, dass es CreateProcess nur in BlitzPlus gibt. @Starwar: Das ist dann sozusagen die "Rohvariante". Also wenn man mehr als nur den Output einzulesen vorhat, wird man damit natürlich eher ans Ziel kommen. Meine Variante ist eher als CreateProcess Äquivalent für B3D gedacht und ist auch nur unidirektional. Aber irgendwie komisch, ich habe ewig nach Pipes in Verbindung mit BlitzBasic gesucht, und bin nicht auf das gestoßen. Deshalb danke

Chester

Mi, Mai 13, 2009 17:34
Antworten mit Zitat

@ozzi:
Das Problem allerdings ist, dass es CreateProcess nur in BlitzPlus gibt.

@Starwar:
Das ist dann sozusagen die "Rohvariante". Also wenn man mehr als nur den Output einzulesen vorhat, wird man damit natürlich eher ans Ziel kommen.
Meine Variante ist eher als CreateProcess Äquivalent für B3D gedacht und ist auch nur unidirektional.
Aber irgendwie komisch, ich habe ewig nach Pipes in Verbindung mit BlitzBasic gesucht, und bin nicht auf das gestoßen. Deshalb danke Smile

	Trust	Do, Apr 11, 2013 21:11 Antworten mit Zitat
Hier um die Dll in BMax einzubinden: BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] ' Benötigte Libs ' Framework brl.basic ' Import pub.win32 ' Dll und Funktionen Laden Local DllHandle:Int = LoadLibraryA("BB_Pipe.dll") Global PipeOpen:Int(lpString:Byte Ptr)"Win32" = GetProcAddress(DllHandle,"_PipeOpen@4") Global PipeClose(pipe:Int)"Win32" = GetProcAddress(DllHandle,"_PipeClose@4") Global ReadPipe:String(pipe:Int)"Win32" = GetProcAddress(DllHandle,"_ReadPipe@4") Global PipeEof:Int()"Win32" = GetProcAddress(DllHandle,"_PipeEof@0") Hier nochmal für alle Fälle der Download CMD_Auslesen.rar
Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.

Trust

Do, Apr 11, 2013 21:11
Antworten mit Zitat

Hier um die Dll in BMax einzubinden:
BlitzMax: [AUSKLAPPEN]

' Benötigte Libs
'	Framework brl.basic
'	Import pub.win32

' Dll und Funktionen Laden
	Local DllHandle:Int  = LoadLibraryA("BB_Pipe.dll")
	
	Global PipeOpen:Int(lpString:Byte Ptr)"Win32" = GetProcAddress(DllHandle,"_PipeOpen@4")
	Global PipeClose(pipe:Int)"Win32" = GetProcAddress(DllHandle,"_PipeClose@4")
	Global ReadPipe:String(pipe:Int)"Win32" = GetProcAddress(DllHandle,"_ReadPipe@4")
	Global PipeEof:Int()"Win32" = GetProcAddress(DllHandle,"_PipeEof@0")