Visual Basic 6 - Progettino Client Server

per ora ho guardato il client.
hai fatto un casino...
in grassetto ciò che ho aggiunto o modificato in corsivo i commenti e ciò che ho tolto(mettendo "'"

Ps: è gestisci gli errori.

[b]Dim x As Integer[/b]
Dim POZIZIONE As Integer
Dim data2 As String
Dim Data As String
Dim NomeFile As String
[i]'Dim DIMENSIONE As Long[/i]
Dim FileDaSalvere As String
winsock.GetData Data, vbString

data2 = Left(Data, [b]4[/b])[i] 'come puoi pretendere di avere down in un left(x,2)??[/i]
Select Case data2
Case "down"
[i]'StrTOT = Mid(Data, [b]5[/b])[/i]
POSIZIONE = 0
[i]'While InStr(POSIZIONE + 1, StrTOT, " ") > 0 '????? assolutamente inutile
'POSIZIONE = InStr(POSIZIONE + 1, StrTOT, " ")    'assolutamente inutile
'Wend       'assolutamente inutile
[/i]
[b]For x = 1 To Len(Data)
If Mid(Data, x, 1) = "/" Then
POSIZIONE = x
End If
Next x[/b]



[i]'NomeFile = "c:\file.txt" 'assolutamente inutile[/i]
[b]NomeFile = Mid(dtat, POSIZIONE + 1, Len(Data) - POSIZIONE - 1)
[/b]
[i]'DIMENSIONE = CLng(Mid(StrTOT, POSIZIONE + 1)) 'xkè???a che serve?
'File2 = "down" 'assolutamente inutile

'File2 = FreeFile 'assolutamente inutile[/i]

If Dir(NomeFile) <> "" Then
FileDaSalvare = App.Path & "\" & NomeFile
Kill FileDaSalvare
End If

Open App.Path & "\" & NomeFile For Binary As [b]#1[/b][i] 'se chiudi #1 apri e scrivi sempre #1[/i]

End If

Case [b]"fine"[/b]

Close #1

Case Else

Put [b]#1[/b], , Data[i] 'se chiudi #1 apri e scrivi sempre #1[/i]

End Select

Ti ringrazio per le tue risposte e ti ringrazio per i vari commenti del codice

per ora ho guardato il client.
hai fatto un casino...
in grassetto ciò che ho aggiunto o modificato in corsivo i commenti e ciò che ho tolto(mettendo "'"

- Faccio sempre caos, ovviamente ci ho provato!

Ps: è gestisci gli errori.

Codice sorgente

Dim x As Integer
Dim POZIZIONE As Integer
Dim data2 As String
Dim Data As String
Dim NomeFile As String
'Dim DIMENSIONE As Long
Dim FileDaSalvere As String
winsock.GetData Data, vbString

data2 = Left(Data, 4) 'come puoi pretendere di avere down in un left(x,2)??
Select Case data2
Case "down"
'StrTOT = Mid(Data, 5)
POSIZIONE = 0
'While InStr(POSIZIONE + 1, StrTOT, " " > 0 '????? assolutamente inutile
'POSIZIONE = InStr(POSIZIONE + 1, StrTOT, " " 'assolutamente inutile
'Wend 'assolutamente inutile

For x = 1 To Len(Data)
If Mid(Data, x, 1) = "/" Then
POSIZIONE = x
End If
Next x



'NomeFile = "c:\file.txt" 'assolutamente inutile
NomeFile = Mid(dtat, POSIZIONE + 1, Len(Data) - POSIZIONE - 1)

-- Ovviamente nella stringa si qui
NomeFile = Mid(Data, POSIZIONE + 1, Len(Data) - POSIZIONE - 1)

al posto di dtat é Data, pensavo fosse una variabile aggiunta! Volevo solo fartelo notare, invece é un errore ortografico! Scusami, ma volevo fartelo notare



'DIMENSIONE = CLng(Mid(StrTOT, POSIZIONE + 1)) 'xkè???a che serve?
'File2 = "down" 'assolutamente inutile

'File2 = FreeFile 'assolutamente inutile

If Dir(NomeFile) <> "" Then
FileDaSalvare = App.Path & "\" & NomeFile
Kill FileDaSalvare
End If

Open App.Path & "\" & NomeFile For Binary As #1 'se chiudi #1 apri e scrivi sempre #1

End If

Case "fine"

Close #1

Case Else

Put #1, , Data 'se chiudi #1 apri e scrivi sempre #1

End Select



Tornando a NOI..

Client Server

Ho inserito nel Client, un COmmand Button, sappi che sto facendo diverse prove!

Il command Button, manda il pacchettino "down" al Server, il quale prende il pacchetto "down" e apre il file che, io ho selezionato nel List2, del mio Client e me lo invia!

Proprio di questo volevo dirti

Non sarebbe meglio, usare questa istruzione..

io ovviamente chiedo.. visto che te ne capisci

Il List dove mi compaiono i files é chiamato

List2, per cui

l'istruzione, sarebbe, secondo me..

List2.List (List2.ListIndex)

in questo caso, io parlo di ciò.. il Server, manda i dati che legge nel suo List2 e automaticamente mi compaiono nel List2 del Client. Per cui, se io seleziono nel List2, del Client, il file e premendo sul command button, manda il pacchetto "down" automatica, dovrebbe riconoscere la stringa, dove io ho selezionato il file e dovrebbe scaricarmelo! Sbaglio?

Come mai nel Client, mi leggi il pacchettino "down".. esso dovrebbe essere mandato dal Client al Server, per la lettura in Binario del File e l'invio di esso

Grazie ancora per la tua gentilezza e grazie per la tua disponibilità

Stavo notando il MIO CODICE

quello che ti ho posto..

non sò, ma forse é tutto sbagliato!

Perchè come ti dicevo..

io mando il pacchetto "down" al Server

io mando questo pacchetto, selezionando il File, nel List2, del Client.

Il pacchetto, viene ricevuto dal Server! Il Server, apre il file in Binario, ovviamente selezionandosi sul List2, che io leggo nel mio Client, attraverso il Server e lo manda al Client!

Il Client non dovrebbe ricevere il "down" ma dovrebbe ricevere questa istruzione

Dim FreeFile As Long
p As Double, e As Double
ci = List2.List (List2.ListIndex)
vv = FreeFile
Select Case istruzioni
Case "down"
Open ci For Binary As vv
p = (DimensioneFile \ 8000) + 1
Do While Not EOF(vv)

e = e + 1

Data = Input(chunk, vv)
winsock.SendData Data
DoEvents
Loop

winsock.SendData "finedown"

Close #1

End Select

quindi io invio Data e non "down"

scusami ma ho fatto diverse confusioni..

Ci ho provato

Grazie ancora.. e scusami!

giusto in effetti è logico così. la parte del client in + inseriscila nel server.
ma li scrivi tu i codici?
Ps:apri un nuovo topic che mi ci mette 1 min per ricaricare l'intera pagina.