XProfan

Français

Juergen
Overr

allô

peux mir quelqu'un dire comment je beim finissons eines Programms (ou bien aussi au cours de qui Laufzeit) une Textausgabe sur qui CMD-Line erzeuge, si je cela Programme dans einer DOS-Box starte?

cela Programme soll sur une Batch-Dossier gestartet volonté et pour Beendigung une String zurückgeben, qui dans qui DOS-Box trop voyons ist, bzw plus verarbeitet volonté peux.
Bisher hab je ca seulement sur den le détour einer separaten Dossier hin bekommen.

Gruss Jürgen
XProfan10

18.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

tu peux cela Programme pas wirklich dans einer DOS-Box courir laisser. c'est plan ne...aucune DOS Programme - es wird toujours comme eigener Prozess sous Windows courir.

tu peux avec Profan une Console erzeugen:
[...]

là courir ensuite mais wiederum aucun DOS-Programme. si on cela irgendwie relier peux? Such la fois pour "Console", peut-être hilft Dir là quoi plus

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Juergen
Overr

tu peux cela Programme pas wirklich dans einer DOS-Box courir laisser. c'est plan ne...aucune DOS Programme - es wird toujours comme eigener Prozess sous Windows courir

cela stört pas plus, là je ne...aucune la fenêtre erzeuge, fällt cela pas sur.

qui cherche pour Console hab je durchgeführt.

dabei suis je sur cette Code gestossen:
Kompilieren Marque Séparation

 {$runtime prfrun32.xp9.nores.console.exe}
 {$crq}
Declare text$,x&,y&,con&,conrect#
Dim conrect#,20
Def AllocConsole(0) !"KERNEL32","AllocConsole"
Def FreeConsole(0) !"KERNEL32","FreeConsole"
Def GetStdHandle(1) !"KERNEL32","GetStdHandle"
Def SetConsoleTitle(1) !"KERNEL32","SetConsoleTitleA"
Def SetConsoleTextAttribute(2) !"KERNEL32","SetConsoleTextAttribute"
Def WriteConsole(5) !"KERNEL32","WriteConsoleA"

Proc PrintCon

    Parameters context$
    context$=context$+Chr$(13)+chr$(10)
    WriteConsole(con&,addr(context$),len(context$),addr(x&),0)

EndProc

AllocConsole()
text$="Console Testfenster"
SetConsoleTitle(addr(text$))
con&=GetStdHandle(-11)

Whileloop 100

    PrintCon "Test "+Str$(Rnd(1000))

Wend

WaitInput
FreeConsole()
Fin

cette Code ließ sich allerdings seulement compilieren après que je qui la ligne 1 et 2 auskommentiert habe (quoi bedeuten cet car??)

Eigentlich oui c'est ca cela quoi je cherche,.
qui erzeugte Ausgabe wird allerdings dans einer NEUEN Console erzeugt, pas dans qui dans qui cela Programme gestartet wurde.

.

18.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

XPSE est un Precompiler pour XProfan [...]

avec qui Console peux je Dir malheureusement pas weiterhelfen. qui Link dans meiner ersten Antwort hilft Dir pas?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Juergen
Overr

malheureusement non.

aussi dans diesem Beispiel wird une NEUE Console ouvert.
Weiterhin bricht cela Programme avec einer Fehlermeldung ab:

...Programme hat une faute festgestellt et doit finissez volonté ....

(gestestet sous XP-Pro 2002)

.

18.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

J.
Strahl

qui Ausgabe à cela Clipboard envoyons, et dans qui DOS Box auslesen. Allerdings, funzt cela soweit aussi seulement avec einem Zusatzprogramm.

winclip [...]

avec cela peux on ensuite cela Clipboard dans qui Console auslesen.

Windows 7 Ultimate 64 * 12 GB Ram * XProfan 11.2a * PRFellow * PRFPAD

18.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

nie gemacht Programme la fois quelque chose gelichtet. peut-être hilft es Dir.
Kompilieren Marque Séparation

 $I profalt.inc
