Agent importiert Image in "Shared Resources"????

[kevisback]

Hallo,

kann man per Agenten ein Bild in den Shared Resources/Images speichern?


Problem: Ich brauche Bilder als Tabellenhintergrund und diese müssen in diesem Ordner liegen, ich will das aber dem Notesuser ermöglichen.


Danke im voraus!!!

[diali]

es funktioniert mit DXL und der Base64-Umwandlung (suche mal im Forum, da gibt es schon Code dazu).
Nachteil es werden Entwicklerrechte benötigt.
Den Nachteil könnte man umgehen, indem die User die Bilder als Anhang in ein Dokument einfügen und dann läuft auf dem Server ein Agent mit Entwicklerrechten, der die Anhänge abhängt, umwandelt, XML-Dateierstellt und importiert.

Schau mal hier. In der Datei DXLImport.lss ist der Code hinterlegt.

[kevisback]

Habs mal ausprobiert mit nem Agenten, den Pfad habe ich angepasst, aber wenn der Agent durchgelaufen ist, dann ist nix passiert, kein importiertes Bild... 

[diali]

Welche Bild-Typen (gif, jpg, jpeg) werden verwendet?
Bei Fehlern werden in der DB Dokumente (Form = "Fehler") erzeugt, dort stehem für jede Bild-Datei die aufgetretenen Fehler drin. Schau mal nach solchen Dokumenten.

[kevisback]

in der DB ist nur ein Dokument, dass ich selber erstellt habe. Somit ist kein Fehler aufgetreten....

[diali]

im code steht die Zeile
If Typ = "gif" Or Typ = "jpg" Or Typ = "jpeg" Then

Eventuell muss die Zeile angepasst werden
If LCase(Typ) = "gif" Or LCase(Typ) = "jpg" Or LCase(Typ) = "jpeg" Then

Hilfreich wäre es, wenn du mit dem Debugger mal nachsehen kannst, an welcher Stelle IF-Anweisungen übersprungen werden, ansonsten wird es ein Stochern im Heuhaufen.

[kevisback]

Ich bekomme folgende Fehlermeldung:

101BASE64.ENCODEFILE:149|Unable to open file


Der Pfad stimmt aber, ich habe das jpg direkt angegeben im Quellcode:

pathName = "C:\Documents and Settings\User\Desktop\a.jpg"

[diali]

probier es mal mit
pathName = """C:\Documents and Settings\User\Desktop\a.jpg"""
In dem 1. Ordner ist ein Leerzeichen, deshalb kann es sein, dass die Datei-Pfad-Angabe in Hochkommas eingeschlossen werden muss.

Habs nicht geprüft, da ich bisher immer die Pfad-Angaben per Script ermittelt habe.

[kevisback]

habe die den Pfad jetzt sogar direkt auf C:\ gelegt und er meldet noch immer den gleichen Fehler.


Habe ich vielleicht was vergessen? Ich starte den Agenten von einem View aus per Button, dazu habe ich ein normales Dokument markiert....??

[diali]

existiert der TempPfad?

Im Initialize steht
TempPath = "c:\temp\"
Wurde der Pfad angepasst (den letzten \ nicht vergessen)?

[kevisback]

habe alles soweit richtig....

[diali]

also dann bleibt nur die Fehlerbehandlung zu deaktivieren und mit dem Debugger die Code-Zeile rauszufinden, die den Fehler verursacht und dann mal die Objecte und Variablen anschauen.

Bei mir läuft diese Teil über mehrer 10.000-de jpg-Bilder und diese werden importiert. Dabei liegt die Fehlerquote bei unter 0,5 %.

[kevisback]

wohin importierst du die Bilder denn? Ich bin immer der Meinung gewesen, dass das Bild dann im "Shared Resources" / "images" landet. Oder ist es bei dir dann nur als Bild im Dokument?

[diali]

die Teile werden bei den Bild-Ressourcen eingefügt und nicht in einem Dokument.

[kevisback]

ja ich bin neidisch ;-)

Das muss ich unbedingt hinbekommen, also werde ich den Code mal durchgehen.

Aber eigentlich habe ich den Code direkt in den Agenten kopiert und eine Zeile musste ich loeschen:

Const CHUNKSIZE = 16000

da das zweimal gesetzt ist, einmal mit 16000 und einmal mit 15000,
da hat der Compiler gemeckert...

[diali]

die Const wird aber einmal für encodeFile und einmal für decodeFile gesetzt.

Wie hast Du den Code aus der lss-Datei importiert?

Neuer Script Agent - rechte Maustaste ins Codefemster - Importieren - lss-Datei auswählen - fertig

[kevisback]

stimmt, habs so gemacht, trotzdem meckert der noch, werde da wohl Schritt fuer Schritt durch.....

Danke erstmal!!

[kevisback]

@diali

habe den Debugger mal drueberlaufen lassen und der stockt an folgender Stelle:


(Declarations)
...
...
...
   Close #fout
      EncodeFile = True
      Exit Function
catch:
      If Not fin = 0 Then Close #fin
      If Not fout = 0 Then Close #fout
      Error Err, Err & Typename(Me) & "." & Lsi_info(2) & ":" & Erl & "|" & Error
   End Function
   
   Private Function getFileChunk(fileNum As Integer, size As Integer) As String
      ' Get the next chunk of text from a Random file, up to a given size
...
...

die fett markierte Zeile ist die Fehlerstelle...


leider sagt mir das gar nix....

[diali]

da ist er in der Fehlerbehandlung schon drin. Der Fehler muss weiter oben auftreten.

[diali]

Jetzt bekomme ich keine Fehlermeldung mehr, sondern es werden diese Fehlerdokumente mit folgender Fehlermeldung erstellt:

4522User-defined error30d:\b\ku06auf.jpg.dxl

Weisst du zufaellig was mir das sagt und wie ich es beheben kann?

Ich habe es schon mit verschiedenen Bilder probiert...immer das gleiche...

In der Datei lsxbeerr.lss steht für den Fehler 4522
4522 ... lsERR_NOTES_DXLIMPORTER_FAILED
Die Datei "d:\b\ku06auf.jpg.dxl" existiert und ist geschlossen?
Was hast du alles am Code verändert?