紧急！！！控制台如何向屏幕输出流？？？(100分)

pitts · 2000-11-06

一个控制台程序，读一个二进制文件，处理后，向屏幕输出。。。 关键的问题就是：如何向控制台输出流？？？ 搞不定啊：（（（

xiao.lit · 2000-11-06

cout << "haha just kidding" << endl; 我想 write 和 writeln 应该可以的吧

pitts · 2000-11-06

是 Delphi 的 {$APPTYPE CONSOLE} 控制台程序... 用 Write 不能写流，错误为：illegal type in Write/Writeln statement ... 想用 WriteConsole 试一试可是不会用

花花公子 · 2000-11-06

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

再简单说一下问题吧： 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   &nbsp

;   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

后来有人很简单就搞定了。。。 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

多人接受答案了。

紧急！！！控制台如何向屏幕输出流？？？(100分)

pitts

Unregistered / Unconfirmed

xiao.lit

Unregistered / Unconfirmed

pitts

Unregistered / Unconfirmed

花花公子

Unregistered / Unconfirmed

pitts

Unregistered / Unconfirmed

pitts

Unregistered / Unconfirmed

pitts

Unregistered / Unconfirmed

Similar threads