Synapse send file
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
xinyiman · 2015-06-06 11:04

Hello, I am creating a server that I transfer a file from one PC to
another. But if the file is too big something it is not working. And I
think in this code. Who tells me what's wrong?

Client
Code: [Select]                                           //invio
effettivamente il file
                                             
app:=TFileStream.Create(file2, fmopenRead);
                                              Sock.SendStream(app);
                                              //libero l'area di
memoria che ho occupato fino ad adesso
                                              app.Free; 

Server

Code: [Select]                   
app:=TFileStream.Create(CartellaDestinazione +
NomeFileCompressoECifrato,fmCreate);
                    repeat
                          //ricevo il file nello stream da
decomprimere
                          sock.RecvStream(app,20000);
                    until Sock.LastError <> 0;
                    //libero l'area di memoria che ho occupato fino ad
adesso
                    app.Free;