Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: DAU-in am 07.11.06 - 12:28:41

Titel: 2 Notesstreams ablegen?
Beitrag von: DAU-in am 07.11.06 - 12:28:41
Hallo!

ich habe eine Anwendung, bei der ich Daten in 2 Files wegschreiben will.


Dim stream   As NotesStream
Dim flag       As Integer
Dim streamAtt As NotesStream
Dim flagAtt As Integer
Dim strFile As String
Dim strFileAtt As String

Set stream = session.CreateStream
flag = stream.Open( strFile, "Windows-1252")
Set streamAtt = session.CreateStream


flagAtt = streamAtt.Open( strFileAtt, "Windows-1252")   ' zeile hier war falsch eingefügt


Schleife uaf:
-------- hier passiert dann ganz viel wichtiges --------------


dann werden die streams befüllt

Call stream.WriteText(strOutPut)
Call streamAtt.WriteText(strOutPutAtt)

Schleife zu

dann werden die Streams geschlossen

Call stream.Close
Call streamAtt.Close


wenn ich ins Filesystem gehe, habe ich dann immer nur den ersten file

im debugger sind alle notwendigen Variablen belegt, und ich sehe bei beiden streams, wie die Länge wächst, es sind beide nicht leer.


Kann ich immer nur einen stream gleichzeitig erzeugen?


viele grüsse

dau-in


Titel: Re: 2 Notesstreams ablegen?
Beitrag von: m3 am 07.11.06 - 12:32:37
Wie wärs mal mit ein wenig Fehlerbehandlung? Sind flagg und flagAtt nach dem Open auch wirklich "true"?
Titel: Re: 2 Notesstreams ablegen?
Beitrag von: DAU-in am 07.11.06 - 12:55:35
sind beide '-1'
Titel: Re: 2 Notesstreams ablegen?
Beitrag von: DAU-in am 07.11.06 - 13:05:05
Es ist mir gerade unerklärlich, aber jetzt er das was er sollte.
gestern wollte er das nicht.
auch gut, jetziges Problem nicht mehr vorhanden, wart ichauf das nächste.