Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dateiupload--VBEx32.DLL--schaut euch das mal bitte an
Autor: Berdi
Datum: 11.04.03 18:01
hallo leute, ich bin langsam echt am verzweifeln. der upload klappt irgendwie nett wirklich. es tut sich was, aber die datei liegt nett auf dem server. auch hab ich keine ahnung wie ich diese statusanzeige zum laufen bekomme.... schaut doch mal drüber und helft mir wenn ihr könnt. ConnectToFTP wird aus nem MDI menü aufgerufen.... ------------------------------------------------------------------------------------------ Option Explicit Declare Function VBEX_FTPFileUpload Lib "vbex32.dll" _ Alias "VBFTPFILEUPLOAD" ( _ ByVal hSocket As Long, _ ByVal hStatus As Long, _ ByVal sServer As String, _ ByVal sRemoteFile As String, _ ByVal sLocalFile As String, _ ByVal nTransferMode As Long) As Long Declare Function VBEX_FTPConnect Lib "vbex32.dll" _ Alias "VBFTPCONNECT" ( _ ByVal sServer As String, _ ByVal sUser As String, _ ByVal sPassword As String) As Long Declare Function VBEX_FTPStatusCode Lib "vbex32.dll" _ Alias "VBFTPSTATUSCODE" () As Long Declare Function VBEX_FTPStatusMsg Lib "vbex32.dll" _ Alias "VBFTPSTATUSMSG" () As String Declare Sub VBEX_FTPQuit Lib "vbex32.dll" _ Alias "VBFTPQUIT" (ByVal hSocket As Long) -------------------------------------------------------------------------------------------------------- Public Sub ConnectToFTP() ' Verbindung zum eigenen Tiscali FTP-Server herstellen sServer = "home.tiscali.de" sUser = "Marcel.Wiemers@tiscali.de" sPassword = "******" hSocket = VBEX_FTPConnect(sServer, sUser, sPassword) If hSocket > 0 Then MsGBox "Verbindung besteht bereits", vbOkOnly + vbInformation, "Hinweis" Else MsgBox CStr(VBEX_FTPStatusCode()) & " - " & VBEX_FTPStatusMsg() End If 'Datei hochladen UploadHTMLFile End Sub ---------------------------------------------------------------------------------------------------------------- Private Function UploadHTMLFile(HTMLFile As String) ' Datei-Upload Dim sRemoteFile As String Dim nMode As Long Dim nResult As Long ' Dateiname und Verzeichnis auf dem Server sRemoteFile = "/testserver/häuser.html" ' ASCII-Übertragung nMode = 1 ' Upload starten und Fortschritt in einer TextBox anzeigen nResult = VBEX_FTPFileUpload(hSocket, 0, sServer, _ sRemoteFile, HTMLFile, nMode) ' verbindung zum FTP trennen DisconnectFTP End Function ----------------------------------------------------------------------------------------------- Private Sub DisconnectFTP() ' Verbindung beenden VBEX_FTPQuit hSocket End Sub

Dateiupload--VBEx32.DLL--schaut euch das mal bitte an	67	Berdi	11.04.03 18:01
Re: Dateiupload--VBEx32.DLL--schaut euch das mal bitte an	216	Brian	11.04.03 19:03

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen