فتح TStream على المدخل / المخرج المعياري في التطبيق وحدة دلفي

Question

وأنا أحاول أن أكتب تطبيق وحدة دلفي الذي يخلق TStream لإدخال القياسي الخاص به، وTStream آخر لانتاجها القياسية.

و(سيتم إطلاقها من قبل التطبيق المضيف مع المدخلات والمخرجات توجيهك إلى الأنابيب، وسيتم تمرير البيانات الثنائية إلى / من هذا التطبيق المضيف، لذلك TStream سيكون أفضل بكثير مناسبة تماما لهذه المهمة من ReadLn / WriteLn. )

وكيف يمكنني التوجه نحو فتح TStream على الإدخال القياسي أو الإخراج القياسي؟

Answer 1

ومن على قمة رأسي:

  InputStream := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
  OutputStream := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE));

وتعطي أن يذهب ..