IntenetWriteFile via LotusScript

Hallo zusammen,

wieder mal eine neue Herausforderung.
Möchte via LS eine Datei auf einen FTP-Server schieben und dabei eine ProgressBar anzeigen.

Ich weiss ich muss es per InternetWriteFile umsetzen, doch es wird nichts.
Die Datei auf dem Server bekomme ich erstellt, die lokale File geöffnet, doch wie ich nun die Daten in die Datei auf den Server bekomme versteh ich nicht, da InternetWriteFile aus der wininet.dll eine Byte() erwartet.

Vielleicht jemand das ganze schon einmal gemacht und kann mir ein paar Hinweise oder Beispiele geben?!

Vielen Dank für jede Hilfe.

MfG Stefan

Hallo taurec,

hab auch bei Gooogle gesucht und gefunden, nur ist es so, dass dort der Upload ohne ProgressBar passiert.

habe auch noch eine gefunden, in der der Download mit ProgBar drin ist aber nicht der Upload.

Drum frag ich ja ....

in der db wird per FtpPutFile aus der wininet.dll die datei auf den Server geschrieben.

Diese Funktion ist in der dll fest hintelegt und ich kann Sie nicht ändern.Ich bekomme auch keine Status-Meldung von der Funktion wie weit sie ist, also ist es schlecht möglich den Status anzuzeigen.

Daher muss ich die Bytes oder den Text manuell in die Datei auf dem Server schreiben, was sonst in der FtpPutFile passiert.

Guten Morgen,

mein Problem ist, dass ich es hinbekomme ASCII Daten in eine Textdatei zu schreiben, aber es einfach nicht schaffe Binär Daten zu senden.

Ich deklariere die Funktion mit

Declare Function InternetWriteFile Lib "wininet.dll" _
(Byval hFile As Long, Byval sBuffer As String, Byval lNumberOfBytesToWrite As Long, _
lNumberOfBytesWrite As Long) As Integer

Wenn ich das geanze ändere in (wie ich es auch gefunden habe)

Declare Function InternetWriteFile Lib "wininet.dll" _
(Byval hFile As Long, Byval sBuffer As Byte, Byval lNumberOfBytesToWrite As Long, _
lNumberOfBytesWrite As Long) As Integer

funktioniert es nicht mehr oder ich mache etwas falsch.

Lese die Date per NotesStream.Read aus und wenn ich die gelesen Bytes in die Funktion übergebe passiert nix.
Ausserdem will ich nicht jedes Byte einzeln schreiben sondern mehr als nur einen.

MfG Stefan

Auch wenn ich Uni("a") übergebe funzt es nicht.
Hast du nicht zufällig ein paar scriptzeilen?

Ich hatte es in Java.
Nur war das Problem, dass es bei machen funktionierte bei manchen nicht.
Habe die jakarta-klassen genutzt.

Bin schon eine kleinen Schritt weiter, doch habe ich eine Zeile in einem Beispielscript, welche ich nicht verstehe :

Dim Buffer As String * 4096

Was genau passiert hier?
Warum wird eine String mit einer Zahl multipliziert?

Ja schon .. aber nicht die über den String-Datentyp

Danke

Moin zusammen,

habe es aufgegeben.
Werde versuchen den Java-Part versuchen bei jedem zum Laufen zu bekommen.
API ist eh nicht so unbedingt das beste mittel, aber ich war der Meinung, dass es vielleicht in LN das beste wäre auch mit LS zu arbeiten.

Naja, danke trotzdem für die Hilfe.

MfG Stefan