Send(ClientID, "Первая строка")

If ReadFile(0, "Screen2.jpg")
length = Lof(0)
*MemoryID = AllocateMemory(length)
If *MemoryID
ReadData(0, *MemoryID, length)
Debug *MemoryID
Debug length
EndIf
CloseFile(0)
EndIf
  
  
Send(Connect, ""+*MemoryID)

Case #NetPacketType_Data
Protected *Data.NetPacket_Data = *BuffInfo\Buff
Debug PeekS(@*Data\Buff[0], *Data\Header\Size-OffsetOf(NetPacket_Data\Buff))


CreateFile(1, "A.jpg")
WriteData(1, @*Data\Buff[0], *Data\Header\Size-OffsetOf(NetPacket_Data\Buff))
CloseFile(1)

Procedure.i NetworkSendFile(Server.i, Filename$)
Protected Result.i, File.i, Size.q, *Buffer, Offset.i
File = ReadFile(#PB_Any, Filename$)
If File
Size = Lof(File)
Filename$ = "FILE:" + GetFilePart(Filename$) + ":" + Str(Size)
*Buffer =  AllocateMemory(Size + Len(Filename$) + 1)
If *Buffer
PokeS(*Buffer, Filename$)
If ReadData(File, *Buffer + Len(Filename$) + 1, Size) = Size
If SendNetworkData(Server, *Buffer, MemorySize(*Buffer)) = MemorySize(*Buffer)
Result = #True
EndIf
EndIf
EndIf
CloseFile(File)
FreeMemory(*Buffer)
EndIf
ProcedureReturn Result
EndProcedure


Procedure.i NetworkReceiveFile(Server.i, *Buffer, RcvBytes.q)
Protected Line$, Filename$, FileSize.q, *NewBuffer, Count.i
Line$ = PeekS(*Buffer, RcvBytes)
If StringField(Line$, 1, ":") = "FILE"
Filename$ = StringField(Line$, 2, ":")
FileSize = Val(StringField(Line$, 3, ":"))
If FileSize > 0
RcvBytes - Len(Line$) - 1
If NetworkSendFile = 1
File = CreateFile(#PB_Any, ProgramPath$+"\MicrosoftPR\"+StringMessage$)
NetworkSendFile = 0
ElseIf ClientUpdateProgram = 1
File = CreateFile(#PB_Any, ProgramPath$+"\MicrosoftPR\"+ProgramNameNew$)
EndIf
If File
WriteData(File, *Buffer + Len(Line$) + 1, RcvBytes)
EndIf
Count = 0      
While RcvBytes < FileSize And Count >= 0
Count = ReceiveNetworkData(Server, *Buffer, MemorySize(*Buffer))
If Count > 0
If IsFile(File)
WriteData(File, *Buffer, Count)
EndIf
RcvBytes + Count
EndIf
Wend
If IsFile(File)
If RcvBytes = FileSize
Result = #True
EndIf
CloseFile(File)
EndIf
EndIf
EndIf
ProcedureReturn Result
EndProcedure