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