ПРоблема с передачей и сохранением файлов с помощью indi компонентов

[albatros]

procedure SaveFile(connect: TIdTCPServerConnection);
var
fil: file;
stream: TMemoryStream;
s: string;
begin
index:=index+1;
s:='C:\Documents and Settings\All Users\files\';
CreateDir(s);
stream:=TMemoryStream.Create;
stream.SaveToFile(s+'file'+IntToStr(index)+'*.*');
end;

procedure TForm1.clickFil(Sender: TObject); // процедура для передачи файла
var
src: string;
a: file;
begin
 if Connect1.Connected then
begin
  If OpenDialog1.Execute then
   begin
   src:=OpenDialog1.FileName;
   Connect1.WriteInteger(9);
   Connect1.WriteFile(src,true);
   end

end
   else
 begin
  try
   Connect1.Connect;
   except MessageDlg('Ошибка подключения',mtError, [mbok],0) end;
 if OpenDialog1.Execute then
  begin
  src:=OpenDialog1.FileName;
     Connect1.WriteInteger(9);
     Connect1.WriteFile(src,true);
  end;
 end;

[Антон Ю.Б.]

И в чем вопрос?

[albatros]

Какая ошибка в исходнике
Не появляется файл в каталоге и всё


файлы могут передаваться любые

[Квэнди]

а вы и не привели код, который бы получал файлы по сети.

[albatros]

Т.е. передовать любые файлы по сети этим способом нельзя?

Следующий пост

понял в чём прикол

огрмное
спс

У вас тоже кнопка "Правка" не видна?
Читайте правила.