控制台程序问题(200分)

xh1996001 · 2003-11-21

在用delphi写控制台程序时，如何获取控制台的输出内容

xh1996001 · 2003-11-21

我知道一个Output的全局变量保存这些输出，但它是只能写的，无法读

yueyaren · 2003-11-21

给个例子研究研究吧： 来自：pitts 时间：2000-11-6 21:15:00 一个控制台程序，读一个二进制文件，处理后，向屏幕输出。。。 关键的问题就是：如何向控制台输出流？？？ 搞不定啊：（（（   来自：xiao.lit 时间：2000-11-06 21:18:00 cout << "haha just kidding" << endl; 我想 write 和 writeln 应该可以的吧   来自：pitts 时间：2000-11-06 21:29:00 是 Delphi 的 {$APPTYPE CONSOLE} 控制台程序... 用 Write 不能写流，错误为：illegal type in Write/Writeln statement ... 想用 WriteConsole 试一试可是不会用

来自：花花公子时间：2000-11-06 21:39:00 BOOL WriteConsole( HANDLE hConsoleOutput, // handle to screen buffer CONST VOID *lpBuffer, // write buffer DWORD nNumberOfCharsToWrite, // number of characters to write LPDWORD lpNumberOfCharsWritten, // number of characters written LPVOID lpReserved // reserved ); 这个API函数可以高定!注意是控制台程序,不是简单的C/c++程序 下面这个小程序在至于MSDN #include <windows.h> void NewLine(void); void ScrollScreenBuffer(HANDLE, INT); HANDLE hStdout, hStdin; CONSOLE_SCREEN_BUFFER_INFO csbiInfo; void main(void) { LPSTR lpszPrompt1 = "Type something and press Enter:/n"; LPSTR lpszPrompt2 = "Type any key: "; CHAR chBuffer[256]; DWORD cRead, cWritten, fdwMode, fdwOldMode; WORD wOldColorAttrs; // Get handles to STDIN and STDOUT. hStdin = GetStdHandle(STD_INPUT_HANDLE); hStdout = GetStdHandle(STD_OUTPUT_HANDLE); if (hStdin == INVALID_HANDLE_VALUE || hStdout == INVALID_HANDLE_VALUE) { MyErrorExit("GetStdHandle"); } // Save the current text colors. if (! GetConsoleScreenBufferInfo(hStdout, &csbiInfo)) MyErrorExit("GetConsoleScreenBufferInfo"); wOldColorAttrs = csbiInfo.wAttributes; // Set the text attr. to draw red text on black background. if (! SetConsoleTextAttribute(hStdout, FOREGROUND_RED)) MyErrorExit("SetConsoleTextAttribute"); // Write to STDOUT and read from STDIN by using the default // modes. Input is echoed automatically, and ReadFile // does not return until a carriage return is typed. // // The default input modes are line, processed, and echo. // The default output modes are processed and wrap at EOL. while (1) { if (! WriteFile( hStdout, // output handle lpszPrompt1, // prompt string lstrlen(lpszPrompt1), // string length &cWritten, // bytes written NULL) ) // not overlapped break; if (! ReadFile( hStdin, // input handle chBuffer, // buffer to read into 255, // size of buffer &cRead, // actual bytes read NULL) ) // not overlapped break; if (chBuffer[0] == 'q') break; } // Turn off the line input mode, and echo the input mode. if (! GetConsoleMode(hStdin, &fdwOldMode)) MyErrorExit("GetConsoleMode"); fdwMode = fdwOldMode & ~(ENABLE_LINE_INPUT | ENABLE_ECHO_INPUT); if (! SetConsoleMode(hStdin, fdwMode)) MyErrorExit("SetConsoleMode"); // Prompt for input. if (! WriteFile( hStdout, // output handle lpszPrompt2, // prompt string lstrlen(lpszPrompt2), // string length &cWritten, // bytes written NULL) ) // not overlapped MyErrorExit("WriteFile"); // Without line and echo input modes, ReadFile returns // when any input is available. Carriage returns must // be handled, and WriteFile is used to echo input. while (1) { if (! ReadFile(hStdin, chBuffer, 1, &cRead, NULL)) break; if (chBuffer[0] == '/r') NewLine(); else if (! WriteFile(hStdout, chBuffer, cRead, &cWritten, NULL)) break; if (chBuffer[0] == 'q') break; } // Restore the original console mode. if (! SetConsoleMode(hStdin, fdwOldMode)) MyErrorExit("SetConsoleMode"); // Restore the original text colors. if (! SetConsoleTextAttribute(hStdout, wOldColorAttrs)) MyErrorExit("SetConsoleTextAttribute"); } // The NewLine function handles carriage returns when the processed // input mode is disabled. It gets the current cursor position // and resets it to the first cell of the next row. void NewLine(void) { if (! GetConsoleScreenBufferInfo(hStdout, &csbiInfo)) MyErrorExit("GetConsoleScreenBufferInfo"); csbiInfo.dwCursorPosition.X = 0; // If it is the last line in the screen buffer, scroll // the buffer up. if ((csbiInfo.dwSize.Y-1) == csbiInfo.dwCursorPosition.Y) { ScrollScreenBuffer(hStdout, 1); } // Otherwise, advance the cursor to the next line. else csbiInfo.dwCursorPosition.Y += 1; if (! SetConsoleCursorPosition(hStdout, csbiInfo.dwCursorPosition)) { MyErrorExit("SetConsoleCursorPosition"); } }   来自：pitts 时间：2000-11-07 19:56:00 再简单说一下问题吧： Delphi 写控制台程序，已知一个 TMemoryStream ，如何将其输出到控制台窗口(Dos)? 有 API WriteConsole 可以利用，但是不会用啊，好笨啊偶：（（（（ The WriteConsole function writes a character string to a console screen buffer beginning at the current cursor location. BOOL WriteConsole( HANDLE hConsoleOutput, // handle to a console screen buffer CONST VOID *lpBuffer, // pointer to buffer to write from DWORD nNumberOfCharsToWrite, // number of characters to write LPDWORD lpNumberOfCharsWritten, // pointer to number of characters written LPVOID lpReserved // reserved ); Parameters hConsoleOutput Identifies the console screen buffer to be written to. The handle must have GENERIC_WRITE access. lpBuffer Points to a buffer that contains characters to be written to the screen buffer. nNumberOfCharsToWrite Specifies the number of characters to write. lpNumberOfCharsWritten Points to a 32-bit variable that receives the number of characters actually written. lpReserved Reserved; must be NULL. Return Values If the function succeeds, the return value is nonzero. If the function fails, the return value is zero. To get extended error information, call GetLastError. Remarks WriteConsole writes characters to a console screen buffer. It behaves like the WriteFile function, except it can write in either Unicode (wide-character) or ANSI mode. To create an application that maintains a single set of sources compatible with both modes, use WriteConsole rather than WriteFile. Although WriteConsole can be used only with a console screen buffer handle, WriteFile can be used with other handles (such as files or pipes). WriteConsole fails if used with a standard handle that has been redirected to be something other than a console handle.   来自：pitts 时间：2000-11-09 20:13:00 后来有人很简单就搞定了。。。 program ShowStream; {$APPTYPE CONSOLE} uses Windows, SysUtils, Classes; var sIn: TFileStream; sOut: THandleStream; begin sIn := TFileStream.Create('f:/music1.gif', fmOpenRead); try sOut := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE)); try sOut.CopyFrom(sIn, sIn.Size); finally sOut.Free; end; finally sIn.Free; end; end.   来自：pitts 时间：2000-11-09 20:19:00 多人接受答案了。

lichdr · 2003-11-21

帖一段。 高级I/O操作：读输入事件     用基本I/O例程就可以读写控制台数据。不过，因为控制台只是一种特殊的窗口，我们可以用其它API调用来操作这个窗口，接收控制台输入（包括鼠标输入）。在这个部分，我们将讨论不用Readln，从较底层接收控制台键盘和鼠标输入。     Windows可以识别两种层次的控制台I/O。上面的部分已经看到"较高层次"的控制台I/O，这种类型的控制台输入API调用是：     function ReadFile(hFile: THandle; var Buffer; nNumberOfBytesToRead: DWORD;         var lpNumberOfBytesRead: DWORD; lpOverlapped: POverlapped): BOOL; stdcall;     function ReadConsole(hConsoleInput: THandle; lpBuffer: Pointer; nNumberOfCharsToRead: DWORD;         var lpNumberOfCharsRead: DWORD; lpReserved: Pointer):BOOL; stdcall;     在控制台窗口中使用上面两个函数效果基本一样。不同的是ReadConsole能从控制台读入Unicode字符，而ReadFile可以用于非控制台操作，比如可能重定向到标准输入的文件、内存操作。控制台根据当前代码页判断输入的是ANSI还是Unicode字符，这个问题我们稍后讨论。除非你需要读Unicode数据，否则就使用Readln。它映射到ReadFile，能够正确地操作重定向了的输入。     可以注意到，两个函数都需要文件句柄作为参数。可以用GetStdHandle从控制台得到参数句柄。实际上，所有这些API调用都需要传入控制台句柄，要么是输入缓冲句柄，要么是输出缓冲句柄。     为了更全面地控制控制台输入，也可以用"底层"输入的方法，这种方法在控制台事件队列中设置一个钩子。事件队列和Windows消息队列差不多，不过是接收输入事件，而非消息。在控制"底层"控制台输入时，可以用以下五个关键的API函数：     function ReadConsoleInput(hConsoleInput: THandle; var lpBuffer: TInputRecord; nLength: DWORD;          var lpNumberOfEventsRead: DWORD): BOOL; stdcall;     function WriteConsoleInput(hConsoleInput: THandle; const lpBuffer: TInputRecord; nLength: DWORD;          var lpNumberOfEventsWritten: DWORD): BOOL; stdcall;     function PeekConsoleInput(hConsoleInput: THandle; var lpBuffer: TInputRecord; nLength: DWORD;          var lpNumberOfEventsRead: DWORD): BOOL; stdcall;     function GetNumberOfConsoleInputEvents(hConsoleInput: THandle; var lpNumberOfEvents: DWORD):          BOOL; stdcall;     function FlushConsoleInputBuffer(hConsoleInput: THandle): BOOL; stdcall;         hConsoleInput参数是API调用的返回值。     GetStdHandle(STD_INPUT_HANDLE)     其它的参数可以见其名而知其意，不再赘述。唯一要注意的是TinputRecord类型。TinputRecord是INPUT_RECORD结构的Delphi别名。这个结构其实是五种输入事件类型的集合。第一个字段，EventType，指明后面跟着的是何种事件记录类型。在MSDN上有事件类型的详细信息。我们最关心的是鼠标和键盘事件。另外三种用得较少的事件类型是：     * WINDOW_BUFFER_SIZE_EVENT 屏幕大小改变时发出     * MENU_EVENT 用户使用控制台菜单或工具栏时发出     * FOCUS_EVENT 控制台得到输入焦点时发出     WINDOW_BUFFER_SIZE事件很不常用，因为一般而言用户不会主动去改变控制台窗口大小。WINDOW_BUFFER_SIZE事件之发生于某些特定的控制台模式，且常常用于重画屏幕。另外两个事件，MENU_EVENT和FOCUS_EVENT由Windows内部使用，基本找不到相关文档资料。微软甚至建议应该"忽略它们"。     如果控制台处在活动状态，当一个键被按下时，就激发KEY_EVENT事件。普通的字母、数字等可打印键和Shift/Ctrl、功能键等都是如此，类似于WM_KEYPRESS事件。在KEY_EVENT_RECORD类型中，可以包括以下数据： * bKeyDown 如果有键被按下，则为真；被释放则为假。 * wRepeatCount 在一行里的击键次数。 * wVirtualKeyCode 按键的虚拟键码。 * wVirtualScanCode 键盘扫描码。 * UnicodeChar 按下的Unicode字符。 * AsciiChar 按下的ASCII字符。 * dwControlKeyState 控制键状态。     当控制台处于正确的模式（缺省状态），在屏幕缓冲上产生鼠标事件时，激发MOUSE_EVENT事件。接受到的数据记录包括以下信息： * dwMousePosition 事件发生时鼠标的坐标。 * dwButtonState 按下的鼠标键的位掩码。 * dwControlKeyState 控制键状态。 * dwEventFlags 事件类型。     比较难以理解的是鼠标键位掩码。它包括了32个可按下的鼠标键位置。一般人不会用到32键鼠标，所以只有前五个键被预定义为常量。对于典型的三键鼠标，要用到的常量是： * FROM_LEFT_1ST_BUTTON_PRESSED * RIGHTMOST_BUTTON_PRESSED * FROM_LEFT_2ND_BUTTON_PRESSED     这三个变量对应于三个DWORD值，循序分别为：左、右、左边第二个。     下面的代码段展示了如何截获键盘和鼠标事件。程序开始运行时，会发生一些很有意思的事。首先，注意[Ctrl][C]组合键，按下这两个键，程序会结束。Windows安装了一个内部击键句柄，[Ctrl][C]和[Ctrl][Break]都会导致程序结束。 {$APPTYPE CONSOLE} program ConsoleInput; uses Windows; var   hInput: THandle;   arrInputRecs: array[0..9] of TInputRecord;   dwCur, dwCount: DWORD;   cCur: Char;   coorCur: TCoord; begin   hInput := GetStdHandle(STD_INPUT_HANDLE);   while True do begin     ReadConsoleInput(hInput, arrInputRecs[0], 10, dwCount);      for dwCur := 0 to 10 - 1 do        case arrInputRecs[dwCur].EventType of         KEY_EVENT:           with arrInputRecs[dwCur].Event.KeyEvent do begin             cCur := AsciiChar;             if cCur = '' then               if bKeyDown then                 Writeln('按下了不可打印键。')                else                 Writeln('松开了不可打印键。')   //你也可以用wVirtualKeyCode取得功能键码，F1是112，以此类推。             else               if bKeyDown then                 Writeln('按下 ', cCur, ' ',                         wRepeatCount, ' 次。')               else                 Writeln('松开 ', cCur, ' 键。');           end;         { 为避免与WINDOWS的mouse_event函数冲突，Delphi重命名了MOUSE_EVENT事件。}         _MOUSE_EVENT:           with arrInputRecs[dwCur].Event.MouseEvent do             begin                coorCur := dwMousePosition;               if dwEventFlags = 0 then                 Writeln('鼠标键按下，坐标：', coorCur.X,                         ',', coorCur.Y);             end;        end; // case    end; // while end.     在程序刚开始运行时，偶尔会看到"键"这个字符串显示出来。这是因为程序一开始运行，[Enter]键就被释放。字符串'松开了' + #13 + '键。' 被打印出来。     最后要注意的一点是，有关KEY_EVENT_RECORD类型的文档指出，按下/松开[Alt]键而没有同时按下其它键，不会引发输入事件。但是，我们的示例程序却表明文档资料不正确。按下[Alt]键同样会引发输入事件。

xh1996001 · 2003-11-21

看不太懂。 我现在是使用Writeln向控制台输出了文字 在控制台程序执行完后我要将在控制台上输出的文字保存 所以要获取前面已经输出的文字

lichdr · 2003-11-21

我也沒做過，我這裡有這篇文章的全文。都帖上來太長了。 怎麼發給你。

xh1996001 · 2003-11-21

hxie@wind.com.cn 谢谢

zhksoft · 2003-11-21

我没明白！！delphi控制台和其它控制台一样，你写什么就显示什么，怎么？你写也什么而不知道读回什么了？还是还要执行其它程序，要得到其它程序的执行结果？？ 你用Writeln向控制台输出了文字时，先把输出的文字保存为变量，然后用WRITELN　这个变量就行了， 如果你要得到其它程序的执行结果，那就要拦截屏幕输出了，具体怎么做我也不知

xh1996001 · 2003-11-21

to zhksoft：如果控制台程序每做一件事都输出一些内容，那么我不是要每次都记住自己写了些什么；这个我也知道，这是个我认为最笨的办法，而且不能保证不漏掉。 为什么不能到最后将在控制台上输出的内容都得到再保存呢？

lichdr · 2003-11-21

已發出，注意查收

lichdr · 2003-11-24

樓主，如果那個文件打不開，可以到這裡看。 http://www.codelphi.com/

xh1996001 · 2003-11-25

散分了

控制台程序问题(200分)

xh1996001

Unregistered / Unconfirmed

xh1996001

Unregistered / Unconfirmed

yueyaren

Unregistered / Unconfirmed

lichdr

Unregistered / Unconfirmed

xh1996001

Unregistered / Unconfirmed

lichdr

Unregistered / Unconfirmed

xh1996001

Unregistered / Unconfirmed

zhksoft

Unregistered / Unconfirmed

xh1996001

Unregistered / Unconfirmed

lichdr

Unregistered / Unconfirmed

lichdr

Unregistered / Unconfirmed

xh1996001

Unregistered / Unconfirmed

Similar threads