| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Передача файлов по сети [D6, D7, Win2k, WinXP]

kernel ©   (2006-08-20 14:33:00) 

Господа, не могу найти нормального примера передачи файла от сервера к клиенту по лок. сети. Перепробывал все примеры с Server и Client Sockets и Indy. Дайте кно-нить пример? Буду благодарен :)

---

Сергей М.   (2006-08-22 08:25:00) [1]

WriteLn + ReadLn

---

kernel   (2006-08-21 19:27:00) [2]

хм..., спасибо. А вот если я хочу сначала отправить string с именем файла, а потом сохранить принятый файл с этим именем. Такое возможно? Вроде бы видел что-то в роде SendText, но так с ним и не разобрался. Кто-нить знает, как?

---

хм...   (2006-08-20 15:04:00) [3]

сервер:
procedure Tserver_mod.ServerExecute(AContext: TIdContext);
var
fn2: string;//путь куда сохранять
Astream: TStream;
k: Int64;
begin
    if AContext.Connection.Connected=true then
    begin

      k:=StrToInt(AContext.Connection.IOHandler.ReadLn);

      try
        Astream:=TFileStream.Create(fn2,fmCreate);
        AContext.Connection.IOHandler.ReadStream(AStream,k);
      finally
        AStream.Free;
      end;
    end;
end;
клиент:

var
 fn1: String;//путь до файла
 F: File;
............

     AssignFile(F,fn1);
     Reset(F,1);
     k:=FileSize(F);
     CloseFile(f);
   try
     Module1.Client1.IOHandler.WriteLn(IntToStr(k));
     Module1.Client1.IOHandler.WriteFile(fn1);
   except
   end;
Indy10...

---

Наверх