в серваке типа TServerSocket есть событие OnClientRead
по этому событию
Код:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Begin
End;
напиши
Код:
s:=Socket.ReceiveText;
в s запишется принятый от клиента текст
я , наверное, не правильно понял, не текст, а файлик ты хочешь получить тогда так
клиент
должен
Код:
Form1.ClientSocket1.Socket.SendStream(fs_u);
где fs_u : TFileStream
выбранный файлик
сервак должен
в процедуре ServerSocket1ClientRead (см выше)
Код:
fs_u:=TFileStream.Create(Newdir+FileName,fmCreate);
fs_u.Write(s[1], length(s));
здесь есть свои особенности, например, сначала пересылать объём файлика, потом принимать данные до тех пор пока не получим весь файлик, при этом, что бы данные не обрабатывались другими.
наоброт посылать файлик -- полностью аналогично
пиши на мыло
помогу