PRFellow-Vorlage
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Beispiel-Programm für eine fenstergebundene Konsole
Benötigt Profan 6.1 wegen Addr-Funktion
(Umstellung auf Profan 5.0 mit Bereichsvariable ist möglich)
(c) 2000 Thomas Hölzer, Siegen - Alle Rechte vorbehalten
Def AllocConsole(0) !"KERNEL32","AllocConsole"
Def CloseHandle(1) !"KERNEL32","CloseHandle"
Def CreateConsoleScreenBuffer(5) !"KERNEL32","CreateConsoleScreenBuffer"
Def FillConsoleOutputAttribute(5) !"KERNEL32","FillConsoleOutputAttribute"
Def FlushConsoleInputBuffer(1) !"KERNEL32","FlushConsoleInputBuffer"
Def FreeConsole(0) !"KERNEL32","FreeConsole"
Def GetConsoleTitle(2) !"KERNEL32","GetConsoleTitleA"
Def GetConsoleScreenBufferInfo(2) !"KERNEL32","GetConsoleScreenBufferInfo"
Def GetStdHandle(1) !"KERNEL32","GetStdHandle"
Def ReadConsole(5) !"KERNEL32","ReadConsoleA"
Def ReadConsoleOutputCharacter(5) !"KERNEL32","ReadConsoleOutputCharacterA"
Def ReadFile(5) !"KERNEL32","ReadFile"
Def SetConsoleActiveScreenBuffer(1) !"KERNEL32","SetConsoleActiveScreenBuffer"
Def SetConsoleCursorPosition(2) !"KERNEL32","SetConsoleCursorPosition"
Def SetConsoleMode(2) !"KERNEL32","SetConsoleMode"
Def SetConsoleTextAttribute(2) !"KERNEL32","SetConsoleTextAttribute"
Def SetConsoleTitle(1) !"KERNEL32","SetConsoleTitleA"
Def WriteConsole(5) !"KERNEL32","WriteConsoleA"
Def WriteConsoleOutputCharacter(5) !"KERNEL32","WriteConsoleOutputCharacterA"
Def WriteFile(5) !"KERNEL32","WriteFile"
Def OemToCharBuff(3) !"USER32","OemToCharBuffA"
Def CharToOemBuff(3) !"USER32","CharToOemBuffA"
Def FillMemory(3) !"KERNEL32","RtlFillMemory"
Def ZeroMemory(2) !"KERNEL32","RtlZeroMemory"
Def ExitProcess(1) !"KERNEL32","ExitProcess"
Def MakeLong(2) Or(&(1),Mul(&(2),$10000))
Def HiWord(1) Div&(&(1),$10000)
Def LoWord(1) And(&(1),$FFFF)
Def GetInput(0) $(0)
Def GetCleanInput(0) Upper$(Trim$($(0)))
Def RemoveCR(1) Translate$($(1),Add$(Chr$(13),Chr$(10)),Chr$(32))
Declare hinput&,houtput&,herror&,hscrbuf&
Declare BUF_INFO#,c_buf#
Declare INPUT_REC#

