FileAttachment und ExtractFile

[Grmpf]

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

[Grmpf]

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?