2009-06-29 11 views
27

मैं एक डेल्फी कंसोल एप्लिकेशन लिखने की कोशिश कर रहा हूं जो अपने मानक इनपुट के लिए एक टीस्ट्रीम बनाता है, और इसके मानक आउटपुट के लिए एक और टीस्ट्रीम बनाता है।डेल्फी कंसोल ऐप में stdin/stdout पर एक टीस्ट्रीम खोलना

(यह अपने इनपुट और पाइप के लिए पुनः निर्देशित उत्पादन के साथ एक मेजबान एप्लिकेशन द्वारा शुरू किया जाएगा, और कहा कि मेजबान एप्लिकेशन से/बाइनरी डेटा गुजर कर दिया जाएगा ताकि TStream हो जाएगा बहुत ReadLn/WriteLn से काम करने के लिए बेहतर अनुकूल ।)

मैं मानक इनपुट या मानक आउटपुट पर टीस्ट्रीम खोलने के बारे में कैसे जा सकता हूं?

उत्तर

36
मेरे सिर के ऊपर बंद

:

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

दें कि एक जाना ..

+4

और हमें बताएं कि यह कृपया काम करता है! –

+4

दरअसल यह बहुत अच्छी तरह से करता है। धन्यवाद! –

+1

ध्यान दें कि GetStdHandle फ़ंक्शन के लिए आपको अपने उपयोग खंड में Windows इकाई की आवश्यकता होगी। – Drarok