|
| Autor |
Nachricht |
cronic_
Newbie
Anmeldedatum: 10.11.2007
Beiträge: 4
|
Hilfe bei RAT (Winsock)
Verfasst am: 27.02.2008, 07:50 |
|
|
Guten tag,
ich habe leider ein kleines Problem bei meinem RAT, ich möchte gerne von meinem Server Dateien Laden können. Allerdings sagt er mir dann immer
an dieser Stelle | Code: |
'Sub zum senden von Datein
Private Sub ws2_DataArrival(ByVal bytesTotal As Long)
Dim data2 As String
Dim sDat As Byte
ws2.GetData Data3
'Datei puffern
Open data2 For Binary Access Read As #1
Do While Not EOF(1)
Get #1, , sDat
ws2.SendData sDat
DoEvents
Loop
Close #1
End Sub |
Laufzeitfehler '75':
Fehler beim Zugriff auf Pfad/Datei
ich bin doch nicht blöd, I:\Users\cronic\Desktop\VB\Form1.log ist doch eine korrekte Pfad angabe oder nicht? 
Ich bitte um hilfe (: |
|
| |
|
 |
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 27.02.2008, 08:41 |
|
|
1. Also ich sehe da nicht, dass du den Pfad an die Variable data2 übergibst.
2. Warum machst du den code zum senden einer Datei in der Sub zum empfangen?
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
cronic_
Newbie
Anmeldedatum: 10.11.2007
Beiträge: 4
|
Verfasst am: 27.02.2008, 09:00 |
|
|
data 2 wird nur zum zwischenspeichern genutzt glaube ich,
data 3 ist der Pfad.
Und wieso in eine sub zum empfangen? |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 27.02.2008, 09:17 |
|
|
Ähm, du mußt doch wissen welche Variablen du für was benutzt?
In Data2 muß eindeutig der Pfad sein.
| Code: |
Open data2 For Binary Access Read As #1
|
Data3 empfängt irgendwas übers winsock. Aber mehr passiert mit data3 nicht.
Außerdem hast du data3 nichtmal deklariert.
Geht zwar auch so, ist aber ein schlechter stil.
Und Sub zum empfangen deswegen:
| Code: |
Private Sub ws2_DataArrival(ByVal bytesTotal As Long)
|
Diese Sub wird ausgeführt, wenn das winsock etwas empfängt.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
cronic_
Newbie
Anmeldedatum: 10.11.2007
Beiträge: 4
|
Verfasst am: 27.02.2008, 09:28 |
|
|
Also laut dem Tutorial (indem der Code so steht) soll data2 ja nur zum Zwischenspeichern sein und in sdat werden sie verschickt ?!
Data3 gibt nur den Pfad an von der datei die versendet werden soll..
Joa und das mitm sub.. wie isses denn richtig?
hab dich mal im icq angesprochen  |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 27.02.2008, 09:34 |
|
|
Jetzt sieh dir doch mal den code an.
Beim öffnen der Datei wird data2 genommen und nicht data3.
Ersetz das doch mal.
Und in ICQ kann ich erst am Abend kommen.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
cronic_
Newbie
Anmeldedatum: 10.11.2007
Beiträge: 4
|
Verfasst am: 27.02.2008, 09:48 |
|
|
hab ich gemacht, nun spackt er zwar nicht mehr rum.. aber trotzdem kommt nix an
In der User steht | Code: | Private Sub ws2_DataArrival(ByVal bytesTotal As Long)
Dim Ziel As String
Dim dat1 As Byte
Dim dat2 As String
Ziel = txtPfad.Text
dat2 = "H:\Copy" & Right$(Ziel, 4)
ws2.GetData dat1
pos = pos + 1
Open dat2 For Binary Access Write As #2
Seek #2, pos
Put #2, , dat1
Close #2
End Sub |
:/ |
|
| |
|
|
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
|
Verfasst am: 27.02.2008, 10:16 |
|
|
Ich empfehle dir mal das tutorial von mir über winsock file transfer anzusehen.
Ich hab nämlich keine Lust diesen komischen code komplett zu überarbeiten.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde) |
|
| |
|
|
Registrieren
Login
