Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Übersetzer gesucht....dringend!!!!
Autor: NightmareX
Datum: 11.11.01 13:38
also ich hab mir hier eine VB-Code aus dem Internet runtergeladen, aber ich verstehe ihn nicht 100%ig...der Großteil ist mir geläufig, aber mit ein paar abschnitten habe ich probleme....ich habe einen teil hier eingefügt!!Hätte jemand zeit, mir zu dem teil der mir unverständlich ist, einfach daneben ein kommentar hinschreibt!!! ich habe die stelle ziemlich genau gekennzeichnet ab der ich probleme habe!!! in dem proggie geht es auf jeden fall über einen File-Transfer per Winsock!!! thx 4 every help!!!! der Source: Dim OpenedFileNbr, FileLength, Back Dim Temp As String Dim PackageSize As Long Dim LastData As Boolean FileLength = FileLen(Txt_File.Text) FileBar.Max = FileLength FileBar.Value = 0 Winsock_Send.SendData ("FILEINFO|" & FileLength & "|" & Lbl_FileName.Caption & "|") PackageSize = 2048 On Error GoTo ErrorHandler LastData = False '# You'll see that we need that to make the received file excactly the same size like the original one NextPart = True '# NextPart is a form-global variable which ' contains wheter the package was send or not ' take a look at the winsock_sendcomplete event OpenedFileNbr = FreeFile Open Txt_File.Text For Binary Access Read As OpenedFileNbr 'FileLength = FileLen(Txt_File.Text) Temp = "" Do Until EOF(OpenedFileNbr) ###################################################### ##### ####Ab hier ist mir das unverständlich!!!!!!!############### ####################################################### If FileLength - Loc(OpenedFileNbr) <= PackageSize Then PackageSize = FileLength - Loc(OpenedFileNbr) + 1 LastData = True End If Temp = Space$(PackageSize) Get OpenedFileNbr, , Temp If LastData = True Then Temp = Mid(Temp, 1, Len(Temp) - 1) End If FileBar.Value = FileBar.Value + Len(Temp) Lbl_Complete.Caption = "Complete: " & Int(100 / FileLength * FileBar.Value) & " %" DoneBytes = DoneBytes + Len(Temp) Winsock_Send.SendData Temp NextPart = False Else Exit Sub End If Loop Close #OpenedFileNbr FileBar.Value = 0 Do While NextPart = False DoEvents Loop Winsock_Send.Close Exit Sub

Übersetzer gesucht....dringend!!!!	35	NightmareX	11.11.01 13:38
Re: Übersetzer gesucht....dringend!!!!	245	unbekannt	11.11.01 19:44
Re: Okay hier is der ganze Source	27	NightmareX	11.11.01 20:54

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