Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Große Datein via Winsock senden
Autor: Mat
Datum: 23.01.03 14:04
Thx das hilft ja schonmal! Und wo genau bzw wie muss ich dann diese Funktion Wsksend z.B. in folgenden Code einfügen? If strData = "funktion2" Then 'Test zum senden von Daten Dim F As Integer Dim nFileSize As Long Dim nCurPos As Long Dim nReadSize As Long Dim sFile As String Dim sBuffer As String sFile = "D:\test.jpg" nFileSize = FileLen(sFile) F = FreeFile Open sFile For Binary As #F While nCurPos < nFileSize If nCurPos + 1024 > nFileSize Then nReadSize = nFileSize - nCurPos Else nReadSize = 1024 End If sBuffer = Space$(nReadSize) Get #F, , sBuffer ' Muss ich hier die Funktion aufrufen? nCurPos = nCurPos + nReadSize Wend Close #F End If Bzw stimmt der obrige Quelltext eigentlich?? @Dieter wär nett wenn du mir nochmal helfen würdest!! thx mat

Große Datein via Winsock senden	145	Mat	22.01.03 23:54
Re: Große Datein via Winsock senden	279	Dieter	23.01.03 02:15
Re: Große Datein via Winsock senden	139	Mat	23.01.03 14:04
Re: Große Datein via Winsock senden	78	Mat	24.01.03 17:06
Re: Große Datein via Winsock senden	259	Killerkeule	24.01.03 17:40
Re: Große Datein via Winsock senden	133	Mat	25.01.03 01:17

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