Простите конечно...
ФАК я закачал и неашел там опятть такую же статью по этому поводу...
В примере закачивается только содержимое имэйджа, а мнея интересует именно файл...
Наверное я опять сам натупил, но никак не выходит...
Если кому не влом помогите, переделайте его под конкретный файл.

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  ScktComp, ExtCtrls, StdCtrls; type  TForm1 = class(TForm)    Image1: TImage;    Image2: TImage;    ClientSocket1: TClientSocket;    ServerSocket1: TServerSocket;    Button1: TButton;    procedure Image1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);    procedure ClientSocket1Connect(Sender: TObject;      Socket: TCustomWinSocket);    procedure ServerSocket1ClientRead(Sender: TObject;      Socket: TCustomWinSocket);    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);  private    { Private declarations }    Reciving: boolean;    DataSize: integer;    Data: TMemoryStream;  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Image1Click(Sender: TObject); begin  // Это процедура для открытия сокета на ПРИЁМ (RECEIVING).  // Button1.Click is this procedure as well.  ClientSocket1.Active:= true; end; procedure TForm1.FormCreate(Sender: TObject); begin  // Открытие ОТПРАВЛЯЮЩЕГО (SENDING) сокета.  ServerSocket1.Active:= true; end; procedure TForm1.ClientSocket1Connect(Sender: TObject;  Socket: TCustomWinSocket); begin  // Посылаем команду для начала передачи файла.  Socket.SendText('send'); end; procedure TForm1.ClientSocket1Read(Sender: TObject;  Socket: TCustomWinSocket); var  s, sl: string; begin  s:= Socket.ReceiveText;  // Если мы не в режиме приёма:  if not Reciving then  begin    // Теперь нам необходимо получить длину потока данных.    SetLength(sl, StrLen(PChar(s))+1); // +1 for the null terminator    StrLCopy(@sl[1], PChar(s), Length(sl)-1);    DataSize:= StrToInt(sl);    Data:= TMemoryStream.Create;    // Удаляем информацию о размере из данных.    Delete(s, 1, Length(sl));    Reciving:= true;  end;  // Сохраняем данные в файл, до тех пор, пока не получим все данные.  try    Data.Write(s[1], length(s));    if Data.Size = DataSize then    begin      Data.Position:= 0;      Image2.Picture.Bitmap.LoadFromStream(Data);      Data.Free;      Reciving:= false;      Socket.Close;    end;  except    Data.Free;  end; end; procedure TForm1.ServerSocket1ClientRead(Sender: TObject;  Socket: TCustomWinSocket); var  ms: TMemoryStream; begin  // Клиент получает команду на передачу файла.  if Socket.ReceiveText = 'send' then  begin    ms:= TMemoryStream.Create;    try      // Получаем данные на передачу.      Image1.Picture.Bitmap.SaveToStream(ms);      ms.Position:= 0;      // Добавляем длину данных, чтобы клиент знал, сколько данных будет      // передано. Добавляем #0 , чтобы можно было определить, где      // заканчивается информация о размере.      Socket.SendText(IntToStr(ms.Size) + #0);      // Посылаем его.      Socket.SendStream(ms);    except      // Итак, осталось освободить поток, если что-то не так.      ms.Free;    end;  end; end; end.

Автор: M K
www.sources.ru

Да, да... именно этот пример я уже находил на 3 сайтах
Вот я попросил подсказать как его переделать чтоб качать конкретный файл, а не картинку из Image

Код

var ms: TMemoryStream; begin ms:= TmemoryStream.Create; ms.LoadFromFile(твой файл);

...

А через tFileStream никак не получится?

Насчёт TFileStream не скажу (можно самому попробовать...)

А вот насчёт кода сделаю одно уточнение. Кажется, в последней процедуре надо except заменить на finally, а то утечка памяти...

Я когда-то использовал TFileStream.
приблизительно это выглядело так:

посылаем:

buf: array[1..1024] of Char;
i: Integer;
f: TFileStream;

f := TFileStream.Create('File.exe', fmOpenRead);
while f.Pos < f.Size do begin
i := f.ReadBuffer(buf, 1024);
socket.SendBuf(buf, i);
end;

получаем:

buf: array[1..1024] of Char;
i: Integer;
f: TFileStream;

f := TFileStream.Create('File.exe', fmOpenWrite);
i := socket.ReceiveBuf(buf, 1024);
f.WriteBuffer(buf, i);

Тут надо еще передовать (например, в первом или последнем байте) команду, при которой удаленная программа будет знать, что ей делать, запись в файл или подготовка к записи и т.д.

вроде разобрался

Цитата

f := TFileStream.Create('File.exe', fmOpenWrite); i := socket.ReceiveBuf(buf, 1024); f.WriteBuffer(buf, i);

Здесь наверное не до конца написано....
Без цикла....