Proc GetScreenBufSize

    Declare size&
    Dim BUF_INFO#,20
    GetConsoleScreenBufferInfo(hscrbuf&,BUF_INFO#)
    Let size&=Long(BUF_INFO#,0)
    Let size&=LoWord(size&) * HiWord(size&) bei WideChar * 2, aber wir nehmen ANSI
    Dispose BUF_INFO#
    Return size&

EndProc

Proc LineColor

    Parameters fg%,bg%
    Declare colattr&
    Let colattr&=Or(fg%,Mul(bg%,4))
    SetConsoleTextAttribute(hscrbuf&,colattr&)

EndProc

Proc _WriteLn

    Parameters txt$,oem_convert%,cr%
    Declare written&
    Let txt$=txt$
    Case cr%: Let txt$=txt$;Chr$(13);Chr$(10)
    Dim c_buf#,(Len(txt$) + 1)
    String c_buf#,0=txt$
    Case oem_convert%: CharToOemBuff(c_buf#,c_buf#,Len(txt$))
    WriteConsole(hscrbuf&,c_buf#,Len(txt$),Addr(written&),0)
    WriteFile(hscrbuf&,c_buf#,Len(txt$),Addr(written&),0)
    Dispose c_buf#

EndProc

Proc Write

    Parameters txt$
    _Writeln txt$,1,0

EndProc

Proc WriteCR

    _Writeln "",0,1

EndProc

Proc WriteLn

    Declare txt$,i%
    Let i%=1

    WhileNot Gt(i%,%pcount)

        Let txt$=Add$(txt$,$(i%))
        Inc i%

    Wend

    _Writeln txt$,1,1

EndProc

Proc WriteCGI

    Parameters txt$
    _Writeln txt,0,0

EndProc

Proc WriteLnCGI

    Declare txt$,i%
    Let i%=1

    WhileNot Gt(i%,%pcount)

        Let txt$=Add$(txt$,$(i%))
        Inc i%

    Wend

    _WriteLn txt$,0,1

EndProc

Proc ReadLn

    Declare read&,txt$
    Dim c_buf#,261
    ZeroMemory(c_buf#,261)
    ReadConsole(hinput&,c_buf#,261,Addr(read&),0)
    Let txt$=RemoveCR(String$(c_buf#,0))
    Dispose c_buf#
    Return txt$

EndProc

Proc ReadOutput

    muß noch auf zeilenweises Auslesen umgestellt werden wg. CR
    Declare txt$,read&,size&
    GetScreenBufSize
    Let size&=&(0)
    Dim c_buf#,size&
    ZeroMemory(c_buf#,size&)
    ReadConsoleOutputCharacter(hscrbuf&,c_buf#,size&,0,Addr(read&))
    OemToCharBuff(c_buf#,c_buf#,read&)
    Let txt$=String$(c_buf#,0)
    Dispose c_buf#
    Let txt$=Translate$(txt$, "  ","")
    Return Trim$(txt$)
    Return txt$

EndProc

Proc SetConsoleCaption

    Parameters txt$
    Dim c_buf#,Add(Len(txt$),1)
    String c_buf#,0=txt$
    SetConsoleTitle(c_buf#)
    Dispose c_buf#

EndProc

Proc GotoXY

    Parameters x%,y%
     $D "",x%,y%,hscrbuf&
    SetConsoleCursorPosition(hscrbuf&,MakeLong(x%,y%))

EndProc

Proc ClearConsole

    Parameters color&
    Declare written&,size&
     $B "2"
    GetScreenBufSize
    Let size&=&(0)
    Case (color& < 7): color&=7
    FlushConsoleInputBuffer(hscrbuf&)
    SetConsoleTextAttribute(hscrbuf&,color&)
    Dim c_buf#,size&
     $B "3"
    FillMemory(c_buf#,size&,32)
    WriteConsoleOutputCharacter(hscrbuf&,c_buf#,size&,0,Addr(written&))
    FillConsoleOutputAttribute(hscrbuf&,color&,size&,0,Addr(written&))
    Dispose c_buf#
    traceon
    GotoXY 0,0
    traceoff

EndProc

Proc _CreateCon

    Parameters title$,own_win%
    Case own_win%: AllocConsole()
    SetConsoleCaption title$
    Let hinput&=GetStdHandle(-10)
    Let houtput&=GetStdHandle(-11)
    Let herror&=GetStdHandle(-12)
    Let hscrbuf&=houtput&
    SetConsoleMode(hscrbuf&,6)

EndProc

Proc CreateConsoleInWindow

    Parameters txt$
    _CreateCon txt$,1

EndProc

Proc CreateConsole

    Parameters txt$
    _CreateCon txt$,0

EndProc

Beispiel mit Mini-Befehls-Interpreter

Proc Beispiel_Ausgabe_Im_Fenster

    Declare c_exit%,txt$

    Proc Info

        WriteLn "(c) 2000 Thomas Hölzer, Siegen, Alle Rechte vorbehalten"

    EndProc

    Proc ShowHelp

        ClearConsole 31
        Info
        WriteLn ""
        WriteLn "exit oder CTRL-C : Beenden"
        WriteLn "?                : Hilfe"
        WriteLn "cls              : Bildschirm löschen"
        WriteLn "about            : Info"
        WriteLn ""

    EndProc

    CreateConsoleInWindow "32 Bit Profan²-Konsolen-Fenster - Powered by PRFellow 2001"
    CreateConsole "32 Bit Profan²-Konsole - Powered by PRFellow 2001"
    ClearConsole 31 weiß auf blau
    WriteLn "Geben Sie ? für Hilfe ein und drücken Sie ENTER"

    WhileNot c_exit%

        txt$=Trim$(ReadLn())
        txt$=GetCleanInput()

        If Equ$(txt$,"")

        ElseIf (txt$ = "ABOUT")

            Info

        ElseIf (txt$ = "EXIT")

            Inc c_exit%

        ElseIf Equ$(txt$,"?")

            ShowHelp

        ElseIf Equ$(txt$,"CLS")

            ClearConsole 31

        Else

            WriteLn Add$("Unbekannter Befehl: ",GetInput())

        EndIf

    Wend

    FreeCo

/a>() ExitProcess(0) ENDPROC

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

cela "Problem" ist ici un d'autre - car qui Runtime trägt pas cela Consolebit. je peux par patchen qui Exe cela Consolebit mettons et wieder solche Runtimes zum Télécharger* anbieten - avec cela wird ensuite aussi cela "vorhandene" Konsolenfenster de allocconsole alloziiert et genutzt. je hatte imho pour X9 solche Runtimes la fois zum magasin im Downloadcenter angeboten.

*diesmal mais sicherheitshalber seulement pour diejenigen downloadbar, qui aussi per Kompilernachweis (siehe Verifizierung im Profil) nachgewiesen avons, dass vous aussi entsprechendes XProfan besitzen

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Juergen
Overr

cela serait mir très plus aider. qui le détour sur une temp-Dossier mais est sur la durée quelque chose compliqué.

(btw: qui lettre zum verifizieren ist unterwegs)

@Jörg
je hab la fois versucht une EXE aus dem Listing trop faire, mir fehlt en supplément mais qui profalt.inc

Salut Jürgen
XProfan10

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

je hab la fois versucht une EXE aus dem Listing trop faire, mir fehlt en supplément mais qui profalt.inc

qui brauchst Du avec XProfan10 aussi gar pas. simple auskommentieren. encore sinnvoller:
Alle râteau- et Vergleichsfunktionen dans Operatoren umändern, z. B. x% = Ajouter(y%,4) wird trop x% = y% + 4
avec XProfan11 gibt es qui Funktionen ensuite nämlich pas plus.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

[offtopic]
@Jürgen: Verifi: s'il te plaît verzeih le moi avant dem 22. keinen Rückbrief generieren peux là je pas im Pays suis - cela wird ensuite mais naturellement anschliessend de mir nachgeholt.
[/offtopic]

19.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation