8. Mai 2007 16:12
ComCom::MessageReceived(VAR InMessage : Automation "''.IDISPATCH")
InMsg := InMessage;
InStreamQueue := InMsg.GetStream();
XMLPORT.IMPORT(80003, InStreamQueue);
TestFile.OPEN('C:\\temp.txt');
TestFile.CREATEINSTREAM(TestStream);
XMLPORT.IMPORT(80003, TestStream);
TestFile.CLOSE();
8. Mai 2007 16:29
9. Mai 2007 16:24
9. Mai 2007 16:45
9. Mai 2007 17:13
TestFile.CREATE('C:\\temporaer.txt');
TestFile.OPEN('C:\\temporaer.txt');
REPEAT
InStream.READTEXT(Char);
TestFile.WRITE(Char);
UNTIL InStreamQueue.EOS;
TestFile.CLOSE;
9. Mai 2007 17:30
TestFile.CREATE('C:\\temporaer.txt');
TestFile.OPEN('C:\\temporaer.txt');
TestFile.TEXTMODE(TRUE);
TestFile.CREATEOUTSTREAM(OutStream);
REPEAT
InStream.READTEXT(Char);
TestFile.WRITE(Char);
OutStream.WRITETEXT(Char);
UNTIL InStreamQueue.EOS;
TestFile.CLOSE;
9. Mai 2007 17:33