पढ़ें कार्यक्रम STDIN डेल्फी

Question

में मैं निम्नलिखित बैच स्क्रिप्ट है

और कार्यक्रम इस स्रोत (कम या ज्यादा) है:

procedure TForm1.FormCreate(Sender: TObject); 
var buff: String; 
begin 
    Read(buff); 
    Memo1.Lines.Text:=buff; 
end; 

और ज्ञापन में उत्पादन होता है:

ड्राइव सी में वॉल्यूम में कोई लेबल नहीं है।

मैंने कोशिश की:

• एक शर्त के रूप eof के साथ एक पाश में पढ़ने हिस्सा डाल - किसी भी तरह अनंत लूप
• एक पाश लेखन पढ़ने रखने के लिए जब तक strlen(buff) 0 है पैदा कर रहा है - यह बाहर निकल जाता है कुछ कारणों के लिए दूसरी बार
• कभी भी 0.5 सेकंड पढ़ने वाली सामग्री (मैं एसिंक्रोनस स्टडीन को लिखने के बारे में सोच रहा था), यह असफल रहा

वैसे, कार्यक्रम सीधे चल रहा है, stdin डेटा के बिना, एक EInputOutput अपवाद (आई/ओ त्रुटि) कोड का कारण बनता है 6.

Answer 1

जीयूआई एप्लिकेशन डॉन 'का उपयोग करके देखें टी में एक stdin, stdout या stderr स्वचालित रूप से असाइन किया गया है। आप की तरह कुछ कर सकते हैं:

procedure TForm1.FormCreate(Sender: TObject); 
var 
    Buffer: array[0..1000] of Byte; 
    StdIn: TStream; 
    Count: Integer; 
begin 
    StdIn := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE)); 
    Count := StdIn.Read(Buffer, 1000); 
    StdIn.Free; 
    ShowMessageFmt('%d', [Count]); 
end; 

यदि आप करते हैं

dir *.pas | myapp.exe 

आप एक नंबर> 0 के साथ एक messagebox देखेंगे, और यदि आप कार्य करें:

myapp.exe 

आप करेंगे 0 के साथ एक संदेश बॉक्स देखें। दोनों मामलों में, फॉर्म दिखाया जाएगा।

Answer 2

एक धारा दृष्टिकोण के बजाय Read(buff)

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