We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
procedure SendFile(FilePath: String; Socket: TCustomWinSocket); var F: File; Buffer: array [0..4095] of Char; begin AssignFile(FromF, FileFrom) ; Reset(FromF, 1) ; repeat BlockRead(F, Buffer, SizeOf(Buffer), NumRead) ; Socket.SendBuf(Buffer, NumRead) ; until (NumRead = 0) ; CloseFile(F) ; end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Reconfigure Delphi Install?||2||77|
|I want to use librsync in my Delphi backup application.||3||84|
|how to make 2 step back? ..\..\ ExtractFilePath (paramstr(0))||5||84|
|Firemonkey BASS_Init into a thread||17||84|
Join the community of 500,000 technology professionals and ask your questions.