Nur eins Kappier ich nochnicht,
Ich stearte erst den Server dann den Client und wäle eine Datei zum senden aus, dann klappt dass nicht, aber erst beim 2. mal geht dass!
Ist schwierig zu erklären hier mal die Cods:
Server:
Code: Alles auswählen
;---------Vorbereiten Init, Alocate, start usw.---------------
Port = 6832
If InitNetwork() = 0
MessageBox_(Win,"Netzwerk Umgebung kann nicht vorbreitet werden!"+Chr(13)+"Ist dein Computer Internet Tauglich?","Warnung",#MB_OK | #MB_ICONERROR)
End
EndIf
;-------------Endlosschleife, bis was passiert-----------------------
If CreateNetworkServer(4, Port , #PB_Network_TCP)
Repeat
SEvent = NetworkServerEvent()
If SEvent
ClientID = EventClient()
Select SEvent
;-------------case 1,2,3,4---------------------------------------
Case 1
MessageRequester("Server", "Ein neuer Client meldet sich!", 0)
Case 2
MessageRequester("Server", "Daten oder Strings wurden gesendet", 0)
Case 3
File$ = SaveFileRequester("Bitte Datei zum Speichern auswählen", StandardFile$, Pattern$, Pattern)
If File$
ReceiveNetworkFile(ClientID, File$)
EndIf
Case 4
MessageRequester("Server", "Die verbindung zum Client wurde getrennt!", 0)
EndSelect
EndIf
Until Quit = 1
MessageRequester("PureBasic - Server", "Click to quit the server.", 0)
CloseNetworkServer(0)
Else
MessageRequester("Error", "Can't create the server (port in use ?).", 0)
EndIf
End
Client:
Code: Alles auswählen
If InitNetwork() = 0
MessageRequester("Error", "Can't initialize the network !", 0)
End
EndIf
Port = 6832
CreateNetworkServer(1, Port , #PB_Network_TCP)
If OpenWindow(8, 200, 200, 400, 300, "Intel IP 1.0", #PB_Window_SystemMenu, 0)
If CreateGadgetList(WindowID(8))
;ConnectionID=OpenNetworkConnection(Hostname(),Port,#PB_Network_TCP)
ConnectionID=OpenNetworkConnection("127.0.0.1", Port,#PB_Network_TCP)
If ConnectionID
;MessageRequester("PureBasic - Client", "Client connected To server...", 0)
;datei$ = OpenFileRequester("wäle die datei", "", "alles|*.*|All Files|*.*", 0)
;If datei$
;ProgressBarGadget(8, 10, 10, 70, 10, 0, 80 , #PB_ProgressBar_Smooth)
;FileSize(datei$)
;a$ = "C:\jo.txt"
;SetGadgetState(8,10)
;Delay(99999)
;CopyMemory(C:\JO.txt, *bufferread, 128)
;SendNetworkData(ConnectionID, *bufferread, 128)
;SendNetworkString(ConnectionID, "An hello from a client !!! :-)")
File$ = OpenFileRequester("Bitte Datei zum Laden auswählen", StandardFile$, Pattern$, Pattern)
If File$
;DateiName$ = OpenFileRequester("test", "C.\", *.*, 0 , 0)
SendNetworkFile(ConnectionID, File$)
;MessageRequester("PureBasic - Client", "A string has been sent to the server, please check it before quit...", 0)
;CloseNetworkConnection(ConnectionID)
Else
MessageRequester("PureBasic - Client", "Can't find the server (Is it launched ?).", 0)
EndIf
EndIf
EndIf
EndIf
End
und ausprobiert aber nichts geht immer hat der Debugger was daran auszusetzen!
Du willst den Dateinamen übertragen?