Dateien im www schreiben und lesen

[UliTs]

Hallo allerseits,

leider habe ich (bisher) sehr wenig Erfahrung mit Internetprogrammierung.
Nun möchte ich für meine Kunden folgendes programmieren:

Meine Kunden sollen mit Hilfe meines Programms Dateien in einem geschützten Bereich auf mir "gehörenden WEB-Space" speichern und lesen können. Ich vermute, dies kann man mit FTP-Transer (?) realisieren.

Wie schreibt man folgende Routinen::?:

Code: Alles auswählen

function WWWwriteFile( cFilename, cWebAddress, cPassword )

bzw.

Code: Alles auswählen

function WWWreadFile( cFilename, cWebAddress, cPassword )

bzw.

Code: Alles auswählen

function WWWexistFile( cFilename, cWebAddress, cPassword )

Uli

P.S. Ich habe von Alaska die AsiNet (Prof.Foundation)

[brandelh]

Hallo UliTs,

ich sitze jetzt vor dem falschen Rechner, aber ich meine im Ordner
ASINET unter den Beispielen (falls ASINET installiert wurde) sind Beispiele für FTP dabei. Eventuell braucht man für die Kennwortübergabe die 1.90.

[andreas]

Hallo Uli,

hier ist ein Ausschnitt aus meinem Programm, um eine Datei von dem FTP-Server runterzuladen.

Code: Alles auswählen

::SetMeldung( "Verbindung aufbauen" )
					oFtp := FTPClient():new( cFtpServer , cFtpUser  , cFtpUserPass  ,, nFtpPort )
					IF oFtp:Connect()
						::SetMeldung( "Verbindung aufgebaut" )
						oFtp:setTransferMode( FTP_TRANSFER_TYPE_BINARY )

						::SetMeldung( "Update wird heruntergeladen!" )

						**Löschen alle Zip-Dateien
						erase ( cUpdatePfad + cFtpDatei )

						cFtpDaten := oFtp:get( cFtpDatei )

						IF cFtpDaten # NIL

							::SetMeldung( "Daten wurden empfangen!" )

							nHandle := FCreate( (cUpdatePfad + cFtpDatei), FC_NORMAL )

							IF nHandle == -1
								::SetMeldung( "Fehler beim Erzeugen der Datei:" + var2char( FError() ) )
							ELSE
								FWrite( nHandle, cFtpDaten )
								FClose( nHandle )
								::SetMeldung( "Update gespeichert unter "+(cUpdatePfad + cFtpDatei) )
							ENDIF

						else
							::SetMeldung( "Daten konnten nicht empfangen werden!" )
						ENDIF

						oFtp:disconnect()

						IF file( (cUpdatePfad + cFtpDatei) )
							::SetMeldung( "Update starten..." )
							cBefehl := "/C START " + cUpdatePfad+"update.bat "+ cFtpDatei
							RunShell( (cBefehl),, .t. )
							quit
						ENDIF

					else
						::SetMeldung( "Verbindungsaufbau fehlgeschlagen" )
					ENDIF

Zum Senden der Daten die PUT-Methode benutzen. Die Beschreibung findest du in der Online-Hilfe.

[Bernd Reinhardt]

Hallo.
Die Übertragung von und zum Server geht, aber kann man auch eine Filelist (directory) vom ftp-server auflisten. Ich wollte vorher mal nachschauen welche Datei schon geladen sind.
Geht das mit Asinet oder muss man auch hier auf externe Programme zurückgreifen.
Gruß
Bernd