Verfasst: 07.02.2005 10:25
Hier mal eine Procedure zum Häppchenweisen Empfang von Daten,
die direkt in eine Datei geschrieben werden:
Deine Datei musst Du dann natürlich mit SendNetworkData() senden!
cya dige
die direkt in eine Datei geschrieben werden:
Code: Alles auswählen
; 07/02/2005 by dige, german forum
Procedure.b ReceiveNetworkFileEx ( ClientID.l, File.s )
Protected buffer.l, FileNr.l, success.b
FileNr = OpenFile( #PB_Any, File )
buffer = 128
*mem = AllocateMemory( buffer )
If FileNr
Repeat
Result = ReceiveNetworkData( ClientID, *mem, buffer )
If Result > 0 : WriteData(*mem, Result) : EndIf
Delay(1)
Until Result < buffer
CloseFile( FileNr )
success = #True
EndIf
FreeMemory( *mem )
ProcedureReturn success
EndProcedure
cya dige