Beispeil für Chat Programm gesucht. (wie ICQ)

[Joel]

ok,


Wie geht das mit dem Receive und Send-NetworkData

Also, Wie geht das dass der *Buffer das Ergebnis von Open- und Save- FileRequester ist? Kurz gesagt dass die ausgewählte Datei Geschickt wird und später in dem ausgewählten ordner gespeichert wird?

Ich hab mir auch die Hilfe angeguckt und ausprobiert aber nichts geht immer hat der Debugger was daran auszusetzen!

[kiki]

Ja stimmt, schwierrige Frage
ich hab bei der Suche auch nichts gefunden

[#NULL]

Code: Alles auswählen

DateiName$ = OpenFileRequester(Titel$, StandardDatei$, Pattern$, PatternPosition [, Flags])
SendNetworkString(Verbindung, DateiName$)

brochst nüschd bufforn

[kiki]

ah so gehts ich hab mich auch dafür interessiert!

[Joel]

Danke für die hilfe, hab das jetzt in mein programm eingebunden geht jetzt!
Danke!!!

[DarkDragon]

Code: Alles auswählen

DateiName$ = OpenFileRequester(Titel$, StandardDatei$, Pattern$, PatternPosition [, Flags])
SendNetworkString(Verbindung, DateiName$)

brochst nüschd bufforn

Du willst den Dateinamen übertragen?

[#NULL]

ich frag mich nur, was der andere computer mit der pfadangabe will?

<edit: ich hab nur seine frage beantwortet, was er machen will is mir aber auch schleierhaft, oder kann man mit requestern auf netzwerke zugreifen?>

[Joel]

hab das string in File umgeendert!

[Joel]

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   

[#NULL]

wen du den dateinamen versendest, versendest du nicht die datei!!!

Code: Alles auswählen

DateiName$ = OpenFileRequester(Titel$, StandardDatei$, Pattern$, PatternPosition [, Flags])
SendNetworkFile(Verbindung, DateiName$)

...SO versendest du die datei