Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Grmpf am 22.11.06 - 09:30:27
-
hi leutz,
die methode Object.ExctractFile macht mir Probleme(denk das hier das problem ist) . eigentlich sollte die den XML - anhang eines Documentes welches ich per getDocumentByURL geholt habe in ein lokales verzeichniss speichern.. (-->xml kommt aus dem Amazon - Webservice)
der anhang ist ca 12kb groß (verrät mir Object.FileSize), gespeichert werden aber immer nur 2kb...?
Codeausschnitt (die Abfrage URL ist hier Beispielhaft) :
--> dieses beispiel kommt von folgendem IBM - Link :
http://www-128.ibm.com/developerworks/lotus/library/ls-AWS_integration/
Dim filename as String
filename$ = "c:\temp\amazon.xml"
Dim NURLdb As New NotesDatabase("","")
' To reference the Internet browser database
Dim Nwebdoc As NotesDocument
If NURLdb.OpenURLDb Then
' download the XML encoded WS reply
If (False) Then
theURL = "http://xml.amazon.com/onca/xml?v=2.0&dev-t=webservices-20
&t=thelotusnotesfaqA&KeywordSearch=Lotus+Notes&mode=books
&type=lite&page=1&f=xml"
Set Nwebdoc=NURLdb.getdocumentbyurl(theUrl, True, False)
' get XML from attachment
Dim Item As NotesItem
Dim Object As NotesEmbeddedObject
Set Item = Nwebdoc.GetFirstItem("$FILE")
Dim ItemName As String
ItemName = Item.Values(0)
Set Object = Nwebdoc.GetAttachment(ItemName)
Call Object.ExtractFile(filename$)
End If
End If
bin über jede idee dankbar ;)
grüße
matze
-
bin einen schritt weitergekommen, vlt hilft das euch auch weiter mir zu helfen.;)
das problem tritt anscheinend nicht bei der speicherung auf der festplatte auf(bei Object.ExtractFile...)
sondern bereits bei der speicherung des dokuments in der datenbank..bereits hier werden alle anhänge die eine länge von 1238byte überschreiten abgeschnitten...
weis jmd rat?