Ich habe ein alte Programmierung, die noch unter Notes 5 erstellt wurde, auf einem neune Notes 8.5 Server laufen und nun Probleme bei der Darstellung von JPG, die in einem Richtext-Feld liegen.
Auf dem 5er Server wurde das Bild mit folgender URL angezeigt:
".../Bild/0.7C?OpenElement&FieldElemFormat=jpg"
Auf dem 8er Server hingegen
"../Bild/0.84?OpenElement&FieldElemFormat=jpg"
Was seltsam ist, das Dokumente, händisch angepackt werden, geöffnet, bearbeitet und gespeichert werden, das JPG mit der neuen URL anzeigen, alte Dokumente wieterhin mit der alten URL.
Einen Agenten, der einfach nur ein Feldinhalt ändert, reicht nicht, dass das dokument als bearbeitet erkannt wird.
Wie kann ich jetzt alles Dokumente per Agenten einmal öffnen, bearbeiten und schliessen lassen, damit alle die neue URL nutzen?
Ich hoffe, ich habe mich verständlich ausgedrückt.
LG
Rolf
OpenField liefert ein HTML:
http://www.photosforfree.de/rvm/photo.nsf/webBilder/6792D9D60102B09BC12577AB006289D0/Bild?OpenField
<div align="center">
<p><img src="/rvm/photo.nsf/0/6792d9d60102b09bc12577ab006289d0/Bild/0.7C?OpenElement&FieldElemFormat=jpg" width="300" height="200"></div>
Dieses HTML musst du z.B. per Agent auslesen und daraus den Offset, bzw. die Bild-URL extrahieren und in dein Dokument schreiben
Das kannst du z.B. so machen
Dim objHttp, ret$
Set objHttp = CreateObject("Microsoft.XMLHTTP")
objHttp.open "GET", "http://www.photosforfree.de/rvm/photo.nsf/webBilder/6792D9D60102B09BC12577AB006289D0/Bild?OpenField", False, "", ""
Call objHttp.send()
ret = objHttp.ResponseText
MsgBox StrLeft(StrRight(ret,{src="}),{"})
(ist zwar auch keine 100%ig saubere Lösung, wird aber funktionieren)
Gruß
Roland